Hệ thống quản lý bán hàng và hàng tồn kho trong c#

37.065 lượt xem;
1 '------------------------------------------------------------------------------
2 ' <auto-generated>
3 ' This code was generated by a tool.
4 ' Runtime Version:4.0.30319.42000
5 '
6 ' Changes to this file may cause incorrect behavior and will be lost if
7 ' the code is regenerated.
8 ' </auto-generated>
9 '------------------------------------------------------------------------------
10
11 Option Strict Off
12 Option Explicit On
13
14
15
16 '''<summary>
17 '''Represents a strongly typed in-memory cache of data.
18 '''</summary>
19 <Global.System.Serializable(), _
20  Global.System.ComponentModel.DesignerCategoryAttribute("code"), _
21  Global.System.ComponentModel.ToolboxItem(true), _
22  Global.System.Xml.Serialization.XmlSchemaProviderAttribute("GetTypedDataSetSchema"), _
23  Global.System.Xml.Serialization.XmlRootAttribute("SIS_DBDataSet"), _
24  Global.System.ComponentModel.Design.HelpKeywordAttribute("vs.data.DataSet")> _
25 Partial Public Class SIS_DBDataSet
26     Inherits Global.System.Data.DataSet
27     
28     Private tableActivation As ActivationDataTable
29     
30     Private tableCategory As CategoryDataTable
31     
32     Private tableCompany As CompanyDataTable
33     
34     Private tableCompany_Contacts As Company_ContactsDataTable
35     
36     Private tableCustomer As CustomerDataTable
37     
38     Private tableInvoice_Payment As Invoice_PaymentDataTable
39     
40     Private tableInvoice_Product As Invoice_ProductDataTable
41     
42     Private tableInvoiceInfo As InvoiceInfoDataTable
43     
44     Private tableLogs As LogsDataTable
45     
46     Private tableProduct As ProductDataTable
47     
48     Private tableProduct_Join As Product_JoinDataTable
49     
50     Private tableQuotation As QuotationDataTable
51     
52     Private tableQuotation_Join As Quotation_JoinDataTable
53     
54     Private tableRegistration As RegistrationDataTable
55     
56     Private tableService As ServiceDataTable
57     
58     Private tableStock As StockDataTable
59     
60     Private tableStock_Product As Stock_ProductDataTable
61     
62     Private tableSubCategory As SubCategoryDataTable
63     
64     Private tableSupplier As SupplierDataTable
65     
66     Private tableTemp_Stock As Temp_StockDataTable
67     
68     Private relationFK_Invoice_Payment_InvoiceInfo As Global.System.Data.DataRelation
69     
70     Private relationFK_Invoice_Product_InvoiceInfo As Global.System.Data.DataRelation
71     
72     Private relationFK_Invoice_Product_Product As Global.System.Data.DataRelation
73     
74     Private relationFK_InvoiceInfo_Customer As Global.System.Data.DataRelation
75     
76     Private relationFK_Logs_Registration As Global.System.Data.DataRelation
77     
78     Private relationFK_Product_SubCategory As Global.System.Data.DataRelation
79     
80     Private relationFK_Product_Join_Product As Global.System.Data.DataRelation
81     
82     Private relationFK_Quotation_Customer As Global.System.Data.DataRelation
83     
84     Private relationFK_Quotation_Join_Product As Global.System.Data.DataRelation
85     
86     Private relationFK_Quotation_Join_Quotation As Global.System.Data.DataRelation
87     
88     Private relationFK_Service_Customer As Global.System.Data.DataRelation
89     
90     Private relationFK_Stock_Supplier As Global.System.Data.DataRelation
91     
92     Private relationFK_Stock_Product_Product As Global.System.Data.DataRelation
93     
94     Private relationFK_Stock_Product_Stock As Global.System.Data.DataRelation
95     
96     Private relationFK_SubCategory_Category As Global.System.Data.DataRelation
97     
98     Private relationFK_Temp_Stock_Product As Global.System.Data.DataRelation
99     
100     Private _schemaSerializationMode As Global.System.Data.SchemaSerializationMode = Global.System.Data.SchemaSerializationMode.IncludeSchema
101     
102     <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
103      Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0")> _
104     Public Sub New()
105         MyBase.New
106         Me.BeginInit
107         Me.InitClass
108         Dim schemaChangedHandler As Global.System.ComponentModel.CollectionChangeEventHandler = AddressOf Me.SchemaChanged
109         AddHandler MyBase.Tables.CollectionChanged, schemaChangedHandler
110         AddHandler MyBase.Relations.CollectionChanged, schemaChangedHandler
111         Me.EndInit
112     End Sub
113     
114     <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
115      Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0")> _
116     Protected Sub New(ByVal info As Global.System.Runtime.Serialization.SerializationInfo, ByVal context As Global.System.Runtime.Serialization.StreamingContext)
117         MyBase.New(info, context, false)
118         If (Me.IsBinarySerialized(info, context) = true) Then
119             Me.InitVars(false)
120             Dim schemaChangedHandler1 As Global.System.ComponentModel.CollectionChangeEventHandler = AddressOf Me.SchemaChanged
121             AddHandler Me.Tables.CollectionChanged, schemaChangedHandler1
122             AddHandler Me.Relations.CollectionChanged, schemaChangedHandler1
123             Return
124         End If
125         Dim strSchema As String = CType(info.GetValue("XmlSchema", GetType(String)),String)
126         If (Me.DetermineSchemaSerializationMode(info, context) = Global.System.Data.SchemaSerializationMode.IncludeSchema) Then
127             Dim ds As Global.System.Data.DataSet = New Global.System.Data.DataSet()
128             ds.ReadXmlSchema(New Global.System.Xml.XmlTextReader(New Global.System.IO.StringReader(strSchema)))
129             If (Not (ds.Tables("Activation")) Is Nothing) Then
130                 MyBase.Tables.Add(New ActivationDataTable(ds.Tables("Activation")))
131             End If
132             If (Not (ds.Tables("Category")) Is Nothing) Then
133                 MyBase.Tables.Add(New CategoryDataTable(ds.Tables("Category")))
134             End If
135             If (Not (ds.Tables("Company")) Is Nothing) Then
136                 MyBase.Tables.Add(New CompanyDataTable(ds.Tables("Company")))
137             End If
138             If (Not (ds.Tables("Company_Contacts")) Is Nothing) Then
139                 MyBase.Tables.Add(New Company_ContactsDataTable(ds.Tables("Company_Contacts")))
140             End If
141             If (Not (ds.Tables("Customer")) Is Nothing) Then
142                 MyBase.Tables.Add(New CustomerDataTable(ds.Tables("Customer")))
143             End If
144             If (Not (ds.Tables("Invoice_Payment")) Is Nothing) Then
145                 MyBase.Tables.Add(New Invoice_PaymentDataTable(ds.Tables("Invoice_Payment")))
146             End If
147             If (Not (ds.Tables("Invoice_Product")) Is Nothing) Then
148                 MyBase.Tables.Add(New Invoice_ProductDataTable(ds.Tables("Invoice_Product")))
149             End If
150             If (Not (ds.Tables("InvoiceInfo")) Is Nothing) Then
151                 MyBase.Tables.Add(New InvoiceInfoDataTable(ds.Tables("InvoiceInfo")))
152             End If
153             If (Not (ds.Tables("Logs")) Is Nothing) Then
154                 MyBase.Tables.Add(New LogsDataTable(ds.Tables("Logs")))
155             End If
156             If (Not (ds.Tables("Product")) Is Nothing) Then
157                 MyBase.Tables.Add(New ProductDataTable(ds.Tables("Product")))
158             End If
159             If (Not (ds.Tables("Product_Join")) Is Nothing) Then
160                 MyBase.Tables.Add(New Product_JoinDataTable(ds.Tables("Product_Join")))
161             End If
162             If (Not (ds.Tables("Quotation")) Is Nothing) Then
163                 MyBase.Tables.Add(New QuotationDataTable(ds.Tables("Quotation")))
164             End If
165             If (Not (ds.Tables("Quotation_Join")) Is Nothing) Then
166                 MyBase.Tables.Add(New Quotation_JoinDataTable(ds.Tables("Quotation_Join")))
167             End If
168             If (Not (ds.Tables("Registration")) Is Nothing) Then
169                 MyBase.Tables.Add(New RegistrationDataTable(ds.Tables("Registration")))
170             End If
171             If (Not (ds.Tables("Service")) Is Nothing) Then
172                 MyBase.Tables.Add(New ServiceDataTable(ds.Tables("Service")))
173             End If
174             If (Not (ds.Tables("Stock")) Is Nothing) Then
175                 MyBase.Tables.Add(New StockDataTable(ds.Tables("Stock")))
176             End If
177             If (Not (ds.Tables("Stock_Product")) Is Nothing) Then
178                 MyBase.Tables.Add(New Stock_ProductDataTable(ds.Tables("Stock_Product")))
179             End If
180             If (Not (ds.Tables("SubCategory")) Is Nothing) Then
181                 MyBase.Tables.Add(New SubCategoryDataTable(ds.Tables("SubCategory")))
182             End If
183             If (Not (ds.Tables("Supplier")) Is Nothing) Then
184                 MyBase.Tables.Add(New SupplierDataTable(ds.Tables("Supplier")))
185             End If
186             If (Not (ds.Tables("Temp_Stock")) Is Nothing) Then
187                 MyBase.Tables.Add(New Temp_StockDataTable(ds.Tables("Temp_Stock")))
188             End If
189             Me.DataSetName = ds.DataSetName
190             Me.Prefix = ds.Prefix
191             Me.Namespace = ds.Namespace
192             Me.Locale = ds.Locale
193             Me.CaseSensitive = ds.CaseSensitive
194             Me.EnforceConstraints = ds.EnforceConstraints
195             Me.Merge(ds, false, Global.System.Data.MissingSchemaAction.Add)
196             Me.InitVars
197         Else
198             Me.ReadXmlSchema(New Global.System.Xml.XmlTextReader(New Global.System.IO.StringReader(strSchema)))
199         End If
200         Me.GetSerializationData(info, context)
201         Dim schemaChangedHandler As Global.System.ComponentModel.CollectionChangeEventHandler = AddressOf Me.SchemaChanged
202         AddHandler MyBase.Tables.CollectionChanged, schemaChangedHandler
203         AddHandler Me.Relations.CollectionChanged, schemaChangedHandler
204     End Sub
205     
206     <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
207      Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0"), _
208      Global.System.ComponentModel.Browsable(false), _
209      Global.System.ComponentModel.DesignerSerializationVisibility(Global.System.ComponentModel.DesignerSerializationVisibility.Content)> _
210     Public ReadOnly Property Activation() As ActivationDataTable
211         Get
212             Return Me.tableActivation
213         End Get
214     End Property
215     
216     <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
217      Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0"), _
218      Global.System.ComponentModel.Browsable(false), _
219      Global.System.ComponentModel.DesignerSerializationVisibility(Global.System.ComponentModel.DesignerSerializationVisibility.Content)> _
220     Public ReadOnly Property Category() As CategoryDataTable
221         Get
222             Return Me.tableCategory
223         End Get
224     End Property
225     
226     <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
227      Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0"), _
228      Global.System.ComponentModel.Browsable(false), _
229      Global.System.ComponentModel.DesignerSerializationVisibility(Global.System.ComponentModel.DesignerSerializationVisibility.Content)> _
230     Public ReadOnly Property Company() As CompanyDataTable
231         Get
232             Return Me.tableCompany
233         End Get
234     End Property
235     
236     <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
237      Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0"), _
238      Global.System.ComponentModel.Browsable(false), _
239      Global.System.ComponentModel.DesignerSerializationVisibility(Global.System.ComponentModel.DesignerSerializationVisibility.Content)> _
240     Public ReadOnly Property Company_Contacts() As Company_ContactsDataTable
241         Get
242             Return Me.tableCompany_Contacts
243         End Get
244     End Property
245     
246     <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
247      Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0"), _
248      Global.System.ComponentModel.Browsable(false), _
249      Global.System.ComponentModel.DesignerSerializationVisibility(Global.System.ComponentModel.DesignerSerializationVisibility.Content)> _
250     Public ReadOnly Property Customer() As CustomerDataTable
251         Get
252             Return Me.tableCustomer
253         End Get
254     End Property
255     
256     <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
257      Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0"), _
258      Global.System.ComponentModel.Browsable(false), _
259      Global.System.ComponentModel.DesignerSerializationVisibility(Global.System.ComponentModel.DesignerSerializationVisibility.Content)> _
260     Public ReadOnly Property Invoice_Payment() As Invoice_PaymentDataTable
261         Get
262             Return Me.tableInvoice_Payment
263         End Get
264     End Property
265     
266     <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
267      Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0"), _
268      Global.System.ComponentModel.Browsable(false), _
269      Global.System.ComponentModel.DesignerSerializationVisibility(Global.System.ComponentModel.DesignerSerializationVisibility.Content)> _
270     Public ReadOnly Property Invoice_Product() As Invoice_ProductDataTable
271         Get
272             Return Me.tableInvoice_Product
273         End Get
274     End Property
275     
276     <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
277      Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0"), _
278      Global.System.ComponentModel.Browsable(false), _
279      Global.System.ComponentModel.DesignerSerializationVisibility(Global.System.ComponentModel.DesignerSerializationVisibility.Content)> _
280     Public ReadOnly Property InvoiceInfo() As InvoiceInfoDataTable
281         Get
282             Return Me.tableInvoiceInfo
283         End Get
284     End Property
285     
286     <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
287      Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0"), _
288      Global.System.ComponentModel.Browsable(false), _
289      Global.System.ComponentModel.DesignerSerializationVisibility(Global.System.ComponentModel.DesignerSerializationVisibility.Content)> _
290     Public ReadOnly Property Logs() As LogsDataTable
291         Get
292             Return Me.tableLogs
293         End Get
294     End Property
295     
296     <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
297      Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0"), _
298      Global.System.ComponentModel.Browsable(false), _
299      Global.System.ComponentModel.DesignerSerializationVisibility(Global.System.ComponentModel.DesignerSerializationVisibility.Content)> _
300     Public ReadOnly Property Product() As ProductDataTable
301         Get
302             Return Me.tableProduct
303         End Get
304     End Property
305     
306     <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
307      Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0"), _
308      Global.System.ComponentModel.Browsable(false), _
309      Global.System.ComponentModel.DesignerSerializationVisibility(Global.System.ComponentModel.DesignerSerializationVisibility.Content)> _
310     Public ReadOnly Property Product_Join() As Product_JoinDataTable
311         Get
312             Return Me.tableProduct_Join
313         End Get
314     End Property
315     
316     <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
317      Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0"), _
318      Global.System.ComponentModel.Browsable(false), _
319      Global.System.ComponentModel.DesignerSerializationVisibility(Global.System.ComponentModel.DesignerSerializationVisibility.Content)> _
320     Public ReadOnly Property Quotation() As QuotationDataTable
321         Get
322             Return Me.tableQuotation
323         End Get
324     End Property
325     
326     <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
327      Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0"), _
328      Global.System.ComponentModel.Browsable(false), _
329      Global.System.ComponentModel.DesignerSerializationVisibility(Global.System.ComponentModel.DesignerSerializationVisibility.Content)> _
330     Public ReadOnly Property Quotation_Join() As Quotation_JoinDataTable
331         Get
332             Return Me.tableQuotation_Join
333         End Get
334     End Property
335     
336     <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
337      Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0"), _
338      Global.System.ComponentModel.Browsable(false), _
339      Global.System.ComponentModel.DesignerSerializationVisibility(Global.System.ComponentModel.DesignerSerializationVisibility.Content)> _
340     Public ReadOnly Property Registration() As RegistrationDataTable
341         Get
342             Return Me.tableRegistration
343         End Get
344     End Property
345     
346     <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
347      Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0"), _
348      Global.System.ComponentModel.Browsable(false), _
349      Global.System.ComponentModel.DesignerSerializationVisibility(Global.System.ComponentModel.DesignerSerializationVisibility.Content)> _
350     Public ReadOnly Property Service() As ServiceDataTable
351         Get
352             Return Me.tableService
353         End Get
354     End Property
355     
356     <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
357      Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0"), _
358      Global.System.ComponentModel.Browsable(false), _
359      Global.System.ComponentModel.DesignerSerializationVisibility(Global.System.ComponentModel.DesignerSerializationVisibility.Content)> _
360     Public ReadOnly Property Stock() As StockDataTable
361         Get
362             Return Me.tableStock
363         End Get
364     End Property
365     
366     <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
367      Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0"), _
368      Global.System.ComponentModel.Browsable(false), _
369      Global.System.ComponentModel.DesignerSerializationVisibility(Global.System.ComponentModel.DesignerSerializationVisibility.Content)> _
370     Public ReadOnly Property Stock_Product() As Stock_ProductDataTable
371         Get
372             Return Me.tableStock_Product
373         End Get
374     End Property
375     
376     <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
377      Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0"), _
378      Global.System.ComponentModel.Browsable(false), _
379      Global.System.ComponentModel.DesignerSerializationVisibility(Global.System.ComponentModel.DesignerSerializationVisibility.Content)> _
380     Public ReadOnly Property SubCategory() As SubCategoryDataTable
381         Get
382             Return Me.tableSubCategory
383         End Get
384     End Property
385     
386     <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
387      Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0"), _
388      Global.System.ComponentModel.Browsable(false), _
389      Global.System.ComponentModel.DesignerSerializationVisibility(Global.System.ComponentModel.DesignerSerializationVisibility.Content)> _
390     Public ReadOnly Property Supplier() As SupplierDataTable
391         Get
392             Return Me.tableSupplier
393         End Get
394     End Property
395     
396     <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
397      Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0"), _
398      Global.System.ComponentModel.Browsable(false), _
399      Global.System.ComponentModel.DesignerSerializationVisibility(Global.System.ComponentModel.DesignerSerializationVisibility.Content)> _
400     Public ReadOnly Property Temp_Stock() As Temp_StockDataTable
401         Get
402             Return Me.tableTemp_Stock
403         End Get
404     End Property
405     
406     <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
407      Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0"), _
408      Global.System.ComponentModel.BrowsableAttribute(true), _
409      Global.System.ComponentModel.DesignerSerializationVisibilityAttribute(Global.System.ComponentModel.DesignerSerializationVisibility.Visible)> _
410     Public Overrides Property SchemaSerializationMode() As Global.System.Data.SchemaSerializationMode
411         Get
412             Return Me._schemaSerializationMode
413         End Get
414         Set
415             Me._schemaSerializationMode = value
416         End Set
417     End Property
418     
419     <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
420      Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0"), _
421      Global.System.ComponentModel.DesignerSerializationVisibilityAttribute(Global.System.ComponentModel.DesignerSerializationVisibility.Hidden)> _
422     Public Shadows ReadOnly Property Tables() As Global.System.Data.DataTableCollection
423         Get
424             Return MyBase.Tables
425         End Get
426     End Property
427     
428     <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
429      Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0"), _
430      Global.System.ComponentModel.DesignerSerializationVisibilityAttribute(Global.System.ComponentModel.DesignerSerializationVisibility.Hidden)> _
431     Public Shadows ReadOnly Property Relations() As Global.System.Data.DataRelationCollection
432         Get
433             Return MyBase.Relations
434         End Get
435     End Property
436     
437     <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
438      Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0")> _
439     Protected Overrides Sub InitializeDerivedDataSet()
440         Me.BeginInit
441         Me.InitClass
442         Me.EndInit
443     End Sub
444     
445     <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
446      Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0")> _
447     Public Overrides Function Clone() As Global.System.Data.DataSet
448         Dim cln As SIS_DBDataSet = CType(MyBase.Clone,SIS_DBDataSet)
449         cln.InitVars
450         cln.SchemaSerializationMode = Me.SchemaSerializationMode
451         Return cln
452     End Function
453     
454     <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
455      Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0")> _
456     Protected Overrides Function ShouldSerializeTables() As Boolean
457         Return false
458     End Function
459     
460     <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
461      Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0")> _
462     Protected Overrides Function ShouldSerializeRelations() As Boolean
463         Return false
464     End Function
465     
466     <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
467      Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0")> _
468     Protected Overrides Sub ReadXmlSerializable(ByVal reader As Global.System.Xml.XmlReader)
469         If (Me.DetermineSchemaSerializationMode(reader) = Global.System.Data.SchemaSerializationMode.IncludeSchema) Then
470             Me.Reset
471             Dim ds As Global.System.Data.DataSet = New Global.System.Data.DataSet()
472             ds.ReadXml(reader)
473             If (Not (ds.Tables("Activation")) Is Nothing) Then
474                 MyBase.Tables.Add(New ActivationDataTable(ds.Tables("Activation")))
475             End If
476             If (Not (ds.Tables("Category")) Is Nothing) Then
477                 MyBase.Tables.Add(New CategoryDataTable(ds.Tables("Category")))
478             End If
479             If (Not (ds.Tables("Company")) Is Nothing) Then
480                 MyBase.Tables.Add(New CompanyDataTable(ds.Tables("Company")))
481             End If
482             If (Not (ds.Tables("Company_Contacts")) Is Nothing) Then
483                 MyBase.Tables.Add(New Company_ContactsDataTable(ds.Tables("Company_Contacts")))
484             End If
485             If (Not (ds.Tables("Customer")) Is Nothing) Then
486                 MyBase.Tables.Add(New CustomerDataTable(ds.Tables("Customer")))
487             End If
488             If (Not (ds.Tables("Invoice_Payment")) Is Nothing) Then
489                 MyBase.Tables.Add(New Invoice_PaymentDataTable(ds.Tables("Invoice_Payment")))
490             End If
491             If (Not (ds.Tables("Invoice_Product")) Is Nothing) Then
492                 MyBase.Tables.Add(New Invoice_ProductDataTable(ds.Tables("Invoice_Product")))
493             End If
494             If (Not (ds.Tables("InvoiceInfo")) Is Nothing) Then
495                 MyBase.Tables.Add(New InvoiceInfoDataTable(ds.Tables("InvoiceInfo")))
496             End If
497             If (Not (ds.Tables("Logs")) Is Nothing) Then
498                 MyBase.Tables.Add(New LogsDataTable(ds.Tables("Logs")))
499             End If
500             If (Not (ds.Tables("Product")) Is Nothing) Then
501                 MyBase.Tables.Add(New ProductDataTable(ds.Tables("Product")))
502             End If
503             If (Not (ds.Tables("Product_Join")) Is Nothing) Then
504                 MyBase.Tables.Add(New Product_JoinDataTable(ds.Tables("Product_Join")))
505             End If
506             If (Not (ds.Tables("Quotation")) Is Nothing) Then
507                 MyBase.Tables.Add(New QuotationDataTable(ds.Tables("Quotation")))
508             End If
509             If (Not (ds.Tables("Quotation_Join")) Is Nothing) Then
510                 MyBase.Tables.Add(New Quotation_JoinDataTable(ds.Tables("Quotation_Join")))
511             End If
512             If (Not (ds.Tables("Registration")) Is Nothing) Then
513                 MyBase.Tables.Add(New RegistrationDataTable(ds.Tables("Registration")))
514             End If
515             If (Not (ds.Tables("Service")) Is Nothing) Then
516                 MyBase.Tables.Add(New ServiceDataTable(ds.Tables("Service")))
517             End If
518             If (Not (ds.Tables("Stock")) Is Nothing) Then
519                 MyBase.Tables.Add(New StockDataTable(ds.Tables("Stock")))
520             End If
521             If (Not (ds.Tables("Stock_Product")) Is Nothing) Then
522                 MyBase.Tables.Add(New Stock_ProductDataTable(ds.Tables("Stock_Product")))
523             End If
524             If (Not (ds.Tables("SubCategory")) Is Nothing) Then
525                 MyBase.Tables.Add(New SubCategoryDataTable(ds.Tables("SubCategory")))
526             End If
527             If (Not (ds.Tables("Supplier")) Is Nothing) Then
528                 MyBase.Tables.Add(New SupplierDataTable(ds.Tables("Supplier")))
529             End If
530             If (Not (ds.Tables("Temp_Stock")) Is Nothing) Then
531                 MyBase.Tables.Add(New Temp_StockDataTable(ds.Tables("Temp_Stock")))
532             End If
533             Me.DataSetName = ds.DataSetName
534             Me.Prefix = ds.Prefix
535             Me.Namespace = ds.Namespace
536             Me.Locale = ds.Locale
537             Me.CaseSensitive = ds.CaseSensitive
538             Me.EnforceConstraints = ds.EnforceConstraints
539             Me.Merge(ds, false, Global.System.Data.MissingSchemaAction.Add)
540             Me.InitVars
541         Else
542             Me.ReadXml(reader)
543             Me.InitVars
544         End If
545     End Sub
546     
547     <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
548      Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0")> _
549     Protected Overrides Function GetSchemaSerializable() As Global.System.Xml.Schema.XmlSchema
550         Dim stream As Global.System.IO.MemoryStream = New Global.System.IO.MemoryStream()
551         Me.WriteXmlSchema(New Global.System.Xml.XmlTextWriter(stream, Nothing))
552         stream.Position = 0
553         Return Global.System.Xml.Schema.XmlSchema.Read(New Global.System.Xml.XmlTextReader(stream), Nothing)
554     End Function
555     
556     <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
557      Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0")> _
558     Friend Overloads Sub InitVars()
559         Me.InitVars(true)
560     End Sub
561     
562     <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
563      Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0")> _
564     Friend Overloads Sub InitVars(ByVal initTable As Boolean)
565         Me.tableActivation = CType(MyBase.Tables("Activation"),ActivationDataTable)
566         If (initTable = true) Then
567             If (Not (Me.tableActivation) Is Nothing) Then
568                 Me.tableActivation.InitVars
569             End If
570         End If
571         Me.tableCategory = CType(MyBase.Tables("Category"),CategoryDataTable)
572         If (initTable = true) Then
573             If (Not (Me.tableCategory) Is Nothing) Then
574                 Me.tableCategory.InitVars
575             End If
576         End If
577         Me.tableCompany = CType(MyBase.Tables("Company"),CompanyDataTable)
578         If (initTable = true) Then
579             If (Not (Me.tableCompany) Is Nothing) Then
580                 Me.tableCompany.InitVars
581             End If
582         End If
583         Me.tableCompany_Contacts = CType(MyBase.Tables("Company_Contacts"),Company_ContactsDataTable)
584         If (initTable = true) Then
585             If (Not (Me.tableCompany_Contacts) Is Nothing) Then
586                 Me.tableCompany_Contacts.InitVars
587             End If
588         End If
589         Me.tableCustomer = CType(MyBase.Tables("Customer"),CustomerDataTable)
590         If (initTable = true) Then
591             If (Not (Me.tableCustomer) Is Nothing) Then
592                 Me.tableCustomer.InitVars
593             End If
594         End If
595         Me.tableInvoice_Payment = CType(MyBase.Tables("Invoice_Payment"),Invoice_PaymentDataTable)
596         If (initTable = true) Then
597             If (Not (Me.tableInvoice_Payment) Is Nothing) Then
598                 Me.tableInvoice_Payment.InitVars
599             End If
600         End If
601         Me.tableInvoice_Product = CType(MyBase.Tables("Invoice_Product"),Invoice_ProductDataTable)
602         If (initTable = true) Then
603             If (Not (Me.tableInvoice_Product) Is Nothing) Then
604                 Me.tableInvoice_Product.InitVars
605             End If
606         End If
607         Me.tableInvoiceInfo = CType(MyBase.Tables("InvoiceInfo"),InvoiceInfoDataTable)
608         If (initTable = true) Then
609             If (Not (Me.tableInvoiceInfo) Is Nothing) Then
610                 Me.tableInvoiceInfo.InitVars
611             End If
612         End If
613         Me.tableLogs = CType(MyBase.Tables("Logs"),LogsDataTable)
614         If (initTable = true) Then
615             If (Not (Me.tableLogs) Is Nothing) Then
616                 Me.tableLogs.InitVars
617             End If
618         End If
619         Me.tableProduct = CType(MyBase.Tables("Product"),ProductDataTable)
620         If (initTable = true) Then
621             If (Not (Me.tableProduct) Is Nothing) Then
622                 Me.tableProduct.InitVars
623             End If
624         End If
625         Me.tableProduct_Join = CType(MyBase.Tables("Product_Join"),Product_JoinDataTable)
626         If (initTable = true) Then
627             If (Not (Me.tableProduct_Join) Is Nothing) Then
628                 Me.tableProduct_Join.InitVars
629             End If
630         End If
631         Me.tableQuotation = CType(MyBase.Tables("Quotation"),QuotationDataTable)
632         If (initTable = true) Then
633             If (Not (Me.tableQuotation) Is Nothing) Then
634                 Me.tableQuotation.InitVars
635             End If
636         End If
637         Me.tableQuotation_Join = CType(MyBase.Tables("Quotation_Join"),Quotation_JoinDataTable)
638         If (initTable = true) Then
639             If (Not (Me.tableQuotation_Join) Is Nothing) Then
640                 Me.tableQuotation_Join.InitVars
641             End If
642         End If
643         Me.tableRegistration = CType(MyBase.Tables("Registration"),RegistrationDataTable)
644         If (initTable = true) Then
645             If (Not (Me.tableRegistration) Is Nothing) Then
646                 Me.tableRegistration.InitVars
647             End If
648         End If
649         Me.tableService = CType(MyBase.Tables("Service"),ServiceDataTable)
650         If (initTable = true) Then
651             If (Not (Me.tableService) Is Nothing) Then
652                 Me.tableService.InitVars
653             End If
654         End If
655         Me.tableStock = CType(MyBase.Tables("Stock"),StockDataTable)
656         If (initTable = true) Then
657             If (Not (Me.tableStock) Is Nothing) Then
658                 Me.tableStock.InitVars
659             End If
660         End If
661         Me.tableStock_Product = CType(MyBase.Tables("Stock_Product"),Stock_ProductDataTable)
662         If (initTable = true) Then
663             If (Not (Me.tableStock_Product) Is Nothing) Then
664                 Me.tableStock_Product.InitVars
665             End If
666         End If
667         Me.tableSubCategory = CType(MyBase.Tables("SubCategory"),SubCategoryDataTable)
668         If (initTable = true) Then
669             If (Not (Me.tableSubCategory) Is Nothing) Then
670                 Me.tableSubCategory.InitVars
671             End If
672         End If
673         Me.tableSupplier = CType(MyBase.Tables("Supplier"),SupplierDataTable)
674         If (initTable = true) Then
675             If (Not (Me.tableSupplier) Is Nothing) Then
676                 Me.tableSupplier.InitVars
677             End If
678         End If
679         Me.tableTemp_Stock = CType(MyBase.Tables("Temp_Stock"),Temp_StockDataTable)
680         If (initTable = true) Then
681             If (Not (Me.tableTemp_Stock) Is Nothing) Then
682                 Me.tableTemp_Stock.InitVars
683             End If
684         End If
685         Me.relationFK_Invoice_Payment_InvoiceInfo = Me.Relations("FK_Invoice_Payment_InvoiceInfo")
686         Me.relationFK_Invoice_Product_InvoiceInfo = Me.Relations("FK_Invoice_Product_InvoiceInfo")
687         Me.relationFK_Invoice_Product_Product = Me.Relations("FK_Invoice_Product_Product")
688         Me.relationFK_InvoiceInfo_Customer = Me.Relations("FK_InvoiceInfo_Customer")
689         Me.relationFK_Logs_Registration = Me.Relations("FK_Logs_Registration")
690         Me.relationFK_Product_SubCategory = Me.Relations("FK_Product_SubCategory")
691         Me.relationFK_Product_Join_Product = Me.Relations("FK_Product_Join_Product")
692         Me.relationFK_Quotation_Customer = Me.Relations("FK_Quotation_Customer")
693         Me.relationFK_Quotation_Join_Product = Me.Relations("FK_Quotation_Join_Product")
694         Me.relationFK_Quotation_Join_Quotation = Me.Relations("FK_Quotation_Join_Quotation")
695         Me.relationFK_Service_Customer = Me.Relations("FK_Service_Customer")
696         Me.relationFK_Stock_Supplier = Me.Relations("FK_Stock_Supplier")
697         Me.relationFK_Stock_Product_Product = Me.Relations("FK_Stock_Product_Product")
698         Me.relationFK_Stock_Product_Stock = Me.Relations("FK_Stock_Product_Stock")
699         Me.relationFK_SubCategory_Category = Me.Relations("FK_SubCategory_Category")
700         Me.relationFK_Temp_Stock_Product = Me.Relations("FK_Temp_Stock_Product")
701     End Sub
702     
703     <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
704      Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0")> _
705     Private Sub InitClass()
706         Me.DataSetName = "SIS_DBDataSet"
707         Me.Prefix = ""
708         Me.Namespace = "http://tempuri.org/SIS_DBDataSet.xsd"
709         Me.EnforceConstraints = true
710         Me.SchemaSerializationMode = Global.System.Data.SchemaSerializationMode.IncludeSchema
711         Me.tableActivation = New ActivationDataTable()
712         MyBase.Tables.Add(Me.tableActivation)
713         Me.tableCategory = New CategoryDataTable()
714         MyBase.Tables.Add(Me.tableCategory)
715         Me.tableCompany = New CompanyDataTable()
716         MyBase.Tables.Add(Me.tableCompany)
717         Me.tableCompany_Contacts = New Company_ContactsDataTable()
718         MyBase.Tables.Add(Me.tableCompany_Contacts)
719         Me.tableCustomer = New CustomerDataTable()
720         MyBase.Tables.Add(Me.tableCustomer)
721         Me.tableInvoice_Payment = New Invoice_PaymentDataTable()
722         MyBase.Tables.Add(Me.tableInvoice_Payment)
723         Me.tableInvoice_Product = New Invoice_ProductDataTable()
724         MyBase.Tables.Add(Me.tableInvoice_Product)
725         Me.tableInvoiceInfo = New InvoiceInfoDataTable()
726         MyBase.Tables.Add(Me.tableInvoiceInfo)
727         Me.tableLogs = New LogsDataTable()
728         MyBase.Tables.Add(Me.tableLogs)
729         Me.tableProduct = New ProductDataTable()
730         MyBase.Tables.Add(Me.tableProduct)
731         Me.tableProduct_Join = New Product_JoinDataTable()
732         MyBase.Tables.Add(Me.tableProduct_Join)
733         Me.tableQuotation = New QuotationDataTable()
734         MyBase.Tables.Add(Me.tableQuotation)
735         Me.tableQuotation_Join = New Quotation_JoinDataTable()
736         MyBase.Tables.Add(Me.tableQuotation_Join)
737         Me.tableRegistration = New RegistrationDataTable()
738         MyBase.Tables.Add(Me.tableRegistration)
739         Me.tableService = New ServiceDataTable()
740         MyBase.Tables.Add(Me.tableService)
741         Me.tableStock = New StockDataTable()
742         MyBase.Tables.Add(Me.tableStock)
743         Me.tableStock_Product = New Stock_ProductDataTable()
744         MyBase.Tables.Add(Me.tableStock_Product)
745         Me.tableSubCategory = New SubCategoryDataTable()
746         MyBase.Tables.Add(Me.tableSubCategory)
747         Me.tableSupplier = New SupplierDataTable()
748         MyBase.Tables.Add(Me.tableSupplier)
749         Me.tableTemp_Stock = New Temp_StockDataTable()
750         MyBase.Tables.Add(Me.tableTemp_Stock)
751         Me.relationFK_Invoice_Payment_InvoiceInfo = New Global.System.Data.DataRelation("FK_Invoice_Payment_InvoiceInfo", New Global.System.Data.DataColumn() {Me.tableInvoiceInfo.Inv_IDColumn}, New Global.System.Data.DataColumn() {Me.tableInvoice_Payment.InvoiceIDColumn}, false)
752         Me.Relations.Add(Me.relationFK_Invoice_Payment_InvoiceInfo)
753         Me.relationFK_Invoice_Product_InvoiceInfo = New Global.System.Data.DataRelation("FK_Invoice_Product_InvoiceInfo", New Global.System.Data.DataColumn() {Me.tableInvoiceInfo.Inv_IDColumn}, New Global.System.Data.DataColumn() {Me.tableInvoice_Product.InvoiceIDColumn}, false)
754         Me.Relations.Add(Me.relationFK_Invoice_Product_InvoiceInfo)
755         Me.relationFK_Invoice_Product_Product = New Global.System.Data.DataRelation("FK_Invoice_Product_Product", New Global.System.Data.DataColumn() {Me.tableProduct.PIDColumn}, New Global.System.Data.DataColumn() {Me.tableInvoice_Product.ProductIDColumn}, false)
756         Me.Relations.Add(Me.relationFK_Invoice_Product_Product)
757         Me.relationFK_InvoiceInfo_Customer = New Global.System.Data.DataRelation("FK_InvoiceInfo_Customer", New Global.System.Data.DataColumn() {Me.tableCustomer.IDColumn}, New Global.System.Data.DataColumn() {Me.tableInvoiceInfo.CustomerIDColumn}, false)
758         Me.Relations.Add(Me.relationFK_InvoiceInfo_Customer)
759         Me.relationFK_Logs_Registration = New Global.System.Data.DataRelation("FK_Logs_Registration", New Global.System.Data.DataColumn() {Me.tableRegistration.UserIDColumn}, New Global.System.Data.DataColumn() {Me.tableLogs.UserIDColumn}, false)
760         Me.Relations.Add(Me.relationFK_Logs_Registration)
761         Me.relationFK_Product_SubCategory = New Global.System.Data.DataRelation("FK_Product_SubCategory", New Global.System.Data.DataColumn() {Me.tableSubCategory.IDColumn}, New Global.System.Data.DataColumn() {Me.tableProduct.SubCategoryIDColumn}, false)
762         Me.Relations.Add(Me.relationFK_Product_SubCategory)
763         Me.relationFK_Product_Join_Product = New Global.System.Data.DataRelation("FK_Product_Join_Product", New Global.System.Data.DataColumn() {Me.tableProduct.PIDColumn}, New Global.System.Data.DataColumn() {Me.tableProduct_Join.ProductIDColumn}, false)
764         Me.Relations.Add(Me.relationFK_Product_Join_Product)
765         Me.relationFK_Quotation_Customer = New Global.System.Data.DataRelation("FK_Quotation_Customer", New Global.System.Data.DataColumn() {Me.tableCustomer.IDColumn}, New Global.System.Data.DataColumn() {Me.tableQuotation.CustomerIDColumn}, false)
766         Me.Relations.Add(Me.relationFK_Quotation_Customer)
767         Me.relationFK_Quotation_Join_Product = New Global.System.Data.DataRelation("FK_Quotation_Join_Product", New Global.System.Data.DataColumn() {Me.tableProduct.PIDColumn}, New Global.System.Data.DataColumn() {Me.tableQuotation_Join.ProductIDColumn}, false)
768         Me.Relations.Add(Me.relationFK_Quotation_Join_Product)
769         Me.relationFK_Quotation_Join_Quotation = New Global.System.Data.DataRelation("FK_Quotation_Join_Quotation", New Global.System.Data.DataColumn() {Me.tableQuotation.Q_IDColumn}, New Global.System.Data.DataColumn() {Me.tableQuotation_Join.QuotationIDColumn}, false)
770         Me.Relations.Add(Me.relationFK_Quotation_Join_Quotation)
771         Me.relationFK_Service_Customer = New Global.System.Data.DataRelation("FK_Service_Customer", New Global.System.Data.DataColumn() {Me.tableCustomer.IDColumn}, New Global.System.Data.DataColumn() {Me.tableService.CustomerIDColumn}, false)
772         Me.Relations.Add(Me.relationFK_Service_Customer)
773         Me.relationFK_Stock_Supplier = New Global.System.Data.DataRelation("FK_Stock_Supplier", New Global.System.Data.DataColumn() {Me.tableSupplier.IDColumn}, New Global.System.Data.DataColumn() {Me.tableStock.SupplierIDColumn}, false)
774         Me.Relations.Add(Me.relationFK_Stock_Supplier)
775         Me.relationFK_Stock_Product_Product = New Global.System.Data.DataRelation("FK_Stock_Product_Product", New Global.System.Data.DataColumn() {Me.tableProduct.PIDColumn}, New Global.System.Data.DataColumn() {Me.tableStock_Product.ProductIDColumn}, false)
776         Me.Relations.Add(Me.relationFK_Stock_Product_Product)
777         Me.relationFK_Stock_Product_Stock = New Global.System.Data.DataRelation("FK_Stock_Product_Stock", New Global.System.Data.DataColumn() {Me.tableStock.ST_IDColumn}, New Global.System.Data.DataColumn() {Me.tableStock_Product.StockIDColumn}, false)
778         Me.Relations.Add(Me.relationFK_Stock_Product_Stock)
779         Me.relationFK_SubCategory_Category = New Global.System.Data.DataRelation("FK_SubCategory_Category", New Global.System.Data.DataColumn() {Me.tableCategory.CategoryNameColumn}, New Global.System.Data.DataColumn() {Me.tableSubCategory.CategoryColumn}, false)
780         Me.Relations.Add(Me.relationFK_SubCategory_Category)
781         Me.relationFK_Temp_Stock_Product = New Global.System.Data.DataRelation("FK_Temp_Stock_Product", New Global.System.Data.DataColumn() {Me.tableProduct.PIDColumn}, New Global.System.Data.DataColumn() {Me.tableTemp_Stock.ProductIDColumn}, false)
782         Me.Relations.Add(Me.relationFK_Temp_Stock_Product)
783     End Sub
784     
785     <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
786      Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0")> _
787     Private Function ShouldSerializeActivation() As Boolean
788         Return false
789     End Function
790     
791     <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
792      Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0")> _
793     Private Function ShouldSerializeCategory() As Boolean
794         Return false
795     End Function
796     
797     <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
798      Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0")> _
799     Private Function ShouldSerializeCompany() As Boolean
800         Return false
801     End Function
802     
803     <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
804      Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0")> _
805     Private Function ShouldSerializeCompany_Contacts() As Boolean
806         Return false
807     End Function
808     
809     <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
810      Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0")> _
811     Private Function ShouldSerializeCustomer() As Boolean
812         Return false
813     End Function
814     
815     <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
816      Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0")> _
817     Private Function ShouldSerializeInvoice_Payment() As Boolean
818         Return false
819     End Function
820     
821     <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
822      Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0")> _
823     Private Function ShouldSerializeInvoice_Product() As Boolean
824         Return false
825     End Function
826     
827     <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
828      Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0")> _
829     Private Function ShouldSerializeInvoiceInfo() As Boolean
830         Return false
831     End Function
832     
833     <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
834      Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0")> _
835     Private Function ShouldSerializeLogs() As Boolean
836         Return false
837     End Function
838     
839     <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
840      Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0")> _
841     Private Function ShouldSerializeProduct() As Boolean
842         Return false
843     End Function
844     
845     <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
846      Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0")> _
847     Private Function ShouldSerializeProduct_Join() As Boolean
848         Return false
849     End Function
850     
851     <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
852      Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0")> _
853     Private Function ShouldSerializeQuotation() As Boolean
854         Return false
855     End Function
856     
857     <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
858      Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0")> _
859     Private Function ShouldSerializeQuotation_Join() As Boolean
860         Return false
861     End Function
862     
863     <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
864      Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0")> _
865     Private Function ShouldSerializeRegistration() As Boolean
866         Return false
867     End Function
868     
869     <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
870      Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0")> _
871     Private Function ShouldSerializeService() As Boolean
872         Return false
873     End Function
874     
875     <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
876      Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0")> _
877     Private Function ShouldSerializeStock() As Boolean
878         Return false
879     End Function
880     
881     <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
882      Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0")> _
883     Private Function ShouldSerializeStock_Product() As Boolean
884         Return false
885     End Function
886     
887     <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
888      Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0")> _
889     Private Function ShouldSerializeSubCategory() As Boolean
890         Return false
891     End Function
892     
893     <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
894      Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0")> _
895     Private Function ShouldSerializeSupplier() As Boolean
896         Return false
897     End Function
898     
899     <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
900      Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0")> _
901     Private Function ShouldSerializeTemp_Stock() As Boolean
902         Return false
903     End Function
904     
905     <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
906      Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0")> _
907     Private Sub SchemaChanged(ByVal sender As Object, ByVal e As Global.System.ComponentModel.CollectionChangeEventArgs)
908         If (e.Action = Global.System.ComponentModel.CollectionChangeAction.Remove) Then
909             Me.InitVars
910         End If
911     End Sub
912     
913     <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
914      Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0")> _
915     Public Shared Function GetTypedDataSetSchema(ByVal xs As Global.System.Xml.Schema.XmlSchemaSet) As Global.System.Xml.Schema.XmlSchemaComplexType
916         Dim ds As SIS_DBDataSet = New SIS_DBDataSet()
917         Dim type As Global.System.Xml.Schema.XmlSchemaComplexType = New Global.System.Xml.Schema.XmlSchemaComplexType()
918         Dim sequence As Global.System.Xml.Schema.XmlSchemaSequence = New Global.System.Xml.Schema.XmlSchemaSequence()
919         Dim any As Global.System.Xml.Schema.XmlSchemaAny = New Global.System.Xml.Schema.XmlSchemaAny()
920         any.Namespace = ds.Namespace
921         sequence.Items.Add(any)
922         type.Particle = sequence
923         Dim dsSchema As Global.System.Xml.Schema.XmlSchema = ds.GetSchemaSerializable
924         If xs.Contains(dsSchema.TargetNamespace) Then
925             Dim s1 As Global.System.IO.MemoryStream = New Global.System.IO.MemoryStream()
926             Dim s2 As Global.System.IO.MemoryStream = New Global.System.IO.MemoryStream()
927             Try
928                 Dim schema As Global.System.Xml.Schema.XmlSchema = Nothing
929                 dsSchema.Write(s1)
930                 Dim schemas As Global.System.Collections.IEnumerator = xs.Schemas(dsSchema.TargetNamespace).GetEnumerator
931                 Do While schemas.MoveNext
932                     schema = CType(schemas.Current,Global.System.Xml.Schema.XmlSchema)
933                     s2.SetLength(0)
934                     schema.Write(s2)
935                     If (s1.Length = s2.Length) Then
936                         s1.Position = 0
937                         s2.Position = 0
938                         
939                         Do While ((s1.Position <> s1.Length) _
940                                     AndAlso (s1.ReadByte = s2.ReadByte))
941                             
942                             
943                         Loop
944                         If (s1.Position = s1.Length) Then
945                             Return type
946                         End If
947                     End If
948                     
949                 Loop
950             Finally
951                 If (Not (s1) Is Nothing) Then
952                     s1.Close
953                 End If
954                 If (Not (s2) Is Nothing) Then
955                     s2.Close
956                 End If
957             End Try
958         End If
959         xs.Add(dsSchema)
960         Return type
961     End Function
962     
963     <Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0")> _
964     Public Delegate Sub ActivationRowChangeEventHandler(ByVal sender As Object, ByVal e As ActivationRowChangeEvent)
965     
966     <Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0")> _
967     Public Delegate Sub CategoryRowChangeEventHandler(ByVal sender As Object, ByVal e As CategoryRowChangeEvent)
968     
969     <Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0")> _
970     Public Delegate Sub CompanyRowChangeEventHandler(ByVal sender As Object, ByVal e As CompanyRowChangeEvent)
971     
972     <Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0")> _
973     Public Delegate Sub Company_ContactsRowChangeEventHandler(ByVal sender As Object, ByVal e As Company_ContactsRowChangeEvent)
974     
975     <Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0")> _
976     Public Delegate Sub CustomerRowChangeEventHandler(ByVal sender As Object, ByVal e As CustomerRowChangeEvent)
977     
978     <Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0")> _
979     Public Delegate Sub Invoice_PaymentRowChangeEventHandler(ByVal sender As Object, ByVal e As Invoice_PaymentRowChangeEvent)
980     
981     <Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0")> _
982     Public Delegate Sub Invoice_ProductRowChangeEventHandler(ByVal sender As Object, ByVal e As Invoice_ProductRowChangeEvent)
983     
984     <Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0")> _
985     Public Delegate Sub InvoiceInfoRowChangeEventHandler(ByVal sender As Object, ByVal e As InvoiceInfoRowChangeEvent)
986     
987     <Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0")> _
988     Public Delegate Sub LogsRowChangeEventHandler(ByVal sender As Object, ByVal e As LogsRowChangeEvent)
989     
990     <Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0")> _
991     Public Delegate Sub ProductRowChangeEventHandler(ByVal sender As Object, ByVal e As ProductRowChangeEvent)
992     
993     <Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0")> _
994     Public Delegate Sub Product_JoinRowChangeEventHandler(ByVal sender As Object, ByVal e As Product_JoinRowChangeEvent)
995     
996     <Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0")> _
997     Public Delegate Sub QuotationRowChangeEventHandler(ByVal sender As Object, ByVal e As QuotationRowChangeEvent)
998     
999     <Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0")> _
1000     Public Delegate Sub Quotation_JoinRowChangeEventHandler(ByVal sender As Object, ByVal e As Quotation_JoinRowChangeEvent)
1001     
1002     <Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0")> _
1003     Public Delegate Sub RegistrationRowChangeEventHandler(ByVal sender As Object, ByVal e As RegistrationRowChangeEvent)
1004     
1005     <Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0")> _
1006     Public Delegate Sub ServiceRowChangeEventHandler(ByVal sender As Object, ByVal e As ServiceRowChangeEvent)
1007     
1008     <Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0")> _
1009     Public Delegate Sub StockRowChangeEventHandler(ByVal sender As Object, ByVal e As StockRowChangeEvent)
1010     
1011     <Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0")> _
1012     Public Delegate Sub Stock_ProductRowChangeEventHandler(ByVal sender As Object, ByVal e As Stock_ProductRowChangeEvent)
1013     
1014     <Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0")> _
1015     Public Delegate Sub SubCategoryRowChangeEventHandler(ByVal sender As Object, ByVal e As SubCategoryRowChangeEvent)
1016     
1017     <Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0")> _
1018     Public Delegate Sub SupplierRowChangeEventHandler(ByVal sender As Object, ByVal e As SupplierRowChangeEvent)
1019     
1020     <Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0")> _
1021     Public Delegate Sub Temp_StockRowChangeEventHandler(ByVal sender As Object, ByVal e As Temp_StockRowChangeEvent)
1022     
1023     '''<summary>
1024     '''Represents the strongly named DataTable class.
1025     '''</summary>
1026     <Global.System.Serializable(), _
1027      Global.System.Xml.Serialization.XmlSchemaProviderAttribute("GetTypedTableSchema")> _
1028     Partial Public Class ActivationDataTable
1029         Inherits Global.System.Data.TypedTableBase(Of ActivationRow)
1030         
1031         Private columnID As Global.System.Data.DataColumn
1032         
1033         Private columnHardwareID As Global.System.Data.DataColumn
1034         
1035         Private columnSerialNo As Global.System.Data.DataColumn
1036         
1037         Private columnActivationID As Global.System.Data.DataColumn
1038         
1039         <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
1040          Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0")> _
1041         Public Sub New()
1042             MyBase.New
1043             Me.TableName = "Activation"
1044             Me.BeginInit
1045             Me.InitClass
1046             Me.EndInit
1047         End Sub
1048         
1049         <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
1050          Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0")> _
1051         Friend Sub New(ByVal table As Global.System.Data.DataTable)
1052             MyBase.New
1053             Me.TableName = table.TableName
1054             If (table.CaseSensitive <> table.DataSet.CaseSensitive) Then
1055                 Me.CaseSensitive = table.CaseSensitive
1056             End If
1057             If (table.Locale.ToString <> table.DataSet.Locale.ToString) Then
1058                 Me.Locale = table.Locale
1059             End If
1060             If (table.Namespace <> table.DataSet.Namespace) Then
1061                 Me.Namespace = table.Namespace
1062             End If
1063             Me.Prefix = table.Prefix
1064             Me.MinimumCapacity = table.MinimumCapacity
1065         End Sub
1066         
1067         <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
1068          Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0")> _
1069         Protected Sub New(ByVal info As Global.System.Runtime.Serialization.SerializationInfo, ByVal context As Global.System.Runtime.Serialization.StreamingContext)
1070             MyBase.New(info, context)
1071             Me.InitVars
1072         End Sub
1073         
1074         <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
1075          Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0")> _
1076         Public ReadOnly Property IDColumn() As Global.System.Data.DataColumn
1077             Get
1078                 Return Me.columnID
1079             End Get
1080         End Property
1081         
1082         <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
1083          Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0")> _
1084         Public ReadOnly Property HardwareIDColumn() As Global.System.Data.DataColumn
1085             Get
1086                 Return Me.columnHardwareID
1087             End Get
1088         End Property
1089         
1090         <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
1091          Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0")> _
1092         Public ReadOnly Property SerialNoColumn() As Global.System.Data.DataColumn
1093             Get
1094                 Return Me.columnSerialNo
1095             End Get
1096         End Property
1097         
1098         <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
1099          Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0")> _
1100         Public ReadOnly Property ActivationIDColumn() As Global.System.Data.DataColumn
1101             Get
1102                 Return Me.columnActivationID
1103             End Get
1104         End Property
1105         
1106         <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
1107          Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0"), _
1108          Global.System.ComponentModel.Browsable(false)> _
1109         Public ReadOnly Property Count() As Integer
1110             Get
1111                 Return Me.Rows.Count
1112             End Get
1113         End Property
1114         
1115         <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
1116          Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0")> _
1117         Public Default ReadOnly Property Item(ByVal index As Integer) As ActivationRow
1118             Get
1119                 Return CType(Me.Rows(index),ActivationRow)
1120             End Get
1121         End Property
1122         
1123         <Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0")> _
1124         Public Event ActivationRowChanging As ActivationRowChangeEventHandler
1125         
1126         <Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0")> _
1127         Public Event ActivationRowChanged As ActivationRowChangeEventHandler
1128         
1129         <Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0")> _
1130         Public Event ActivationRowDeleting As ActivationRowChangeEventHandler
1131         
1132         <Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0")> _
1133         Public Event ActivationRowDeleted As ActivationRowChangeEventHandler
1134         
1135         <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
1136          Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0")> _
1137         Public Overloads Sub AddActivationRow(ByVal row As ActivationRow)
1138             Me.Rows.Add(row)
1139         End Sub
1140         
1141         <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
1142          Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0")> _
1143         Public Overloads Function AddActivationRow(ByVal HardwareID As String, ByVal SerialNo As String, ByVal ActivationID As String) As ActivationRow
1144             Dim rowActivationRow As ActivationRow = CType(Me.NewRow,ActivationRow)
1145             Dim columnValuesArray() As Object = New Object() {Nothing, HardwareID, SerialNo, ActivationID}
1146             rowActivationRow.ItemArray = columnValuesArray
1147             Me.Rows.Add(rowActivationRow)
1148             Return rowActivationRow
1149         End Function
1150         
1151         <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
1152          Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0")> _
1153         Public Function FindByID(ByVal ID As Integer) As ActivationRow
1154             Return CType(Me.Rows.Find(New Object() {ID}),ActivationRow)
1155         End Function
1156         
1157         <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
1158          Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0")> _
1159         Public Overrides Function Clone() As Global.System.Data.DataTable
1160             Dim cln As ActivationDataTable = CType(MyBase.Clone,ActivationDataTable)
1161             cln.InitVars
1162             Return cln
1163         End Function
1164         
1165         <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
1166          Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0")> _
1167         Protected Overrides Function CreateInstance() As Global.System.Data.DataTable
1168             Return New ActivationDataTable()
1169         End Function
1170         
1171         <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
1172          Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0")> _
1173         Friend Sub InitVars()
1174             Me.columnID = MyBase.Columns("ID")
1175             Me.columnHardwareID = MyBase.Columns("HardwareID")
1176             Me.columnSerialNo = MyBase.Columns("SerialNo")
1177             Me.columnActivationID = MyBase.Columns("ActivationID")
1178         End Sub
1179         
1180         <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
1181          Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0")> _
1182         Private Sub InitClass()
1183             Me.columnID = New Global.System.Data.DataColumn("ID", GetType(Integer), Nothing, Global.System.Data.MappingType.Element)
1184             MyBase.Columns.Add(Me.columnID)
1185             Me.columnHardwareID = New Global.System.Data.DataColumn("HardwareID", GetType(String), Nothing, Global.System.Data.MappingType.Element)
1186             MyBase.Columns.Add(Me.columnHardwareID)
1187             Me.columnSerialNo = New Global.System.Data.DataColumn("SerialNo", GetType(String), Nothing, Global.System.Data.MappingType.Element)
1188             MyBase.Columns.Add(Me.columnSerialNo)
1189             Me.columnActivationID = New Global.System.Data.DataColumn("ActivationID", GetType(String), Nothing, Global.System.Data.MappingType.Element)
1190             MyBase.Columns.Add(Me.columnActivationID)
1191             Me.Constraints.Add(New Global.System.Data.UniqueConstraint("Constraint1", New Global.System.Data.DataColumn() {Me.columnID}, true))
1192             Me.columnID.AutoIncrement = true
1193             Me.columnID.AutoIncrementSeed = -1
1194             Me.columnID.AutoIncrementStep = -1
1195             Me.columnID.AllowDBNull = false
1196             Me.columnID.ReadOnly = true
1197             Me.columnID.Unique = true
1198             Me.columnHardwareID.AllowDBNull = false
1199             Me.columnHardwareID.MaxLength = 100
1200             Me.columnSerialNo.AllowDBNull = false
1201             Me.columnSerialNo.MaxLength = 100
1202             Me.columnActivationID.AllowDBNull = false
1203             Me.columnActivationID.MaxLength = 150
1204         End Sub
1205         
1206         <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
1207          Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0")> _
1208         Public Function NewActivationRow() As ActivationRow
1209             Return CType(Me.NewRow,ActivationRow)
1210         End Function
1211         
1212         <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
1213          Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0")> _
1214         Protected Overrides Function NewRowFromBuilder(ByVal builder As Global.System.Data.DataRowBuilder) As Global.System.Data.DataRow
1215             Return New ActivationRow(builder)
1216         End Function
1217         
1218         <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
1219          Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0")> _
1220         Protected Overrides Function GetRowType() As Global.System.Type
1221             Return GetType(ActivationRow)
1222         End Function
1223         
1224         <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
1225          Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0")> _
1226         Protected Overrides Sub OnRowChanged(ByVal e As Global.System.Data.DataRowChangeEventArgs)
1227             MyBase.OnRowChanged(e)
1228             If (Not (Me.ActivationRowChangedEvent) Is Nothing) Then
1229                 RaiseEvent ActivationRowChanged(Me, New ActivationRowChangeEvent(CType(e.Row,ActivationRow), e.Action))
1230             End If
1231         End Sub
1232         
1233         <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
1234          Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0")> _
1235         Protected Overrides Sub OnRowChanging(ByVal e As Global.System.Data.DataRowChangeEventArgs)
1236             MyBase.OnRowChanging(e)
1237             If (Not (Me.ActivationRowChangingEvent) Is Nothing) Then
1238                 RaiseEvent ActivationRowChanging(Me, New ActivationRowChangeEvent(CType(e.Row,ActivationRow), e.Action))
1239             End If
1240         End Sub
1241         
1242         <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
1243          Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0")> _
1244         Protected Overrides Sub OnRowDeleted(ByVal e As Global.System.Data.DataRowChangeEventArgs)
1245             MyBase.OnRowDeleted(e)
1246             If (Not (Me.ActivationRowDeletedEvent) Is Nothing) Then
1247                 RaiseEvent ActivationRowDeleted(Me, New ActivationRowChangeEvent(CType(e.Row,ActivationRow), e.Action))
1248             End If
1249         End Sub
1250         
1251         <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
1252          Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0")> _
1253         Protected Overrides Sub OnRowDeleting(ByVal e As Global.System.Data.DataRowChangeEventArgs)
1254             MyBase.OnRowDeleting(e)
1255             If (Not (Me.ActivationRowDeletingEvent) Is Nothing) Then
1256                 RaiseEvent ActivationRowDeleting(Me, New ActivationRowChangeEvent(CType(e.Row,ActivationRow), e.Action))
1257             End If
1258         End Sub
1259         
1260         <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
1261          Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0")> _
1262         Public Sub RemoveActivationRow(ByVal row As ActivationRow)
1263             Me.Rows.Remove(row)
1264         End Sub
1265         
1266         <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
1267          Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0")> _
1268         Public Shared Function GetTypedTableSchema(ByVal xs As Global.System.Xml.Schema.XmlSchemaSet) As Global.System.Xml.Schema.XmlSchemaComplexType
1269             Dim type As Global.System.Xml.Schema.XmlSchemaComplexType = New Global.System.Xml.Schema.XmlSchemaComplexType()
1270             Dim sequence As Global.System.Xml.Schema.XmlSchemaSequence = New Global.System.Xml.Schema.XmlSchemaSequence()
1271             Dim ds As SIS_DBDataSet = New SIS_DBDataSet()
1272             Dim any1 As Global.System.Xml.Schema.XmlSchemaAny = New Global.System.Xml.Schema.XmlSchemaAny()
1273             any1.Namespace = "http://www.w3.org/2001/XMLSchema"
1274             any1.MinOccurs = New Decimal(0)
1275             any1.MaxOccurs = Decimal.MaxValue
1276             any1.ProcessContents = Global.System.Xml.Schema.XmlSchemaContentProcessing.Lax
1277             sequence.Items.Add(any1)
1278             Dim any2 As Global.System.Xml.Schema.XmlSchemaAny = New Global.System.Xml.Schema.XmlSchemaAny()
1279             any2.Namespace = "urn:schemas-microsoft-com:xml-diffgram-v1"
1280             any2.MinOccurs = New Decimal(1)
1281             any2.ProcessContents = Global.System.Xml.Schema.XmlSchemaContentProcessing.Lax
1282             sequence.Items.Add(any2)
1283             Dim attribute1 As Global.System.Xml.Schema.XmlSchemaAttribute = New Global.System.Xml.Schema.XmlSchemaAttribute()
1284             attribute1.Name = "namespace"
1285             attribute1.FixedValue = ds.Namespace
1286             type.Attributes.Add(attribute1)
1287             Dim attribute2 As Global.System.Xml.Schema.XmlSchemaAttribute = New Global.System.Xml.Schema.XmlSchemaAttribute()
1288             attribute2.Name = "tableTypeName"
1289             attribute2.FixedValue = "ActivationDataTable"
1290             type.Attributes.Add(attribute2)
1291             type.Particle = sequence
1292             Dim dsSchema As Global.System.Xml.Schema.XmlSchema = ds.GetSchemaSerializable
1293             If xs.Contains(dsSchema.TargetNamespace) Then
1294                 Dim s1 As Global.System.IO.MemoryStream = New Global.System.IO.MemoryStream()
1295                 Dim s2 As Global.System.IO.MemoryStream = New Global.System.IO.MemoryStream()
1296                 Try
1297                     Dim schema As Global.System.Xml.Schema.XmlSchema = Nothing
1298                     dsSchema.Write(s1)
1299                     Dim schemas As Global.System.Collections.IEnumerator = xs.Schemas(dsSchema.TargetNamespace).GetEnumerator
1300                     Do While schemas.MoveNext
1301                         schema = CType(schemas.Current,Global.System.Xml.Schema.XmlSchema)
1302                         s2.SetLength(0)
1303                         schema.Write(s2)
1304                         If (s1.Length = s2.Length) Then
1305                             s1.Position = 0
1306                             s2.Position = 0
1307                             
1308                             Do While ((s1.Position <> s1.Length) _
1309                                         AndAlso (s1.ReadByte = s2.ReadByte))
1310                                 
1311                                 
1312                             Loop
1313                             If (s1.Position = s1.Length) Then
1314                                 Return type
1315                             End If
1316                         End If
1317                         
1318                     Loop
1319                 Finally
1320                     If (Not (s1) Is Nothing) Then
1321                         s1.Close
1322                     End If
1323                     If (Not (s2) Is Nothing) Then
1324                         s2.Close
1325                     End If
1326                 End Try
1327             End If
1328             xs.Add(dsSchema)
1329             Return type
1330         End Function
1331     End Class
1332     
1333     '''<summary>
1334     '''Represents the strongly named DataTable class.
1335     '''</summary>
1336     <Global.System.Serializable(), _
1337      Global.System.Xml.Serialization.XmlSchemaProviderAttribute("GetTypedTableSchema")> _
1338     Partial Public Class CategoryDataTable
1339         Inherits Global.System.Data.TypedTableBase(Of CategoryRow)
1340         
1341         Private columnCategoryName As Global.System.Data.DataColumn
1342         
1343         <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
1344          Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0")> _
1345         Public Sub New()
1346             MyBase.New
1347             Me.TableName = "Category"
1348             Me.BeginInit
1349             Me.InitClass
1350             Me.EndInit
1351         End Sub
1352         
1353         <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
1354          Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0")> _
1355         Friend Sub New(ByVal table As Global.System.Data.DataTable)
1356             MyBase.New
1357             Me.TableName = table.TableName
1358             If (table.CaseSensitive <> table.DataSet.CaseSensitive) Then
1359                 Me.CaseSensitive = table.CaseSensitive
1360             End If
1361             If (table.Locale.ToString <> table.DataSet.Locale.ToString) Then
1362                 Me.Locale = table.Locale
1363             End If
1364             If (table.Namespace <> table.DataSet.Namespace) Then
1365                 Me.Namespace = table.Namespace
1366             End If
1367             Me.Prefix = table.Prefix
1368             Me.MinimumCapacity = table.MinimumCapacity
1369         End Sub
1370         
1371         <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
1372          Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0")> _
1373         Protected Sub New(ByVal info As Global.System.Runtime.Serialization.SerializationInfo, ByVal context As Global.System.Runtime.Serialization.StreamingContext)
1374             MyBase.New(info, context)
1375             Me.InitVars
1376         End Sub
1377         
1378         <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
1379          Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0")> _
1380         Public ReadOnly Property CategoryNameColumn() As Global.System.Data.DataColumn
1381             Get
1382                 Return Me.columnCategoryName
1383             End Get
1384         End Property
1385         
1386         <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
1387          Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0"), _
1388          Global.System.ComponentModel.Browsable(false)> _
1389         Public ReadOnly Property Count() As Integer
1390             Get
1391                 Return Me.Rows.Count
1392             End Get
1393         End Property
1394         
1395         <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
1396          Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0")> _
1397         Public Default ReadOnly Property Item(ByVal index As Integer) As CategoryRow
1398             Get
1399                 Return CType(Me.Rows(index),CategoryRow)
1400             End Get
1401         End Property
1402         
1403         <Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0")> _
1404         Public Event CategoryRowChanging As CategoryRowChangeEventHandler
1405         
1406         <Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0")> _
1407         Public Event CategoryRowChanged As CategoryRowChangeEventHandler
1408         
1409         <Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0")> _
1410         Public Event CategoryRowDeleting As CategoryRowChangeEventHandler
1411         
1412         <Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0")> _
1413         Public Event CategoryRowDeleted As CategoryRowChangeEventHandler
1414         
1415         <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
1416          Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0")> _
1417         Public Overloads Sub AddCategoryRow(ByVal row As CategoryRow)
1418             Me.Rows.Add(row)
1419         End Sub
1420         
1421         <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
1422          Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0")> _
1423         Public Overloads Function AddCategoryRow(ByVal CategoryName As String) As CategoryRow
1424             Dim rowCategoryRow As CategoryRow = CType(Me.NewRow,CategoryRow)
1425             Dim columnValuesArray() As Object = New Object() {CategoryName}
1426             rowCategoryRow.ItemArray = columnValuesArray
1427             Me.Rows.Add(rowCategoryRow)
1428             Return rowCategoryRow
1429         End Function
1430         
1431         <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
1432          Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0")> _
1433         Public Function FindByCategoryName(ByVal CategoryName As String) As CategoryRow
1434             Return CType(Me.Rows.Find(New Object() {CategoryName}),CategoryRow)
1435         End Function
1436         
1437         <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
1438          Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0")> _
1439         Public Overrides Function Clone() As Global.System.Data.DataTable
1440             Dim cln As CategoryDataTable = CType(MyBase.Clone,CategoryDataTable)
1441             cln.InitVars
1442             Return cln
1443         End Function
1444         
1445         <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
1446          Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0")> _
1447         Protected Overrides Function CreateInstance() As Global.System.Data.DataTable
1448             Return New CategoryDataTable()
1449         End Function
1450         
1451         <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
1452          Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0")> _
1453         Friend Sub InitVars()
1454             Me.columnCategoryName = MyBase.Columns("CategoryName")
1455         End Sub
1456         
1457         <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
1458          Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0")> _
1459         Private Sub InitClass()
1460             Me.columnCategoryName = New Global.System.Data.DataColumn("CategoryName", GetType(String), Nothing, Global.System.Data.MappingType.Element)
1461             MyBase.Columns.Add(Me.columnCategoryName)
1462             Me.Constraints.Add(New Global.System.Data.UniqueConstraint("Constraint1", New Global.System.Data.DataColumn() {Me.columnCategoryName}, true))
1463             Me.columnCategoryName.AllowDBNull = false
1464             Me.columnCategoryName.Unique = true
1465             Me.columnCategoryName.MaxLength = 150
1466         End Sub
1467         
1468         <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
1469          Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0")> _
1470         Public Function NewCategoryRow() As CategoryRow
1471             Return CType(Me.NewRow,CategoryRow)
1472         End Function
1473         
1474         <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
1475          Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0")> _
1476         Protected Overrides Function NewRowFromBuilder(ByVal builder As Global.System.Data.DataRowBuilder) As Global.System.Data.DataRow
1477             Return New CategoryRow(builder)
1478         End Function
1479         
1480         <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
1481          Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0")> _
1482         Protected Overrides Function GetRowType() As Global.System.Type
1483             Return GetType(CategoryRow)
1484         End Function
1485         
1486         <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
1487          Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0")> _
1488         Protected Overrides Sub OnRowChanged(ByVal e As Global.System.Data.DataRowChangeEventArgs)
1489             MyBase.OnRowChanged(e)
1490             If (Not (Me.CategoryRowChangedEvent) Is Nothing) Then
1491                 RaiseEvent CategoryRowChanged(Me, New CategoryRowChangeEvent(CType(e.Row,CategoryRow), e.Action))
1492             End If
1493         End Sub
1494         
1495         <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
1496          Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0")> _
1497         Protected Overrides Sub OnRowChanging(ByVal e As Global.System.Data.DataRowChangeEventArgs)
1498             MyBase.OnRowChanging(e)
1499             If (Not (Me.CategoryRowChangingEvent) Is Nothing) Then
1500                 RaiseEvent CategoryRowChanging(Me, New CategoryRowChangeEvent(CType(e.Row,CategoryRow), e.Action))
1501             End If
1502         End Sub
1503         
1504         <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
1505          Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0")> _
1506         Protected Overrides Sub OnRowDeleted(ByVal e As Global.System.Data.DataRowChangeEventArgs)
1507             MyBase.OnRowDeleted(e)
1508             If (Not (Me.CategoryRowDeletedEvent) Is Nothing) Then
1509                 RaiseEvent CategoryRowDeleted(Me, New CategoryRowChangeEvent(CType(e.Row,CategoryRow), e.Action))
1510             End If
1511         End Sub
1512         
1513         <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
1514          Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0")> _
1515         Protected Overrides Sub OnRowDeleting(ByVal e As Global.System.Data.DataRowChangeEventArgs)
1516             MyBase.OnRowDeleting(e)
1517             If (Not (Me.CategoryRowDeletingEvent) Is Nothing) Then
1518                 RaiseEvent CategoryRowDeleting(Me, New CategoryRowChangeEvent(CType(e.Row,CategoryRow), e.Action))
1519             End If
1520         End Sub
1521         
1522         <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
1523          Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0")> _
1524         Public Sub RemoveCategoryRow(ByVal row As CategoryRow)
1525             Me.Rows.Remove(row)
1526         End Sub
1527         
1528         <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
1529          Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0")> _
1530         Public Shared Function GetTypedTableSchema(ByVal xs As Global.System.Xml.Schema.XmlSchemaSet) As Global.System.Xml.Schema.XmlSchemaComplexType
1531             Dim type As Global.System.Xml.Schema.XmlSchemaComplexType = New Global.System.Xml.Schema.XmlSchemaComplexType()
1532             Dim sequence As Global.System.Xml.Schema.XmlSchemaSequence = New Global.System.Xml.Schema.XmlSchemaSequence()
1533             Dim ds As SIS_DBDataSet = New SIS_DBDataSet()
1534             Dim any1 As Global.System.Xml.Schema.XmlSchemaAny = New Global.System.Xml.Schema.XmlSchemaAny()
1535             any1.Namespace = "http://www.w3.org/2001/XMLSchema"
1536             any1.MinOccurs = New Decimal(0)
1537             any1.MaxOccurs = Decimal.MaxValue
1538             any1.ProcessContents = Global.System.Xml.Schema.XmlSchemaContentProcessing.Lax
1539             sequence.Items.Add(any1)
1540             Dim any2 As Global.System.Xml.Schema.XmlSchemaAny = New Global.System.Xml.Schema.XmlSchemaAny()
1541             any2.Namespace = "urn:schemas-microsoft-com:xml-diffgram-v1"
1542             any2.MinOccurs = New Decimal(1)
1543             any2.ProcessContents = Global.System.Xml.Schema.XmlSchemaContentProcessing.Lax
1544             sequence.Items.Add(any2)
1545             Dim attribute1 As Global.System.Xml.Schema.XmlSchemaAttribute = New Global.System.Xml.Schema.XmlSchemaAttribute()
1546             attribute1.Name = "namespace"
1547             attribute1.FixedValue = ds.Namespace
1548             type.Attributes.Add(attribute1)
1549             Dim attribute2 As Global.System.Xml.Schema.XmlSchemaAttribute = New Global.System.Xml.Schema.XmlSchemaAttribute()
1550             attribute2.Name = "tableTypeName"
1551             attribute2.FixedValue = "CategoryDataTable"
1552             type.Attributes.Add(attribute2)
1553             type.Particle = sequence
1554             Dim dsSchema As Global.System.Xml.Schema.XmlSchema = ds.GetSchemaSerializable
1555             If xs.Contains(dsSchema.TargetNamespace) Then
1556                 Dim s1 As Global.System.IO.MemoryStream = New Global.System.IO.MemoryStream()
1557                 Dim s2 As Global.System.IO.MemoryStream = New Global.System.IO.MemoryStream()
1558                 Try
1559                     Dim schema As Global.System.Xml.Schema.XmlSchema = Nothing
1560                     dsSchema.Write(s1)
1561                     Dim schemas As Global.System.Collections.IEnumerator = xs.Schemas(dsSchema.TargetNamespace).GetEnumerator
1562                     Do While schemas.MoveNext
1563                         schema = CType(schemas.Current,Global.System.Xml.Schema.XmlSchema)
1564                         s2.SetLength(0)
1565                         schema.Write(s2)
1566                         If (s1.Length = s2.Length) Then
1567                             s1.Position = 0
1568                             s2.Position = 0
1569                             
1570                             Do While ((s1.Position <> s1.Length) _
1571                                         AndAlso (s1.ReadByte = s2.ReadByte))
1572                                 
1573                                 
1574                             Loop
1575                             If (s1.Position = s1.Length) Then
1576                                 Return type
1577                             End If
1578                         End If
1579                         
1580                     Loop
1581                 Finally
1582                     If (Not (s1) Is Nothing) Then
1583                         s1.Close
1584                     End If
1585                     If (Not (s2) Is Nothing) Then
1586                         s2.Close
1587                     End If
1588                 End Try
1589             End If
1590             xs.Add(dsSchema)
1591             Return type
1592         End Function
1593     End Class
1594     
1595     '''<summary>
1596     '''Represents the strongly named DataTable class.
1597     '''</summary>
1598     <Global.System.Serializable(), _
1599      Global.System.Xml.Serialization.XmlSchemaProviderAttribute("GetTypedTableSchema")> _
1600     Partial Public Class CompanyDataTable
1601         Inherits Global.System.Data.TypedTableBase(Of CompanyRow)
1602         
1603         Private columnID As Global.System.Data.DataColumn
1604         
1605         Private columnCompanyName As Global.System.Data.DataColumn
1606         
1607         Private columnAddress As Global.System.Data.DataColumn
1608         
1609         Private columnContactNo As Global.System.Data.DataColumn
1610         
1611         Private columnEmailID As Global.System.Data.DataColumn
1612         
1613         Private columnLogo As Global.System.Data.DataColumn
1614         
1615         Private columnTIN As Global.System.Data.DataColumn
1616         
1617         Private columnSTNo As Global.System.Data.DataColumn
1618         
1619         Private columnCIN As Global.System.Data.DataColumn
1620         
1621         <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
1622          Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0")> _
1623         Public Sub New()
1624             MyBase.New
1625             Me.TableName = "Company"
1626             Me.BeginInit
1627             Me.InitClass
1628             Me.EndInit
1629         End Sub
1630         
1631         <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
1632          Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0")> _
1633         Friend Sub New(ByVal table As Global.System.Data.DataTable)
1634             MyBase.New
1635             Me.TableName = table.TableName
1636             If (table.CaseSensitive <> table.DataSet.CaseSensitive) Then
1637                 Me.CaseSensitive = table.CaseSensitive
1638             End If
1639             If (table.Locale.ToString <> table.DataSet.Locale.ToString) Then
1640                 Me.Locale = table.Locale
1641             End If
1642             If (table.Namespace <> table.DataSet.Namespace) Then
1643                 Me.Namespace = table.Namespace
1644             End If
1645             Me.Prefix = table.Prefix
1646             Me.MinimumCapacity = table.MinimumCapacity
1647         End Sub
1648         
1649         <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
1650          Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0")> _
1651         Protected Sub New(ByVal info As Global.System.Runtime.Serialization.SerializationInfo, ByVal context As Global.System.Runtime.Serialization.StreamingContext)
1652             MyBase.New(info, context)
1653             Me.InitVars
1654         End Sub
1655         
1656         <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
1657          Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0")> _
1658         Public ReadOnly Property IDColumn() As Global.System.Data.DataColumn
1659             Get
1660                 Return Me.columnID
1661             End Get
1662         End Property
1663         
1664         <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
1665          Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0")> _
1666         Public ReadOnly Property CompanyNameColumn() As Global.System.Data.DataColumn
1667             Get
1668                 Return Me.columnCompanyName
1669             End Get
1670         End Property
1671         
1672         <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
1673          Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0")> _
1674         Public ReadOnly Property AddressColumn() As Global.System.Data.DataColumn
1675             Get
1676                 Return Me.columnAddress
1677             End Get
1678         End Property
1679         
1680         <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
1681          Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0")> _
1682         Public ReadOnly Property ContactNoColumn() As Global.System.Data.DataColumn
1683             Get
1684                 Return Me.columnContactNo
1685             End Get
1686         End Property
1687         
1688         <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
1689          Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0")> _
1690         Public ReadOnly Property EmailIDColumn() As Global.System.Data.DataColumn
1691             Get
1692                 Return Me.columnEmailID
1693             End Get
1694         End Property
1695         
1696         <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
1697          Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0")> _
1698         Public ReadOnly Property LogoColumn() As Global.System.Data.DataColumn
1699             Get
1700                 Return Me.columnLogo
1701             End Get
1702         End Property
1703         
1704         <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
1705          Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0")> _
1706         Public ReadOnly Property TINColumn() As Global.System.Data.DataColumn
1707             Get
1708                 Return Me.columnTIN
1709             End Get
1710         End Property
1711         
1712         <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
1713          Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0")> _
1714         Public ReadOnly Property STNoColumn() As Global.System.Data.DataColumn
1715             Get
1716                 Return Me.columnSTNo
1717             End Get
1718         End Property
1719         
1720         <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
1721          Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0")> _
1722         Public ReadOnly Property CINColumn() As Global.System.Data.DataColumn
1723             Get
1724                 Return Me.columnCIN
1725             End Get
1726         End Property
1727         
1728         <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
1729          Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0"), _
1730          Global.System.ComponentModel.Browsable(false)> _
1731         Public ReadOnly Property Count() As Integer
1732             Get
1733                 Return Me.Rows.Count
1734             End Get
1735         End Property
1736         
1737         <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
1738          Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0")> _
1739         Public Default ReadOnly Property Item(ByVal index As Integer) As CompanyRow
1740             Get
1741                 Return CType(Me.Rows(index),CompanyRow)
1742             End Get
1743         End Property
1744         
1745         <Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0")> _
1746         Public Event CompanyRowChanging As CompanyRowChangeEventHandler
1747         
1748         <Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0")> _
1749         Public Event CompanyRowChanged As CompanyRowChangeEventHandler
1750         
1751         <Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0")> _
1752         Public Event CompanyRowDeleting As CompanyRowChangeEventHandler
1753         
1754         <Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0")> _
1755         Public Event CompanyRowDeleted As CompanyRowChangeEventHandler
1756         
1757         <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
1758          Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0")> _
1759         Public Overloads Sub AddCompanyRow(ByVal row As CompanyRow)
1760             Me.Rows.Add(row)
1761         End Sub
1762         
1763         <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
1764          Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0")> _
1765         Public Overloads Function AddCompanyRow(ByVal CompanyName As String, ByVal Address As String, ByVal ContactNo As String, ByVal EmailID As String, ByVal Logo() As Byte, ByVal TIN As String, ByVal STNo As String, ByVal CIN As String) As CompanyRow
1766             Dim rowCompanyRow As CompanyRow = CType(Me.NewRow,CompanyRow)
1767             Dim columnValuesArray() As Object = New Object() {Nothing, CompanyName, Address, ContactNo, EmailID, Logo, TIN, STNo, CIN}
1768             rowCompanyRow.ItemArray = columnValuesArray
1769             Me.Rows.Add(rowCompanyRow)
1770             Return rowCompanyRow
1771         End Function
1772         
1773         <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
1774          Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0")> _
1775         Public Function FindByID(ByVal ID As Integer) As CompanyRow
1776             Return CType(Me.Rows.Find(New Object() {ID}),CompanyRow)
1777         End Function
1778         
1779         <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
1780          Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0")> _
1781         Public Overrides Function Clone() As Global.System.Data.DataTable
1782             Dim cln As CompanyDataTable = CType(MyBase.Clone,CompanyDataTable)
1783             cln.InitVars
1784             Return cln
1785         End Function
1786         
1787         <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
1788          Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0")> _
1789         Protected Overrides Function CreateInstance() As Global.System.Data.DataTable
1790             Return New CompanyDataTable()
1791         End Function
1792         
1793         <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
1794          Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0")> _
1795         Friend Sub InitVars()
1796             Me.columnID = MyBase.Columns("ID")
1797             Me.columnCompanyName = MyBase.Columns("CompanyName")
1798             Me.columnAddress = MyBase.Columns("Address")
1799             Me.columnContactNo = MyBase.Columns("ContactNo")
1800             Me.columnEmailID = MyBase.Columns("EmailID")
1801             Me.columnLogo = MyBase.Columns("Logo")
1802             Me.columnTIN = MyBase.Columns("TIN")
1803             Me.columnSTNo = MyBase.Columns("STNo")
1804             Me.columnCIN = MyBase.Columns("CIN")
1805         End Sub
1806         
1807         <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
1808          Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0")> _
1809         Private Sub InitClass()
1810             Me.columnID = New Global.System.Data.DataColumn("ID", GetType(Integer), Nothing, Global.System.Data.MappingType.Element)
1811             MyBase.Columns.Add(Me.columnID)
1812             Me.columnCompanyName = New Global.System.Data.DataColumn("CompanyName", GetType(String), Nothing, Global.System.Data.MappingType.Element)
1813             MyBase.Columns.Add(Me.columnCompanyName)
1814             Me.columnAddress = New Global.System.Data.DataColumn("Address", GetType(String), Nothing, Global.System.Data.MappingType.Element)
1815             MyBase.Columns.Add(Me.columnAddress)
1816             Me.columnContactNo = New Global.System.Data.DataColumn("ContactNo", GetType(String), Nothing, Global.System.Data.MappingType.Element)
1817             MyBase.Columns.Add(Me.columnContactNo)
1818             Me.columnEmailID = New Global.System.Data.DataColumn("EmailID", GetType(String), Nothing, Global.System.Data.MappingType.Element)
1819             MyBase.Columns.Add(Me.columnEmailID)
1820             Me.columnLogo = New Global.System.Data.DataColumn("Logo", GetType(Byte()), Nothing, Global.System.Data.MappingType.Element)
1821             MyBase.Columns.Add(Me.columnLogo)
1822             Me.columnTIN = New Global.System.Data.DataColumn("TIN", GetType(String), Nothing, Global.System.Data.MappingType.Element)
1823             MyBase.Columns.Add(Me.columnTIN)
1824             Me.columnSTNo = New Global.System.Data.DataColumn("STNo", GetType(String), Nothing, Global.System.Data.MappingType.Element)
1825             MyBase.Columns.Add(Me.columnSTNo)
1826             Me.columnCIN = New Global.System.Data.DataColumn("CIN", GetType(String), Nothing, Global.System.Data.MappingType.Element)
1827             MyBase.Columns.Add(Me.columnCIN)
1828             Me.Constraints.Add(New Global.System.Data.UniqueConstraint("Constraint1", New Global.System.Data.DataColumn() {Me.columnID}, true))
1829             Me.columnID.AutoIncrement = true
1830             Me.columnID.AutoIncrementSeed = -1
1831             Me.columnID.AutoIncrementStep = -1
1832             Me.columnID.AllowDBNull = false
1833             Me.columnID.ReadOnly = true
1834             Me.columnID.Unique = true
1835             Me.columnCompanyName.AllowDBNull = false
1836             Me.columnCompanyName.MaxLength = 200
1837             Me.columnAddress.AllowDBNull = false
1838             Me.columnAddress.MaxLength = 250
1839             Me.columnContactNo.AllowDBNull = false
1840             Me.columnContactNo.MaxLength = 150
1841             Me.columnEmailID.AllowDBNull = false
1842             Me.columnEmailID.MaxLength = 150
1843             Me.columnLogo.AllowDBNull = false
1844             Me.columnTIN.MaxLength = 150
1845             Me.columnSTNo.MaxLength = 150
1846             Me.columnCIN.MaxLength = 150
1847         End Sub
1848         
1849         <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
1850          Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0")> _
1851         Public Function NewCompanyRow() As CompanyRow
1852             Return CType(Me.NewRow,CompanyRow)
1853         End Function
1854         
1855         <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
1856          Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0")> _
1857         Protected Overrides Function NewRowFromBuilder(ByVal builder As Global.System.Data.DataRowBuilder) As Global.System.Data.DataRow
1858             Return New CompanyRow(builder)
1859         End Function
1860         
1861         <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
1862          Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0")> _
1863         Protected Overrides Function GetRowType() As Global.System.Type
1864             Return GetType(CompanyRow)
1865         End Function
1866         
1867         <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
1868          Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0")> _
1869         Protected Overrides Sub OnRowChanged(ByVal e As Global.System.Data.DataRowChangeEventArgs)
1870             MyBase.OnRowChanged(e)
1871             If (Not (Me.CompanyRowChangedEvent) Is Nothing) Then
1872                 RaiseEvent CompanyRowChanged(Me, New CompanyRowChangeEvent(CType(e.Row,CompanyRow), e.Action))
1873             End If
1874         End Sub
1875         
1876         <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
1877          Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0")> _
1878         Protected Overrides Sub OnRowChanging(ByVal e As Global.System.Data.DataRowChangeEventArgs)
1879             MyBase.OnRowChanging(e)
1880             If (Not (Me.CompanyRowChangingEvent) Is Nothing) Then
1881                 RaiseEvent CompanyRowChanging(Me, New CompanyRowChangeEvent(CType(e.Row,CompanyRow), e.Action))
1882             End If
1883         End Sub
1884         
1885         <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
1886          Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0")> _
1887         Protected Overrides Sub OnRowDeleted(ByVal e As Global.System.Data.DataRowChangeEventArgs)
1888             MyBase.OnRowDeleted(e)
1889             If (Not (Me.CompanyRowDeletedEvent) Is Nothing) Then
1890                 RaiseEvent CompanyRowDeleted(Me, New CompanyRowChangeEvent(CType(e.Row,CompanyRow), e.Action))
1891             End If
1892         End Sub
1893         
1894         <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
1895          Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0")> _
1896         Protected Overrides Sub OnRowDeleting(ByVal e As Global.System.Data.DataRowChangeEventArgs)
1897             MyBase.OnRowDeleting(e)
1898             If (Not (Me.CompanyRowDeletingEvent) Is Nothing) Then
1899                 RaiseEvent CompanyRowDeleting(Me, New CompanyRowChangeEvent(CType(e.Row,CompanyRow), e.Action))
1900             End If
1901         End Sub
1902         
1903         <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
1904          Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0")> _
1905         Public Sub RemoveCompanyRow(ByVal row As CompanyRow)
1906             Me.Rows.Remove(row)
1907         End Sub
1908         
1909         <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
1910          Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0")> _
1911         Public Shared Function GetTypedTableSchema(ByVal xs As Global.System.Xml.Schema.XmlSchemaSet) As Global.System.Xml.Schema.XmlSchemaComplexType
1912             Dim type As Global.System.Xml.Schema.XmlSchemaComplexType = New Global.System.Xml.Schema.XmlSchemaComplexType()
1913             Dim sequence As Global.System.Xml.Schema.XmlSchemaSequence = New Global.System.Xml.Schema.XmlSchemaSequence()
1914             Dim ds As SIS_DBDataSet = New SIS_DBDataSet()
1915             Dim any1 As Global.System.Xml.Schema.XmlSchemaAny = New Global.System.Xml.Schema.XmlSchemaAny()
1916             any1.Namespace = "http://www.w3.org/2001/XMLSchema"
1917             any1.MinOccurs = New Decimal(0)
1918             any1.MaxOccurs = Decimal.MaxValue
1919             any1.ProcessContents = Global.System.Xml.Schema.XmlSchemaContentProcessing.Lax
1920             sequence.Items.Add(any1)
1921             Dim any2 As Global.System.Xml.Schema.XmlSchemaAny = New Global.System.Xml.Schema.XmlSchemaAny()
1922             any2.Namespace = "urn:schemas-microsoft-com:xml-diffgram-v1"
1923             any2.MinOccurs = New Decimal(1)
1924             any2.ProcessContents = Global.System.Xml.Schema.XmlSchemaContentProcessing.Lax
1925             sequence.Items.Add(any2)
1926             Dim attribute1 As Global.System.Xml.Schema.XmlSchemaAttribute = New Global.System.Xml.Schema.XmlSchemaAttribute()
1927             attribute1.Name = "namespace"
1928             attribute1.FixedValue = ds.Namespace
1929             type.Attributes.Add(attribute1)
1930             Dim attribute2 As Global.System.Xml.Schema.XmlSchemaAttribute = New Global.System.Xml.Schema.XmlSchemaAttribute()
1931             attribute2.Name = "tableTypeName"
1932             attribute2.FixedValue = "CompanyDataTable"
1933             type.Attributes.Add(attribute2)
1934             type.Particle = sequence
1935             Dim dsSchema As Global.System.Xml.Schema.XmlSchema = ds.GetSchemaSerializable
1936             If xs.Contains(dsSchema.TargetNamespace) Then
1937                 Dim s1 As Global.System.IO.MemoryStream = New Global.System.IO.MemoryStream()
1938                 Dim s2 As Global.System.IO.MemoryStream = New Global.System.IO.MemoryStream()
1939                 Try
1940                     Dim schema As Global.System.Xml.Schema.XmlSchema = Nothing
1941                     dsSchema.Write(s1)
1942                     Dim schemas As Global.System.Collections.IEnumerator = xs.Schemas(dsSchema.TargetNamespace).GetEnumerator
1943                     Do While schemas.MoveNext
1944                         schema = CType(schemas.Current,Global.System.Xml.Schema.XmlSchema)
1945                         s2.SetLength(0)
1946                         schema.Write(s2)
1947                         If (s1.Length = s2.Length) Then
1948                             s1.Position = 0
1949                             s2.Position = 0
1950                             
1951                             Do While ((s1.Position <> s1.Length) _
1952                                         AndAlso (s1.ReadByte = s2.ReadByte))
1953                                 
1954                                 
1955                             Loop
1956                             If (s1.Position = s1.Length) Then
1957                                 Return type
1958                             End If
1959                         End If
1960                         
1961                     Loop
1962                 Finally
1963                     If (Not (s1) Is Nothing) Then
1964                         s1.Close
1965                     End If
1966                     If (Not (s2) Is Nothing) Then
1967                         s2.Close
1968                     End If
1969                 End Try
1970             End If
1971             xs.Add(dsSchema)
1972             Return type
1973         End Function
1974     End Class
1975     
1976     '''<summary>
1977     '''Represents the strongly named DataTable class.
1978     '''</summary>
1979     <Global.System.Serializable(), _
1980      Global.System.Xml.Serialization.XmlSchemaProviderAttribute("GetTypedTableSchema")> _
1981     Partial Public Class Company_ContactsDataTable
1982         Inherits Global.System.Data.TypedTableBase(Of Company_ContactsRow)
1983         
1984         Private columnId As Global.System.Data.DataColumn
1985         
1986         Private columnContactPerson As Global.System.Data.DataColumn
1987         
1988         Private columnContactNo As Global.System.Data.DataColumn
1989         
1990         <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
1991          Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0")> _
1992         Public Sub New()
1993             MyBase.New
1994             Me.TableName = "Company_Contacts"
1995             Me.BeginInit
1996             Me.InitClass
1997             Me.EndInit
1998         End Sub
1999         
2000         <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
2001          Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0")> _
2002         Friend Sub New(ByVal table As Global.System.Data.DataTable)
2003             MyBase.New
2004             Me.TableName = table.TableName
2005             If (table.CaseSensitive <> table.DataSet.CaseSensitive) Then
2006                 Me.CaseSensitive = table.CaseSensitive
2007             End If
2008             If (table.Locale.ToString <> table.DataSet.Locale.ToString) Then
2009                 Me.Locale = table.Locale
2010             End If
2011             If (table.Namespace <> table.DataSet.Namespace) Then
2012                 Me.Namespace = table.Namespace
2013             End If
2014             Me.Prefix = table.Prefix
2015             Me.MinimumCapacity = table.MinimumCapacity
2016         End Sub
2017         
2018         <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
2019          Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0")> _
2020         Protected Sub New(ByVal info As Global.System.Runtime.Serialization.SerializationInfo, ByVal context As Global.System.Runtime.Serialization.StreamingContext)
2021             MyBase.New(info, context)
2022             Me.InitVars
2023         End Sub
2024         
2025         <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
2026          Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0")> _
2027         Public ReadOnly Property IdColumn() As Global.System.Data.DataColumn
2028             Get
2029                 Return Me.columnId
2030             End Get
2031         End Property
2032         
2033         <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
2034          Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0")> _
2035         Public ReadOnly Property ContactPersonColumn() As Global.System.Data.DataColumn
2036             Get
2037                 Return Me.columnContactPerson
2038             End Get
2039         End Property
2040         
2041         <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
2042          Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0")> _
2043         Public ReadOnly Property ContactNoColumn() As Global.System.Data.DataColumn
2044             Get
2045                 Return Me.columnContactNo
2046             End Get
2047         End Property
2048         
2049         <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
2050          Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0"), _
2051          Global.System.ComponentModel.Browsable(false)> _
2052         Public ReadOnly Property Count() As Integer
2053             Get
2054                 Return Me.Rows.Count
2055             End Get
2056         End Property
2057         
2058         <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
2059          Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0")> _
2060         Public Default ReadOnly Property Item(ByVal index As Integer) As Company_ContactsRow
2061             Get
2062                 Return CType(Me.Rows(index),Company_ContactsRow)
2063             End Get
2064         End Property
2065         
2066         <Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0")> _
2067         Public Event Company_ContactsRowChanging As Company_ContactsRowChangeEventHandler
2068         
2069         <Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0")> _
2070         Public Event Company_ContactsRowChanged As Company_ContactsRowChangeEventHandler
2071         
2072         <Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0")> _
2073         Public Event Company_ContactsRowDeleting As Company_ContactsRowChangeEventHandler
2074         
2075         <Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0")> _
2076         Public Event Company_ContactsRowDeleted As Company_ContactsRowChangeEventHandler
2077         
2078         <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
2079          Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0")> _
2080         Public Overloads Sub AddCompany_ContactsRow(ByVal row As Company_ContactsRow)
2081             Me.Rows.Add(row)
2082         End Sub
2083         
2084         <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
2085          Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0")> _
2086         Public Overloads Function AddCompany_ContactsRow(ByVal ContactPerson As String, ByVal ContactNo As String) As Company_ContactsRow
2087             Dim rowCompany_ContactsRow As Company_ContactsRow = CType(Me.NewRow,Company_ContactsRow)
2088             Dim columnValuesArray() As Object = New Object() {Nothing, ContactPerson, ContactNo}
2089             rowCompany_ContactsRow.ItemArray = columnValuesArray
2090             Me.Rows.Add(rowCompany_ContactsRow)
2091             Return rowCompany_ContactsRow
2092         End Function
2093         
2094         <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
2095          Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0")> _
2096         Public Function FindById(ByVal Id As Integer) As Company_ContactsRow
2097             Return CType(Me.Rows.Find(New Object() {Id}),Company_ContactsRow)
2098         End Function
2099         
2100         <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
2101          Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0")> _
2102         Public Overrides Function Clone() As Global.System.Data.DataTable
2103             Dim cln As Company_ContactsDataTable = CType(MyBase.Clone,Company_ContactsDataTable)
2104             cln.InitVars
2105             Return cln
2106         End Function
2107         
2108         <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
2109          Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0")> _
2110         Protected Overrides Function CreateInstance() As Global.System.Data.DataTable
2111             Return New Company_ContactsDataTable()
2112         End Function
2113         
2114         <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
2115          Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0")> _
2116         Friend Sub InitVars()
2117             Me.columnId = MyBase.Columns("Id")
2118             Me.columnContactPerson = MyBase.Columns("ContactPerson")
2119             Me.columnContactNo = MyBase.Columns("ContactNo")
2120         End Sub
2121         
2122         <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
2123          Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0")> _
2124         Private Sub InitClass()
2125             Me.columnId = New Global.System.Data.DataColumn("Id", GetType(Integer), Nothing, Global.System.Data.MappingType.Element)
2126             MyBase.Columns.Add(Me.columnId)
2127             Me.columnContactPerson = New Global.System.Data.DataColumn("ContactPerson", GetType(String), Nothing, Global.System.Data.MappingType.Element)
2128             MyBase.Columns.Add(Me.columnContactPerson)
2129             Me.columnContactNo = New Global.System.Data.DataColumn("ContactNo", GetType(String), Nothing, Global.System.Data.MappingType.Element)
2130             MyBase.Columns.Add(Me.columnContactNo)
2131             Me.Constraints.Add(New Global.System.Data.UniqueConstraint("Constraint1", New Global.System.Data.DataColumn() {Me.columnId}, true))
2132             Me.columnId.AutoIncrement = true
2133             Me.columnId.AutoIncrementSeed = -1
2134             Me.columnId.AutoIncrementStep = -1
2135             Me.columnId.AllowDBNull = false
2136             Me.columnId.ReadOnly = true
2137             Me.columnId.Unique = true
2138             Me.columnContactPerson.AllowDBNull = false
2139             Me.columnContactPerson.MaxLength = 150
2140             Me.columnContactNo.AllowDBNull = false
2141             Me.columnContactNo.MaxLength = 150
2142         End Sub
2143         
2144         <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
2145          Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0")> _
2146         Public Function NewCompany_ContactsRow() As Company_ContactsRow
2147             Return CType(Me.NewRow,Company_ContactsRow)
2148         End Function
2149         
2150         <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
2151          Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0")> _
2152         Protected Overrides Function NewRowFromBuilder(ByVal builder As Global.System.Data.DataRowBuilder) As Global.System.Data.DataRow
2153             Return New Company_ContactsRow(builder)
2154         End Function
2155         
2156         <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
2157          Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0")> _
2158         Protected Overrides Function GetRowType() As Global.System.Type
2159             Return GetType(Company_ContactsRow)
2160         End Function
2161         
2162         <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
2163          Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0")> _
2164         Protected Overrides Sub OnRowChanged(ByVal e As Global.System.Data.DataRowChangeEventArgs)
2165             MyBase.OnRowChanged(e)
2166             If (Not (Me.Company_ContactsRowChangedEvent) Is Nothing) Then
2167                 RaiseEvent Company_ContactsRowChanged(Me, New Company_ContactsRowChangeEvent(CType(e.Row,Company_ContactsRow), e.Action))
2168             End If
2169         End Sub
2170         
2171         <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
2172          Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0")> _
2173         Protected Overrides Sub OnRowChanging(ByVal e As Global.System.Data.DataRowChangeEventArgs)
2174             MyBase.OnRowChanging(e)
2175             If (Not (Me.Company_ContactsRowChangingEvent) Is Nothing) Then
2176                 RaiseEvent Company_ContactsRowChanging(Me, New Company_ContactsRowChangeEvent(CType(e.Row,Company_ContactsRow), e.Action))
2177             End If
2178         End Sub
2179         
2180         <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
2181          Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0")> _
2182         Protected Overrides Sub OnRowDeleted(ByVal e As Global.System.Data.DataRowChangeEventArgs)
2183             MyBase.OnRowDeleted(e)
2184             If (Not (Me.Company_ContactsRowDeletedEvent) Is Nothing) Then
2185                 RaiseEvent Company_ContactsRowDeleted(Me, New Company_ContactsRowChangeEvent(CType(e.Row,Company_ContactsRow), e.Action))
2186             End If
2187         End Sub
2188         
2189         <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
2190          Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0")> _
2191         Protected Overrides Sub OnRowDeleting(ByVal e As Global.System.Data.DataRowChangeEventArgs)
2192             MyBase.OnRowDeleting(e)
2193             If (Not (Me.Company_ContactsRowDeletingEvent) Is Nothing) Then
2194                 RaiseEvent Company_ContactsRowDeleting(Me, New Company_ContactsRowChangeEvent(CType(e.Row,Company_ContactsRow), e.Action))
2195             End If
2196         End Sub
2197         
2198         <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
2199          Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0")> _
2200         Public Sub RemoveCompany_ContactsRow(ByVal row As Company_ContactsRow)
2201             Me.Rows.Remove(row)
2202         End Sub
2203         
2204         <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
2205          Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0")> _
2206         Public Shared Function GetTypedTableSchema(ByVal xs As Global.System.Xml.Schema.XmlSchemaSet) As Global.System.Xml.Schema.XmlSchemaComplexType
2207             Dim type As Global.System.Xml.Schema.XmlSchemaComplexType = New Global.System.Xml.Schema.XmlSchemaComplexType()
2208             Dim sequence As Global.System.Xml.Schema.XmlSchemaSequence = New Global.System.Xml.Schema.XmlSchemaSequence()
2209             Dim ds As SIS_DBDataSet = New SIS_DBDataSet()
2210             Dim any1 As Global.System.Xml.Schema.XmlSchemaAny = New Global.System.Xml.Schema.XmlSchemaAny()
2211             any1.Namespace = "http://www.w3.org/2001/XMLSchema"
2212             any1.MinOccurs = New Decimal(0)
2213             any1.MaxOccurs = Decimal.MaxValue
2214             any1.ProcessContents = Global.System.Xml.Schema.XmlSchemaContentProcessing.Lax
2215             sequence.Items.Add(any1)
2216             Dim any2 As Global.System.Xml.Schema.XmlSchemaAny = New Global.System.Xml.Schema.XmlSchemaAny()
2217             any2.Namespace = "urn:schemas-microsoft-com:xml-diffgram-v1"
2218             any2.MinOccurs = New Decimal(1)
2219             any2.ProcessContents = Global.System.Xml.Schema.XmlSchemaContentProcessing.Lax
2220             sequence.Items.Add(any2)
2221             Dim attribute1 As Global.System.Xml.Schema.XmlSchemaAttribute = New Global.System.Xml.Schema.XmlSchemaAttribute()
2222             attribute1.Name = "namespace"
2223             attribute1.FixedValue = ds.Namespace
2224             type.Attributes.Add(attribute1)
2225             Dim attribute2 As Global.System.Xml.Schema.XmlSchemaAttribute = New Global.System.Xml.Schema.XmlSchemaAttribute()
2226             attribute2.Name = "tableTypeName"
2227             attribute2.FixedValue = "Company_ContactsDataTable"
2228             type.Attributes.Add(attribute2)
2229             type.Particle = sequence
2230             Dim dsSchema As Global.System.Xml.Schema.XmlSchema = ds.GetSchemaSerializable
2231             If xs.Contains(dsSchema.TargetNamespace) Then
2232                 Dim s1 As Global.System.IO.MemoryStream = New Global.System.IO.MemoryStream()
2233                 Dim s2 As Global.System.IO.MemoryStream = New Global.System.IO.MemoryStream()
2234                 Try
2235                     Dim schema As Global.System.Xml.Schema.XmlSchema = Nothing
2236                     dsSchema.Write(s1)
2237                     Dim schemas As Global.System.Collections.IEnumerator = xs.Schemas(dsSchema.TargetNamespace).GetEnumerator
2238                     Do While schemas.MoveNext
2239                         schema = CType(schemas.Current,Global.System.Xml.Schema.XmlSchema)
2240                         s2.SetLength(0)
2241                         schema.Write(s2)
2242                         If (s1.Length = s2.Length) Then
2243                             s1.Position = 0
2244                             s2.Position = 0
2245                             
2246                             Do While ((s1.Position <> s1.Length) _
2247                                         AndAlso (s1.ReadByte = s2.ReadByte))
2248                                 
2249                                 
2250                             Loop
2251                             If (s1.Position = s1.Length) Then
2252                                 Return type
2253                             End If
2254                         End If
2255                         
2256                     Loop
2257                 Finally
2258                     If (Not (s1) Is Nothing) Then
2259                         s1.Close
2260                     End If
2261                     If (Not (s2) Is Nothing) Then
2262                         s2.Close
2263                     End If
2264                 End Try
2265             End If
2266             xs.Add(dsSchema)
2267             Return type
2268         End Function
2269     End Class
2270     
2271     '''<summary>
2272     '''Represents the strongly named DataTable class.
2273     '''</summary>
2274     <Global.System.Serializable(), _
2275      Global.System.Xml.Serialization.XmlSchemaProviderAttribute("GetTypedTableSchema")> _
2276     Partial Public Class CustomerDataTable
2277         Inherits Global.System.Data.TypedTableBase(Of CustomerRow)
2278         
2279         Private columnID As Global.System.Data.DataColumn
2280         
2281         Private columnCustomerID As Global.System.Data.DataColumn
2282         
2283         Private columnName As Global.System.Data.DataColumn
2284         
2285         Private columnGender As Global.System.Data.DataColumn
2286         
2287         Private columnAddress As Global.System.Data.DataColumn
2288         
2289         Private columnCity As Global.System.Data.DataColumn
2290         
2291         Private columnState As Global.System.Data.DataColumn
2292         
2293         Private columnZipCode As Global.System.Data.DataColumn
2294         
2295         Private columnContactNo As Global.System.Data.DataColumn
2296         
2297         Private columnEmailID As Global.System.Data.DataColumn
2298         
2299         Private columnRemarks As Global.System.Data.DataColumn
2300         
2301         Private columnPhoto As Global.System.Data.DataColumn
2302         
2303         <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
2304          Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0")> _
2305         Public Sub New()
2306             MyBase.New
2307             Me.TableName = "Customer"
2308             Me.BeginInit
2309             Me.InitClass
2310             Me.EndInit
2311         End Sub
2312         
2313         <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
2314          Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0")> _
2315         Friend Sub New(ByVal table As Global.System.Data.DataTable)
2316             MyBase.New
2317             Me.TableName = table.TableName
2318             If (table.CaseSensitive <> table.DataSet.CaseSensitive) Then
2319                 Me.CaseSensitive = table.CaseSensitive
2320             End If
2321             If (table.Locale.ToString <> table.DataSet.Locale.ToString) Then
2322                 Me.Locale = table.Locale
2323             End If
2324             If (table.Namespace <> table.DataSet.Namespace) Then
2325                 Me.Namespace = table.Namespace
2326             End If
2327             Me.Prefix = table.Prefix
2328             Me.MinimumCapacity = table.MinimumCapacity
2329         End Sub
2330         
2331         <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
2332          Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0")> _
2333         Protected Sub New(ByVal info As Global.System.Runtime.Serialization.SerializationInfo, ByVal context As Global.System.Runtime.Serialization.StreamingContext)
2334             MyBase.New(info, context)
2335             Me.InitVars
2336         End Sub
2337         
2338         <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
2339          Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0")> _
2340         Public ReadOnly Property IDColumn() As Global.System.Data.DataColumn
2341             Get
2342                 Return Me.columnID
2343             End Get
2344         End Property
2345         
2346         <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
2347          Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0")> _
2348         Public ReadOnly Property CustomerIDColumn() As Global.System.Data.DataColumn
2349             Get
2350                 Return Me.columnCustomerID
2351             End Get
2352         End Property
2353         
2354         <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
2355          Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0")> _
2356         Public ReadOnly Property NameColumn() As Global.System.Data.DataColumn
2357             Get
2358                 Return Me.columnName
2359             End Get
2360         End Property
2361         
2362         <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
2363          Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0")> _
2364         Public ReadOnly Property GenderColumn() As Global.System.Data.DataColumn
2365             Get
2366                 Return Me.columnGender
2367             End Get
2368         End Property
2369         
2370         <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
2371          Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0")> _
2372         Public ReadOnly Property AddressColumn() As Global.System.Data.DataColumn
2373             Get
2374                 Return Me.columnAddress
2375             End Get
2376         End Property
2377         
2378         <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
2379          Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0")> _
2380         Public ReadOnly Property CityColumn() As Global.System.Data.DataColumn
2381             Get
2382                 Return Me.columnCity
2383             End Get
2384         End Property
2385         
2386         <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
2387          Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0")> _
2388         Public ReadOnly Property StateColumn() As Global.System.Data.DataColumn
2389             Get
2390                 Return Me.columnState
2391             End Get
2392         End Property
2393         
2394         <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
2395          Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0")> _
2396         Public ReadOnly Property ZipCodeColumn() As Global.System.Data.DataColumn
2397             Get
2398                 Return Me.columnZipCode
2399             End Get
2400         End Property
2401         
2402         <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
2403          Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0")> _
2404         Public ReadOnly Property ContactNoColumn() As Global.System.Data.DataColumn
2405             Get
2406                 Return Me.columnContactNo
2407             End Get
2408         End Property
2409         
2410         <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
2411          Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0")> _
2412         Public ReadOnly Property EmailIDColumn() As Global.System.Data.DataColumn
2413             Get
2414                 Return Me.columnEmailID
2415             End Get
2416         End Property
2417         
2418         <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
2419          Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0")> _
2420         Public ReadOnly Property RemarksColumn() As Global.System.Data.DataColumn
2421             Get
2422                 Return Me.columnRemarks
2423             End Get
2424         End Property
2425         
2426         <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
2427          Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0")> _
2428         Public ReadOnly Property PhotoColumn() As Global.System.Data.DataColumn
2429             Get
2430                 Return Me.columnPhoto
2431             End Get
2432         End Property
2433         
2434         <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
2435          Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0"), _
2436          Global.System.ComponentModel.Browsable(false)> _
2437         Public ReadOnly Property Count() As Integer
2438             Get
2439                 Return Me.Rows.Count
2440             End Get
2441         End Property
2442         
2443         <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
2444          Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0")> _
2445         Public Default ReadOnly Property Item(ByVal index As Integer) As CustomerRow
2446             Get
2447                 Return CType(Me.Rows(index),CustomerRow)
2448             End Get
2449         End Property
2450         
2451         <Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0")> _
2452         Public Event CustomerRowChanging As CustomerRowChangeEventHandler
2453         
2454         <Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0")> _
2455         Public Event CustomerRowChanged As CustomerRowChangeEventHandler
2456         
2457         <Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0")> _
2458         Public Event CustomerRowDeleting As CustomerRowChangeEventHandler
2459         
2460         <Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0")> _
2461         Public Event CustomerRowDeleted As CustomerRowChangeEventHandler
2462         
2463         <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
2464          Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0")> _
2465         Public Overloads Sub AddCustomerRow(ByVal row As CustomerRow)
2466             Me.Rows.Add(row)
2467         End Sub
2468         
2469         <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
2470          Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0")> _
2471         Public Overloads Function AddCustomerRow(ByVal ID As Integer, ByVal CustomerID As String, ByVal Name As String, ByVal Gender As String, ByVal Address As String, ByVal City As String, ByVal State As String, ByVal ZipCode As String, ByVal ContactNo As String, ByVal EmailID As String, ByVal Remarks As String, ByVal Photo() As Byte) As CustomerRow
2472             Dim rowCustomerRow As CustomerRow = CType(Me.NewRow,CustomerRow)
2473             Dim columnValuesArray() As Object = New Object() {ID, CustomerID, Name, Gender, Address, City, State, ZipCode, ContactNo, EmailID, Remarks, Photo}
2474             rowCustomerRow.ItemArray = columnValuesArray
2475             Me.Rows.Add(rowCustomerRow)
2476             Return rowCustomerRow
2477         End Function
2478         
2479         <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
2480          Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0")> _
2481         Public Function FindByID(ByVal ID As Integer) As CustomerRow
2482             Return CType(Me.Rows.Find(New Object() {ID}),CustomerRow)
2483         End Function
2484         
2485         <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
2486          Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0")> _
2487         Public Overrides Function Clone() As Global.System.Data.DataTable
2488             Dim cln As CustomerDataTable = CType(MyBase.Clone,CustomerDataTable)
2489             cln.InitVars
2490             Return cln
2491         End Function
2492         
2493         <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
2494          Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0")> _
2495         Protected Overrides Function CreateInstance() As Global.System.Data.DataTable
2496             Return New CustomerDataTable()
2497         End Function
2498         
2499         <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
2500          Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0")> _
2501         Friend Sub InitVars()
2502             Me.columnID = MyBase.Columns("ID")
2503             Me.columnCustomerID = MyBase.Columns("CustomerID")
2504             Me.columnName = MyBase.Columns("Name")
2505             Me.columnGender = MyBase.Columns("Gender")
2506             Me.columnAddress = MyBase.Columns("Address")
2507             Me.columnCity = MyBase.Columns("City")
2508             Me.columnState = MyBase.Columns("State")
2509             Me.columnZipCode = MyBase.Columns("ZipCode")
2510             Me.columnContactNo = MyBase.Columns("ContactNo")
2511             Me.columnEmailID = MyBase.Columns("EmailID")
2512             Me.columnRemarks = MyBase.Columns("Remarks")
2513             Me.columnPhoto = MyBase.Columns("Photo")
2514         End Sub
2515         
2516         <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
2517          Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0")> _
2518         Private Sub InitClass()
2519             Me.columnID = New Global.System.Data.DataColumn("ID", GetType(Integer), Nothing, Global.System.Data.MappingType.Element)
2520             MyBase.Columns.Add(Me.columnID)
2521             Me.columnCustomerID = New Global.System.Data.DataColumn("CustomerID", GetType(String), Nothing, Global.System.Data.MappingType.Element)
2522             MyBase.Columns.Add(Me.columnCustomerID)
2523             Me.columnName = New Global.System.Data.DataColumn("Name", GetType(String), Nothing, Global.System.Data.MappingType.Element)
2524             MyBase.Columns.Add(Me.columnName)
2525             Me.columnGender = New Global.System.Data.DataColumn("Gender", GetType(String), Nothing, Global.System.Data.MappingType.Element)
2526             MyBase.Columns.Add(Me.columnGender)
2527             Me.columnAddress = New Global.System.Data.DataColumn("Address", GetType(String), Nothing, Global.System.Data.MappingType.Element)
2528             MyBase.Columns.Add(Me.columnAddress)
2529             Me.columnCity = New Global.System.Data.DataColumn("City", GetType(String), Nothing, Global.System.Data.MappingType.Element)
2530             MyBase.Columns.Add(Me.columnCity)
2531             Me.columnState = New Global.System.Data.DataColumn("State", GetType(String), Nothing, Global.System.Data.MappingType.Element)
2532             MyBase.Columns.Add(Me.columnState)
2533             Me.columnZipCode = New Global.System.Data.DataColumn("ZipCode", GetType(String), Nothing, Global.System.Data.MappingType.Element)
2534             MyBase.Columns.Add(Me.columnZipCode)
2535             Me.columnContactNo = New Global.System.Data.DataColumn("ContactNo", GetType(String), Nothing, Global.System.Data.MappingType.Element)
2536             MyBase.Columns.Add(Me.columnContactNo)
2537             Me.columnEmailID = New Global.System.Data.DataColumn("EmailID", GetType(String), Nothing, Global.System.Data.MappingType.Element)
2538             MyBase.Columns.Add(Me.columnEmailID)
2539             Me.columnRemarks = New Global.System.Data.DataColumn("Remarks", GetType(String), Nothing, Global.System.Data.MappingType.Element)
2540             MyBase.Columns.Add(Me.columnRemarks)
2541             Me.columnPhoto = New Global.System.Data.DataColumn("Photo", GetType(Byte()), Nothing, Global.System.Data.MappingType.Element)
2542             MyBase.Columns.Add(Me.columnPhoto)
2543             Me.Constraints.Add(New Global.System.Data.UniqueConstraint("Constraint1", New Global.System.Data.DataColumn() {Me.columnID}, true))
2544             Me.columnID.AllowDBNull = false
2545             Me.columnID.Unique = true
2546             Me.columnCustomerID.AllowDBNull = false
2547             Me.columnCustomerID.MaxLength = 30
2548             Me.columnName.AllowDBNull = false
2549             Me.columnName.MaxLength = 200
2550             Me.columnGender.AllowDBNull = false
2551             Me.columnGender.MaxLength = 10
2552             Me.columnAddress.AllowDBNull = false
2553             Me.columnAddress.MaxLength = 250
2554             Me.columnCity.AllowDBNull = false
2555             Me.columnCity.MaxLength = 200
2556             Me.columnState.AllowDBNull = false
2557             Me.columnState.MaxLength = 150
2558             Me.columnZipCode.MaxLength = 15
2559             Me.columnContactNo.AllowDBNull = false
2560             Me.columnContactNo.MaxLength = 150
2561             Me.columnEmailID.MaxLength = 200
2562             Me.columnRemarks.MaxLength = 2147483647
2563             Me.columnPhoto.AllowDBNull = false
2564         End Sub
2565         
2566         <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
2567          Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0")> _
2568         Public Function NewCustomerRow() As CustomerRow
2569             Return CType(Me.NewRow,CustomerRow)
2570         End Function
2571         
2572         <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
2573          Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0")> _
2574         Protected Overrides Function NewRowFromBuilder(ByVal builder As Global.System.Data.DataRowBuilder) As Global.System.Data.DataRow
2575             Return New CustomerRow(builder)
2576         End Function
2577         
2578         <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
2579          Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0")> _
2580         Protected Overrides Function GetRowType() As Global.System.Type
2581             Return GetType(CustomerRow)
2582         End Function
2583         
2584         <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
2585          Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0")> _
2586         Protected Overrides Sub OnRowChanged(ByVal e As Global.System.Data.DataRowChangeEventArgs)
2587             MyBase.OnRowChanged(e)
2588             If (Not (Me.CustomerRowChangedEvent) Is Nothing) Then
2589                 RaiseEvent CustomerRowChanged(Me, New CustomerRowChangeEvent(CType(e.Row,CustomerRow), e.Action))
2590             End If
2591         End Sub
2592         
2593         <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
2594          Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0")> _
2595         Protected Overrides Sub OnRowChanging(ByVal e As Global.System.Data.DataRowChangeEventArgs)
2596             MyBase.OnRowChanging(e)
2597             If (Not (Me.CustomerRowChangingEvent) Is Nothing) Then
2598                 RaiseEvent CustomerRowChanging(Me, New CustomerRowChangeEvent(CType(e.Row,CustomerRow), e.Action))
2599             End If
2600         End Sub
2601         
2602         <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
2603          Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0")> _
2604         Protected Overrides Sub OnRowDeleted(ByVal e As Global.System.Data.DataRowChangeEventArgs)
2605             MyBase.OnRowDeleted(e)
2606             If (Not (Me.CustomerRowDeletedEvent) Is Nothing) Then
2607                 RaiseEvent CustomerRowDeleted(Me, New CustomerRowChangeEvent(CType(e.Row,CustomerRow), e.Action))
2608             End If
2609         End Sub
2610         
2611         <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
2612          Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0")> _
2613         Protected Overrides Sub OnRowDeleting(ByVal e As Global.System.Data.DataRowChangeEventArgs)
2614             MyBase.OnRowDeleting(e)
2615             If (Not (Me.CustomerRowDeletingEvent) Is Nothing) Then
2616                 RaiseEvent CustomerRowDeleting(Me, New CustomerRowChangeEvent(CType(e.Row,CustomerRow), e.Action))
2617             End If
2618         End Sub
2619         
2620         <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
2621          Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0")> _
2622         Public Sub RemoveCustomerRow(ByVal row As CustomerRow)
2623             Me.Rows.Remove(row)
2624         End Sub
2625         
2626         <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
2627          Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0")> _
2628         Public Shared Function GetTypedTableSchema(ByVal xs As Global.System.Xml.Schema.XmlSchemaSet) As Global.System.Xml.Schema.XmlSchemaComplexType
2629             Dim type As Global.System.Xml.Schema.XmlSchemaComplexType = New Global.System.Xml.Schema.XmlSchemaComplexType()
2630             Dim sequence As Global.System.Xml.Schema.XmlSchemaSequence = New Global.System.Xml.Schema.XmlSchemaSequence()
2631             Dim ds As SIS_DBDataSet = New SIS_DBDataSet()
2632             Dim any1 As Global.System.Xml.Schema.XmlSchemaAny = New Global.System.Xml.Schema.XmlSchemaAny()
2633             any1.Namespace = "http://www.w3.org/2001/XMLSchema"
2634             any1.MinOccurs = New Decimal(0)
2635             any1.MaxOccurs = Decimal.MaxValue
2636             any1.ProcessContents = Global.System.Xml.Schema.XmlSchemaContentProcessing.Lax
2637             sequence.Items.Add(any1)
2638             Dim any2 As Global.System.Xml.Schema.XmlSchemaAny = New Global.System.Xml.Schema.XmlSchemaAny()
2639             any2.Namespace = "urn:schemas-microsoft-com:xml-diffgram-v1"
2640             any2.MinOccurs = New Decimal(1)
2641             any2.ProcessContents = Global.System.Xml.Schema.XmlSchemaContentProcessing.Lax
2642             sequence.Items.Add(any2)
2643             Dim attribute1 As Global.System.Xml.Schema.XmlSchemaAttribute = New Global.System.Xml.Schema.XmlSchemaAttribute()
2644             attribute1.Name = "namespace"
2645             attribute1.FixedValue = ds.Namespace
2646             type.Attributes.Add(attribute1)
2647             Dim attribute2 As Global.System.Xml.Schema.XmlSchemaAttribute = New Global.System.Xml.Schema.XmlSchemaAttribute()
2648             attribute2.Name = "tableTypeName"
2649             attribute2.FixedValue = "CustomerDataTable"
2650             type.Attributes.Add(attribute2)
2651             type.Particle = sequence
2652             Dim dsSchema As Global.System.Xml.Schema.XmlSchema = ds.GetSchemaSerializable
2653             If xs.Contains(dsSchema.TargetNamespace) Then
2654                 Dim s1 As Global.System.IO.MemoryStream = New Global.System.IO.MemoryStream()
2655                 Dim s2 As Global.System.IO.MemoryStream = New Global.System.IO.MemoryStream()
2656                 Try
2657                     Dim schema As Global.System.Xml.Schema.XmlSchema = Nothing
2658                     dsSchema.Write(s1)
2659                     Dim schemas As Global.System.Collections.IEnumerator = xs.Schemas(dsSchema.TargetNamespace).GetEnumerator
2660                     Do While schemas.MoveNext
2661                         schema = CType(schemas.Current,Global.System.Xml.Schema.XmlSchema)
2662                         s2.SetLength(0)
2663                         schema.Write(s2)
2664                         If (s1.Length = s2.Length) Then
2665                             s1.Position = 0
2666                             s2.Position = 0
2667                             
2668                             Do While ((s1.Position <> s1.Length) _
2669                                         AndAlso (s1.ReadByte = s2.ReadByte))
2670                                 
2671                                 
2672                             Loop
2673                             If (s1.Position = s1.Length) Then
2674                                 Return type
2675                             End If
2676                         End If
2677                         
2678                     Loop
2679                 Finally
2680                     If (Not (s1) Is Nothing) Then
2681                         s1.Close
2682                     End If
2683                     If (Not (s2) Is Nothing) Then
2684                         s2.Close
2685                     End If
2686                 End Try
2687             End If
2688             xs.Add(dsSchema)
2689             Return type
2690         End Function
2691     End Class
2692     
2693     '''<summary>
2694     '''Represents the strongly named DataTable class.
2695     '''</summary>
2696     <Global.System.Serializable(), _
2697      Global.System.Xml.Serialization.XmlSchemaProviderAttribute("GetTypedTableSchema")> _
2698     Partial Public Class Invoice_PaymentDataTable
2699         Inherits Global.System.Data.TypedTableBase(Of Invoice_PaymentRow)
2700         
2701         Private columnIP_ID As Global.System.Data.DataColumn
2702         
2703         Private columnInvoiceID As Global.System.Data.DataColumn
2704         
2705         Private columnPaymentDate As Global.System.Data.DataColumn
2706         
2707         Private columnTotalPaid As Global.System.Data.DataColumn
2708         
2709         Private columnPaymentMode As Global.System.Data.DataColumn
2710         
2711         <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
2712          Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0")> _
2713         Public Sub New()
2714             MyBase.New
2715             Me.TableName = "Invoice_Payment"
2716             Me.BeginInit
2717             Me.InitClass
2718             Me.EndInit
2719         End Sub
2720         
2721         <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
2722          Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0")> _
2723         Friend Sub New(ByVal table As Global.System.Data.DataTable)
2724             MyBase.New
2725             Me.TableName = table.TableName
2726             If (table.CaseSensitive <> table.DataSet.CaseSensitive) Then
2727                 Me.CaseSensitive = table.CaseSensitive
2728             End If
2729             If (table.Locale.ToString <> table.DataSet.Locale.ToString) Then
2730                 Me.Locale = table.Locale
2731             End If
2732             If (table.Namespace <> table.DataSet.Namespace) Then
2733                 Me.Namespace = table.Namespace
2734             End If
2735             Me.Prefix = table.Prefix
2736             Me.MinimumCapacity = table.MinimumCapacity
2737         End Sub
2738         
2739         <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
2740          Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0")> _
2741         Protected Sub New(ByVal info As Global.System.Runtime.Serialization.SerializationInfo, ByVal context As Global.System.Runtime.Serialization.StreamingContext)
2742             MyBase.New(info, context)
2743             Me.InitVars
2744         End Sub
2745         
2746         <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
2747          Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0")> _
2748         Public ReadOnly Property IP_IDColumn() As Global.System.Data.DataColumn
2749             Get
2750                 Return Me.columnIP_ID
2751             End Get
2752         End Property
2753         
2754         <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
2755          Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0")> _
2756         Public ReadOnly Property InvoiceIDColumn() As Global.System.Data.DataColumn
2757             Get
2758                 Return Me.columnInvoiceID
2759             End Get
2760         End Property
2761         
2762         <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
2763          Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0")> _
2764         Public ReadOnly Property PaymentDateColumn() As Global.System.Data.DataColumn
2765             Get
2766                 Return Me.columnPaymentDate
2767             End Get
2768         End Property
2769         
2770         <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
2771          Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0")> _
2772         Public ReadOnly Property TotalPaidColumn() As Global.System.Data.DataColumn
2773             Get
2774                 Return Me.columnTotalPaid
2775             End Get
2776         End Property
2777         
2778         <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
2779          Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0")> _
2780         Public ReadOnly Property PaymentModeColumn() As Global.System.Data.DataColumn
2781             Get
2782                 Return Me.columnPaymentMode
2783             End Get
2784         End Property
2785         
2786         <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
2787          Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0"), _
2788          Global.System.ComponentModel.Browsable(false)> _
2789         Public ReadOnly Property Count() As Integer
2790             Get
2791                 Return Me.Rows.Count
2792             End Get
2793         End Property
2794         
2795         <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
2796          Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0")> _
2797         Public Default ReadOnly Property Item(ByVal index As Integer) As Invoice_PaymentRow
2798             Get
2799                 Return CType(Me.Rows(index),Invoice_PaymentRow)
2800             End Get
2801         End Property
2802         
2803         <Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0")> _
2804         Public Event Invoice_PaymentRowChanging As Invoice_PaymentRowChangeEventHandler
2805         
2806         <Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0")> _
2807         Public Event Invoice_PaymentRowChanged As Invoice_PaymentRowChangeEventHandler
2808         
2809         <Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0")> _
2810         Public Event Invoice_PaymentRowDeleting As Invoice_PaymentRowChangeEventHandler
2811         
2812         <Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0")> _
2813         Public Event Invoice_PaymentRowDeleted As Invoice_PaymentRowChangeEventHandler
2814         
2815         <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
2816          Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0")> _
2817         Public Overloads Sub AddInvoice_PaymentRow(ByVal row As Invoice_PaymentRow)
2818             Me.Rows.Add(row)
2819         End Sub
2820         
2821         <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
2822          Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0")> _
2823         Public Overloads Function AddInvoice_PaymentRow(ByVal parentInvoiceInfoRowByFK_Invoice_Payment_InvoiceInfo As InvoiceInfoRow, ByVal PaymentDate As Date, ByVal TotalPaid As Decimal, ByVal PaymentMode As String) As Invoice_PaymentRow
2824             Dim rowInvoice_PaymentRow As Invoice_PaymentRow = CType(Me.NewRow,Invoice_PaymentRow)
2825             Dim columnValuesArray() As Object = New Object() {Nothing, Nothing, PaymentDate, TotalPaid, PaymentMode}
2826             If (Not (parentInvoiceInfoRowByFK_Invoice_Payment_InvoiceInfo) Is Nothing) Then
2827                 columnValuesArray(1) = parentInvoiceInfoRowByFK_Invoice_Payment_InvoiceInfo(0)
2828             End If
2829             rowInvoice_PaymentRow.ItemArray = columnValuesArray
2830             Me.Rows.Add(rowInvoice_PaymentRow)
2831             Return rowInvoice_PaymentRow
2832         End Function
2833         
2834         <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
2835          Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0")> _
2836         Public Function FindByIP_ID(ByVal IP_ID As Integer) As Invoice_PaymentRow
2837             Return CType(Me.Rows.Find(New Object() {IP_ID}),Invoice_PaymentRow)
2838         End Function
2839         
2840         <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
2841          Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0")> _
2842         Public Overrides Function Clone() As Global.System.Data.DataTable
2843             Dim cln As Invoice_PaymentDataTable = CType(MyBase.Clone,Invoice_PaymentDataTable)
2844             cln.InitVars
2845             Return cln
2846         End Function
2847         
2848         <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
2849          Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0")> _
2850         Protected Overrides Function CreateInstance() As Global.System.Data.DataTable
2851             Return New Invoice_PaymentDataTable()
2852         End Function
2853         
2854         <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
2855          Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0")> _
2856         Friend Sub InitVars()
2857             Me.columnIP_ID = MyBase.Columns("IP_ID")
2858             Me.columnInvoiceID = MyBase.Columns("InvoiceID")
2859             Me.columnPaymentDate = MyBase.Columns("PaymentDate")
2860             Me.columnTotalPaid = MyBase.Columns("TotalPaid")
2861             Me.columnPaymentMode = MyBase.Columns("PaymentMode")
2862         End Sub
2863         
2864         <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
2865          Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0")> _
2866         Private Sub InitClass()
2867             Me.columnIP_ID = New Global.System.Data.DataColumn("IP_ID", GetType(Integer), Nothing, Global.System.Data.MappingType.Element)
2868             MyBase.Columns.Add(Me.columnIP_ID)
2869             Me.columnInvoiceID = New Global.System.Data.DataColumn("InvoiceID", GetType(Integer), Nothing, Global.System.Data.MappingType.Element)
2870             MyBase.Columns.Add(Me.columnInvoiceID)
2871             Me.columnPaymentDate = New Global.System.Data.DataColumn("PaymentDate", GetType(Date), Nothing, Global.System.Data.MappingType.Element)
2872             MyBase.Columns.Add(Me.columnPaymentDate)
2873             Me.columnTotalPaid = New Global.System.Data.DataColumn("TotalPaid", GetType(Decimal), Nothing, Global.System.Data.MappingType.Element)
2874             MyBase.Columns.Add(Me.columnTotalPaid)
2875             Me.columnPaymentMode = New Global.System.Data.DataColumn("PaymentMode", GetType(String), Nothing, Global.System.Data.MappingType.Element)
2876             MyBase.Columns.Add(Me.columnPaymentMode)
2877             Me.Constraints.Add(New Global.System.Data.UniqueConstraint("Constraint1", New Global.System.Data.DataColumn() {Me.columnIP_ID}, true))
2878             Me.columnIP_ID.AutoIncrement = true
2879             Me.columnIP_ID.AutoIncrementSeed = -1
2880             Me.columnIP_ID.AutoIncrementStep = -1
2881             Me.columnIP_ID.AllowDBNull = false
2882             Me.columnIP_ID.ReadOnly = true
2883             Me.columnIP_ID.Unique = true
2884             Me.columnInvoiceID.AllowDBNull = false
2885             Me.columnPaymentDate.AllowDBNull = false
2886             Me.columnTotalPaid.AllowDBNull = false
2887             Me.columnPaymentMode.AllowDBNull = false
2888             Me.columnPaymentMode.MaxLength = 150
2889         End Sub
2890         
2891         <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
2892          Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0")> _
2893         Public Function NewInvoice_PaymentRow() As Invoice_PaymentRow
2894             Return CType(Me.NewRow,Invoice_PaymentRow)
2895         End Function
2896         
2897         <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
2898          Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0")> _
2899         Protected Overrides Function NewRowFromBuilder(ByVal builder As Global.System.Data.DataRowBuilder) As Global.System.Data.DataRow
2900             Return New Invoice_PaymentRow(builder)
2901         End Function
2902         
2903         <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
2904          Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0")> _
2905         Protected Overrides Function GetRowType() As Global.System.Type
2906             Return GetType(Invoice_PaymentRow)
2907         End Function
2908         
2909         <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
2910          Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0")> _
2911         Protected Overrides Sub OnRowChanged(ByVal e As Global.System.Data.DataRowChangeEventArgs)
2912             MyBase.OnRowChanged(e)
2913             If (Not (Me.Invoice_PaymentRowChangedEvent) Is Nothing) Then
2914                 RaiseEvent Invoice_PaymentRowChanged(Me, New Invoice_PaymentRowChangeEvent(CType(e.Row,Invoice_PaymentRow), e.Action))
2915             End If
2916         End Sub
2917         
2918         <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
2919          Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0")> _
2920         Protected Overrides Sub OnRowChanging(ByVal e As Global.System.Data.DataRowChangeEventArgs)
2921             MyBase.OnRowChanging(e)
2922             If (Not (Me.Invoice_PaymentRowChangingEvent) Is Nothing) Then
2923                 RaiseEvent Invoice_PaymentRowChanging(Me, New Invoice_PaymentRowChangeEvent(CType(e.Row,Invoice_PaymentRow), e.Action))
2924             End If
2925         End Sub
2926         
2927         <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
2928          Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0")> _
2929         Protected Overrides Sub OnRowDeleted(ByVal e As Global.System.Data.DataRowChangeEventArgs)
2930             MyBase.OnRowDeleted(e)
2931             If (Not (Me.Invoice_PaymentRowDeletedEvent) Is Nothing) Then
2932                 RaiseEvent Invoice_PaymentRowDeleted(Me, New Invoice_PaymentRowChangeEvent(CType(e.Row,Invoice_PaymentRow), e.Action))
2933             End If
2934         End Sub
2935         
2936         <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
2937          Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0")> _
2938         Protected Overrides Sub OnRowDeleting(ByVal e As Global.System.Data.DataRowChangeEventArgs)
2939             MyBase.OnRowDeleting(e)
2940             If (Not (Me.Invoice_PaymentRowDeletingEvent) Is Nothing) Then
2941                 RaiseEvent Invoice_PaymentRowDeleting(Me, New Invoice_PaymentRowChangeEvent(CType(e.Row,Invoice_PaymentRow), e.Action))
2942             End If
2943         End Sub
2944         
2945         <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
2946          Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0")> _
2947         Public Sub RemoveInvoice_PaymentRow(ByVal row As Invoice_PaymentRow)
2948             Me.Rows.Remove(row)
2949         End Sub
2950         
2951         <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
2952          Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0")> _
2953         Public Shared Function GetTypedTableSchema(ByVal xs As Global.System.Xml.Schema.XmlSchemaSet) As Global.System.Xml.Schema.XmlSchemaComplexType
2954             Dim type As Global.System.Xml.Schema.XmlSchemaComplexType = New Global.System.Xml.Schema.XmlSchemaComplexType()
2955             Dim sequence As Global.System.Xml.Schema.XmlSchemaSequence = New Global.System.Xml.Schema.XmlSchemaSequence()
2956             Dim ds As SIS_DBDataSet = New SIS_DBDataSet()
2957             Dim any1 As Global.System.Xml.Schema.XmlSchemaAny = New Global.System.Xml.Schema.XmlSchemaAny()
2958             any1.Namespace = "http://www.w3.org/2001/XMLSchema"
2959             any1.MinOccurs = New Decimal(0)
2960             any1.MaxOccurs = Decimal.MaxValue
2961             any1.ProcessContents = Global.System.Xml.Schema.XmlSchemaContentProcessing.Lax
2962             sequence.Items.Add(any1)
2963             Dim any2 As Global.System.Xml.Schema.XmlSchemaAny = New Global.System.Xml.Schema.XmlSchemaAny()
2964             any2.Namespace = "urn:schemas-microsoft-com:xml-diffgram-v1"
2965             any2.MinOccurs = New Decimal(1)
2966             any2.ProcessContents = Global.System.Xml.Schema.XmlSchemaContentProcessing.Lax
2967             sequence.Items.Add(any2)
2968             Dim attribute1 As Global.System.Xml.Schema.XmlSchemaAttribute = New Global.System.Xml.Schema.XmlSchemaAttribute()
2969             attribute1.Name = "namespace"
2970             attribute1.FixedValue = ds.Namespace
2971             type.Attributes.Add(attribute1)
2972             Dim attribute2 As Global.System.Xml.Schema.XmlSchemaAttribute = New Global.System.Xml.Schema.XmlSchemaAttribute()
2973             attribute2.Name = "tableTypeName"
2974             attribute2.FixedValue = "Invoice_PaymentDataTable"
2975             type.Attributes.Add(attribute2)
2976             type.Particle = sequence
2977             Dim dsSchema As Global.System.Xml.Schema.XmlSchema = ds.GetSchemaSerializable
2978             If xs.Contains(dsSchema.TargetNamespace) Then
2979                 Dim s1 As Global.System.IO.MemoryStream = New Global.System.IO.MemoryStream()
2980                 Dim s2 As Global.System.IO.MemoryStream = New Global.System.IO.MemoryStream()
2981                 Try
2982                     Dim schema As Global.System.Xml.Schema.XmlSchema = Nothing
2983                     dsSchema.Write(s1)
2984                     Dim schemas As Global.System.Collections.IEnumerator = xs.Schemas(dsSchema.TargetNamespace).GetEnumerator
2985                     Do While schemas.MoveNext
2986                         schema = CType(schemas.Current,Global.System.Xml.Schema.XmlSchema)
2987                         s2.SetLength(0)
2988                         schema.Write(s2)
2989                         If (s1.Length = s2.Length) Then
2990                             s1.Position = 0
2991                             s2.Position = 0
2992                             
2993                             Do While ((s1.Position <> s1.Length) _
2994                                         AndAlso (s1.ReadByte = s2.ReadByte))
2995                                 
2996                                 
2997                             Loop
2998                             If (s1.Position = s1.Length) Then
2999                                 Return type
3000                             End If
3001                         End If
3002                         
3003                     Loop
3004                 Finally
3005                     If (Not (s1) Is Nothing) Then
3006                         s1.Close
3007                     End If
3008                     If (Not (s2) Is Nothing) Then
3009                         s2.Close
3010                     End If
3011                 End Try
3012             End If
3013             xs.Add(dsSchema)
3014             Return type
3015         End Function
3016     End Class
3017     
3018     '''<summary>
3019     '''Represents the strongly named DataTable class.
3020     '''</summary>
3021     <Global.System.Serializable(), _
3022      Global.System.Xml.Serialization.XmlSchemaProviderAttribute("GetTypedTableSchema")> _
3023     Partial Public Class Invoice_ProductDataTable
3024         Inherits Global.System.Data.TypedTableBase(Of Invoice_ProductRow)
3025         
3026         Private columnIPo_ID As Global.System.Data.DataColumn
3027         
3028         Private columnInvoiceID As Global.System.Data.DataColumn
3029         
3030         Private columnProductID As Global.System.Data.DataColumn
3031         
3032         Private columnCostPrice As Global.System.Data.DataColumn
3033         
3034         Private columnSellingPrice As Global.System.Data.DataColumn
3035         
3036         Private columnMargin As Global.System.Data.DataColumn
3037         
3038         Private columnQty As Global.System.Data.DataColumn
3039         
3040         Private columnAmount As Global.System.Data.DataColumn
3041         
3042         Private columnDiscountPer As Global.System.Data.DataColumn
3043         
3044         Private columnDiscount As Global.System.Data.DataColumn
3045         
3046         Private columnVATPer As Global.System.Data.DataColumn
3047         
3048         Private columnVAT As Global.System.Data.DataColumn
3049         
3050         Private columnTotalAmount As Global.System.Data.DataColumn
3051         
3052         <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
3053          Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0")> _
3054         Public Sub New()
3055             MyBase.New
3056             Me.TableName = "Invoice_Product"
3057             Me.BeginInit
3058             Me.InitClass
3059             Me.EndInit
3060         End Sub
3061         
3062         <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
3063          Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0")> _
3064         Friend Sub New(ByVal table As Global.System.Data.DataTable)
3065             MyBase.New
3066             Me.TableName = table.TableName
3067             If (table.CaseSensitive <> table.DataSet.CaseSensitive) Then
3068                 Me.CaseSensitive = table.CaseSensitive
3069             End If
3070             If (table.Locale.ToString <> table.DataSet.Locale.ToString) Then
3071                 Me.Locale = table.Locale
3072             End If
3073             If (table.Namespace <> table.DataSet.Namespace) Then
3074                 Me.Namespace = table.Namespace
3075             End If
3076             Me.Prefix = table.Prefix
3077             Me.MinimumCapacity = table.MinimumCapacity
3078         End Sub
3079         
3080         <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
3081          Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0")> _
3082         Protected Sub New(ByVal info As Global.System.Runtime.Serialization.SerializationInfo, ByVal context As Global.System.Runtime.Serialization.StreamingContext)
3083             MyBase.New(info, context)
3084             Me.InitVars
3085         End Sub
3086         
3087         <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
3088          Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0")> _
3089         Public ReadOnly Property IPo_IDColumn() As Global.System.Data.DataColumn
3090             Get
3091                 Return Me.columnIPo_ID
3092             End Get
3093         End Property
3094         
3095         <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
3096          Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0")> _
3097         Public ReadOnly Property InvoiceIDColumn() As Global.System.Data.DataColumn
3098             Get
3099                 Return Me.columnInvoiceID
3100             End Get
3101         End Property
3102         
3103         <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
3104          Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0")> _
3105         Public ReadOnly Property ProductIDColumn() As Global.System.Data.DataColumn
3106             Get
3107                 Return Me.columnProductID
3108             End Get
3109         End Property
3110         
3111         <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
3112          Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0")> _
3113         Public ReadOnly Property CostPriceColumn() As Global.System.Data.DataColumn
3114             Get
3115                 Return Me.columnCostPrice
3116             End Get
3117         End Property
3118         
3119         <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
3120          Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0")> _
3121         Public ReadOnly Property SellingPriceColumn() As Global.System.Data.DataColumn
3122             Get
3123                 Return Me.columnSellingPrice
3124             End Get
3125         End Property
3126         
3127         <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
3128          Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0")> _
3129         Public ReadOnly Property MarginColumn() As Global.System.Data.DataColumn
3130             Get
3131                 Return Me.columnMargin
3132             End Get
3133         End Property
3134         
3135         <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
3136          Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0")> _
3137         Public ReadOnly Property QtyColumn() As Global.System.Data.DataColumn
3138             Get
3139                 Return Me.columnQty
3140             End Get
3141         End Property
3142         
3143         <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
3144          Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0")> _
3145         Public ReadOnly Property AmountColumn() As Global.System.Data.DataColumn
3146             Get
3147                 Return Me.columnAmount
3148             End Get
3149         End Property
3150         
3151         <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
3152          Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0")> _
3153         Public ReadOnly Property DiscountPerColumn() As Global.System.Data.DataColumn
3154             Get
3155                 Return Me.columnDiscountPer
3156             End Get
3157         End Property
3158         
3159         <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
3160          Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0")> _
3161         Public ReadOnly Property DiscountColumn() As Global.System.Data.DataColumn
3162             Get
3163                 Return Me.columnDiscount
3164             End Get
3165         End Property
3166         
3167         <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
3168          Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0")> _
3169         Public ReadOnly Property VATPerColumn() As Global.System.Data.DataColumn
3170             Get
3171                 Return Me.columnVATPer
3172             End Get
3173         End Property
3174         
3175         <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
3176          Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0")> _
3177         Public ReadOnly Property VATColumn() As Global.System.Data.DataColumn
3178             Get
3179                 Return Me.columnVAT
3180             End Get
3181         End Property
3182         
3183         <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
3184          Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0")> _
3185         Public ReadOnly Property TotalAmountColumn() As Global.System.Data.DataColumn
3186             Get
3187                 Return Me.columnTotalAmount
3188             End Get
3189         End Property
3190         
3191         <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
3192          Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0"), _
3193          Global.System.ComponentModel.Browsable(false)> _
3194         Public ReadOnly Property Count() As Integer
3195             Get
3196                 Return Me.Rows.Count
3197             End Get
3198         End Property
3199         
3200         <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
3201          Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0")> _
3202         Public Default ReadOnly Property Item(ByVal index As Integer) As Invoice_ProductRow
3203             Get
3204                 Return CType(Me.Rows(index),Invoice_ProductRow)
3205             End Get
3206         End Property
3207         
3208         <Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0")> _
3209         Public Event Invoice_ProductRowChanging As Invoice_ProductRowChangeEventHandler
3210         
3211         <Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0")> _
3212         Public Event Invoice_ProductRowChanged As Invoice_ProductRowChangeEventHandler
3213         
3214         <Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0")> _
3215         Public Event Invoice_ProductRowDeleting As Invoice_ProductRowChangeEventHandler
3216         
3217         <Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0")> _
3218         Public Event Invoice_ProductRowDeleted As Invoice_ProductRowChangeEventHandler
3219         
3220         <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
3221          Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0")> _
3222         Public Overloads Sub AddInvoice_ProductRow(ByVal row As Invoice_ProductRow)
3223             Me.Rows.Add(row)
3224         End Sub
3225         
3226         <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
3227          Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0")> _
3228         Public Overloads Function AddInvoice_ProductRow(ByVal parentInvoiceInfoRowByFK_Invoice_Product_InvoiceInfo As InvoiceInfoRow, ByVal parentProductRowByFK_Invoice_Product_Product As ProductRow, ByVal CostPrice As Decimal, ByVal SellingPrice As Decimal, ByVal Margin As Decimal, ByVal Qty As Integer, ByVal Amount As Decimal, ByVal DiscountPer As Decimal, ByVal Discount As Decimal, ByVal VATPer As Decimal, ByVal VAT As Decimal, ByVal TotalAmount As Decimal) As Invoice_ProductRow
3229             Dim rowInvoice_ProductRow As Invoice_ProductRow = CType(Me.NewRow,Invoice_ProductRow)
3230             Dim columnValuesArray() As Object = New Object() {Nothing, Nothing, Nothing, CostPrice, SellingPrice, Margin, Qty, Amount, DiscountPer, Discount, VATPer, VAT, TotalAmount}
3231             If (Not (parentInvoiceInfoRowByFK_Invoice_Product_InvoiceInfo) Is Nothing) Then
3232                 columnValuesArray(1) = parentInvoiceInfoRowByFK_Invoice_Product_InvoiceInfo(0)
3233             End If
3234             If (Not (parentProductRowByFK_Invoice_Product_Product) Is Nothing) Then
3235                 columnValuesArray(2) = parentProductRowByFK_Invoice_Product_Product(0)
3236             End If
3237             rowInvoice_ProductRow.ItemArray = columnValuesArray
3238             Me.Rows.Add(rowInvoice_ProductRow)
3239             Return rowInvoice_ProductRow
3240         End Function
3241         
3242         <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
3243          Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0")> _
3244         Public Function FindByIPo_ID(ByVal IPo_ID As Integer) As Invoice_ProductRow
3245             Return CType(Me.Rows.Find(New Object() {IPo_ID}),Invoice_ProductRow)
3246         End Function
3247         
3248         <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
3249          Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0")> _
3250         Public Overrides Function Clone() As Global.System.Data.DataTable
3251             Dim cln As Invoice_ProductDataTable = CType(MyBase.Clone,Invoice_ProductDataTable)
3252             cln.InitVars
3253             Return cln
3254         End Function
3255         
3256         <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
3257          Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0")> _
3258         Protected Overrides Function CreateInstance() As Global.System.Data.DataTable
3259             Return New Invoice_ProductDataTable()
3260         End Function
3261         
3262         <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
3263          Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0")> _
3264         Friend Sub InitVars()
3265             Me.columnIPo_ID = MyBase.Columns("IPo_ID")
3266             Me.columnInvoiceID = MyBase.Columns("InvoiceID")
3267             Me.columnProductID = MyBase.Columns("ProductID")
3268             Me.columnCostPrice = MyBase.Columns("CostPrice")
3269             Me.columnSellingPrice = MyBase.Columns("SellingPrice")
3270             Me.columnMargin = MyBase.Columns("Margin")
3271             Me.columnQty = MyBase.Columns("Qty")
3272             Me.columnAmount = MyBase.Columns("Amount")
3273             Me.columnDiscountPer = MyBase.Columns("DiscountPer")
3274             Me.columnDiscount = MyBase.Columns("Discount")
3275             Me.columnVATPer = MyBase.Columns("VATPer")
3276             Me.columnVAT = MyBase.Columns("VAT")
3277             Me.columnTotalAmount = MyBase.Columns("TotalAmount")
3278         End Sub
3279         
3280         <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
3281          Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0")> _
3282         Private Sub InitClass()
3283             Me.columnIPo_ID = New Global.System.Data.DataColumn("IPo_ID", GetType(Integer), Nothing, Global.System.Data.MappingType.Element)
3284             MyBase.Columns.Add(Me.columnIPo_ID)
3285             Me.columnInvoiceID = New Global.System.Data.DataColumn("InvoiceID", GetType(Integer), Nothing, Global.System.Data.MappingType.Element)
3286             MyBase.Columns.Add(Me.columnInvoiceID)
3287             Me.columnProductID = New Global.System.Data.DataColumn("ProductID", GetType(Integer), Nothing, Global.System.Data.MappingType.Element)
3288             MyBase.Columns.Add(Me.columnProductID)
3289             Me.columnCostPrice = New Global.System.Data.DataColumn("CostPrice", GetType(Decimal), Nothing, Global.System.Data.MappingType.Element)
3290             MyBase.Columns.Add(Me.columnCostPrice)
3291             Me.columnSellingPrice = New Global.System.Data.DataColumn("SellingPrice", GetType(Decimal), Nothing, Global.System.Data.MappingType.Element)
3292             MyBase.Columns.Add(Me.columnSellingPrice)
3293             Me.columnMargin = New Global.System.Data.DataColumn("Margin", GetType(Decimal), Nothing, Global.System.Data.MappingType.Element)
3294             MyBase.Columns.Add(Me.columnMargin)
3295             Me.columnQty = New Global.System.Data.DataColumn("Qty", GetType(Integer), Nothing, Global.System.Data.MappingType.Element)
3296             MyBase.Columns.Add(Me.columnQty)
3297             Me.columnAmount = New Global.System.Data.DataColumn("Amount", GetType(Decimal), Nothing, Global.System.Data.MappingType.Element)
3298             MyBase.Columns.Add(Me.columnAmount)
3299             Me.columnDiscountPer = New Global.System.Data.DataColumn("DiscountPer", GetType(Decimal), Nothing, Global.System.Data.MappingType.Element)
3300             MyBase.Columns.Add(Me.columnDiscountPer)
3301             Me.columnDiscount = New Global.System.Data.DataColumn("Discount", GetType(Decimal), Nothing, Global.System.Data.MappingType.Element)
3302             MyBase.Columns.Add(Me.columnDiscount)
3303             Me.columnVATPer = New Global.System.Data.DataColumn("VATPer", GetType(Decimal), Nothing, Global.System.Data.MappingType.Element)
3304             MyBase.Columns.Add(Me.columnVATPer)
3305             Me.columnVAT = New Global.System.Data.DataColumn("VAT", GetType(Decimal), Nothing, Global.System.Data.MappingType.Element)
3306             MyBase.Columns.Add(Me.columnVAT)
3307             Me.columnTotalAmount = New Global.System.Data.DataColumn("TotalAmount", GetType(Decimal), Nothing, Global.System.Data.MappingType.Element)
3308             MyBase.Columns.Add(Me.columnTotalAmount)
3309             Me.Constraints.Add(New Global.System.Data.UniqueConstraint("Constraint1", New Global.System.Data.DataColumn() {Me.columnIPo_ID}, true))
3310             Me.columnIPo_ID.AutoIncrement = true
3311             Me.columnIPo_ID.AutoIncrementSeed = -1
3312             Me.columnIPo_ID.AutoIncrementStep = -1
3313             Me.columnIPo_ID.AllowDBNull = false
3314             Me.columnIPo_ID.ReadOnly = true
3315             Me.columnIPo_ID.Unique = true
3316             Me.columnInvoiceID.AllowDBNull = false
3317             Me.columnProductID.AllowDBNull = false
3318             Me.columnCostPrice.AllowDBNull = false
3319             Me.columnSellingPrice.AllowDBNull = false
3320             Me.columnMargin.AllowDBNull = false
3321             Me.columnQty.AllowDBNull = false
3322             Me.columnAmount.AllowDBNull = false
3323             Me.columnDiscountPer.AllowDBNull = false
3324             Me.columnDiscount.AllowDBNull = false
3325             Me.columnVATPer.AllowDBNull = false
3326             Me.columnVAT.AllowDBNull = false
3327             Me.columnTotalAmount.AllowDBNull = false
3328         End Sub
3329         
3330         <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
3331          Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0")> _
3332         Public Function NewInvoice_ProductRow() As Invoice_ProductRow
3333             Return CType(Me.NewRow,Invoice_ProductRow)
3334         End Function
3335         
3336         <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
3337          Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0")> _
3338         Protected Overrides Function NewRowFromBuilder(ByVal builder As Global.System.Data.DataRowBuilder) As Global.System.Data.DataRow
3339             Return New Invoice_ProductRow(builder)
3340         End Function
3341         
3342         <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
3343          Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0")> _
3344         Protected Overrides Function GetRowType() As Global.System.Type
3345             Return GetType(Invoice_ProductRow)
3346         End Function
3347         
3348         <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
3349          Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0")> _
3350         Protected Overrides Sub OnRowChanged(ByVal e As Global.System.Data.DataRowChangeEventArgs)
3351             MyBase.OnRowChanged(e)
3352             If (Not (Me.Invoice_ProductRowChangedEvent) Is Nothing) Then
3353                 RaiseEvent Invoice_ProductRowChanged(Me, New Invoice_ProductRowChangeEvent(CType(e.Row,Invoice_ProductRow), e.Action))
3354             End If
3355         End Sub
3356         
3357         <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
3358          Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0")> _
3359         Protected Overrides Sub OnRowChanging(ByVal e As Global.System.Data.DataRowChangeEventArgs)
3360             MyBase.OnRowChanging(e)
3361             If (Not (Me.Invoice_ProductRowChangingEvent) Is Nothing) Then
3362                 RaiseEvent Invoice_ProductRowChanging(Me, New Invoice_ProductRowChangeEvent(CType(e.Row,Invoice_ProductRow), e.Action))
3363             End If
3364         End Sub
3365         
3366         <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
3367          Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0")> _
3368         Protected Overrides Sub OnRowDeleted(ByVal e As Global.System.Data.DataRowChangeEventArgs)
3369             MyBase.OnRowDeleted(e)
3370             If (Not (Me.Invoice_ProductRowDeletedEvent) Is Nothing) Then
3371                 RaiseEvent Invoice_ProductRowDeleted(Me, New Invoice_ProductRowChangeEvent(CType(e.Row,Invoice_ProductRow), e.Action))
3372             End If
3373         End Sub
3374         
3375         <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
3376          Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0")> _
3377         Protected Overrides Sub OnRowDeleting(ByVal e As Global.System.Data.DataRowChangeEventArgs)
3378             MyBase.OnRowDeleting(e)
3379             If (Not (Me.Invoice_ProductRowDeletingEvent) Is Nothing) Then
3380                 RaiseEvent Invoice_ProductRowDeleting(Me, New Invoice_ProductRowChangeEvent(CType(e.Row,Invoice_ProductRow), e.Action))
3381             End If
3382         End Sub
3383         
3384         <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
3385          Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0")> _
3386         Public Sub RemoveInvoice_ProductRow(ByVal row As Invoice_ProductRow)
3387             Me.Rows.Remove(row)
3388         End Sub
3389         
3390         <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
3391          Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0")> _
3392         Public Shared Function GetTypedTableSchema(ByVal xs As Global.System.Xml.Schema.XmlSchemaSet) As Global.System.Xml.Schema.XmlSchemaComplexType
3393             Dim type As Global.System.Xml.Schema.XmlSchemaComplexType = New Global.System.Xml.Schema.XmlSchemaComplexType()
3394             Dim sequence As Global.System.Xml.Schema.XmlSchemaSequence = New Global.System.Xml.Schema.XmlSchemaSequence()
3395             Dim ds As SIS_DBDataSet = New SIS_DBDataSet()
3396             Dim any1 As Global.System.Xml.Schema.XmlSchemaAny = New Global.System.Xml.Schema.XmlSchemaAny()
3397             any1.Namespace = "http://www.w3.org/2001/XMLSchema"
3398             any1.MinOccurs = New Decimal(0)
3399             any1.MaxOccurs = Decimal.MaxValue
3400             any1.ProcessContents = Global.System.Xml.Schema.XmlSchemaContentProcessing.Lax
3401             sequence.Items.Add(any1)
3402             Dim any2 As Global.System.Xml.Schema.XmlSchemaAny = New Global.System.Xml.Schema.XmlSchemaAny()
3403             any2.Namespace = "urn:schemas-microsoft-com:xml-diffgram-v1"
3404             any2.MinOccurs = New Decimal(1)
3405             any2.ProcessContents = Global.System.Xml.Schema.XmlSchemaContentProcessing.Lax
3406             sequence.Items.Add(any2)
3407             Dim attribute1 As Global.System.Xml.Schema.XmlSchemaAttribute = New Global.System.Xml.Schema.XmlSchemaAttribute()
3408             attribute1.Name = "namespace"
3409             attribute1.FixedValue = ds.Namespace
3410             type.Attributes.Add(attribute1)
3411             Dim attribute2 As Global.System.Xml.Schema.XmlSchemaAttribute = New Global.System.Xml.Schema.XmlSchemaAttribute()
3412             attribute2.Name = "tableTypeName"
3413             attribute2.FixedValue = "Invoice_ProductDataTable"
3414             type.Attributes.Add(attribute2)
3415             type.Particle = sequence
3416             Dim dsSchema As Global.System.Xml.Schema.XmlSchema = ds.GetSchemaSerializable
3417             If xs.Contains(dsSchema.TargetNamespace) Then
3418                 Dim s1 As Global.System.IO.MemoryStream = New Global.System.IO.MemoryStream()
3419                 Dim s2 As Global.System.IO.MemoryStream = New Global.System.IO.MemoryStream()
3420                 Try
3421                     Dim schema As Global.System.Xml.Schema.XmlSchema = Nothing
3422                     dsSchema.Write(s1)
3423                     Dim schemas As Global.System.Collections.IEnumerator = xs.Schemas(dsSchema.TargetNamespace).GetEnumerator
3424                     Do While schemas.MoveNext
3425                         schema = CType(schemas.Current,Global.System.Xml.Schema.XmlSchema)
3426                         s2.SetLength(0)
3427                         schema.Write(s2)
3428                         If (s1.Length = s2.Length) Then
3429                             s1.Position = 0
3430                             s2.Position = 0
3431                             
3432                             Do While ((s1.Position <> s1.Length) _
3433                                         AndAlso (s1.ReadByte = s2.ReadByte))
3434                                 
3435                                 
3436                             Loop
3437                             If (s1.Position = s1.Length) Then
3438                                 Return type
3439                             End If
3440                         End If
3441                         
3442                     Loop
3443                 Finally
3444                     If (Not (s1) Is Nothing) Then
3445                         s1.Close
3446                     End If
3447                     If (Not (s2) Is Nothing) Then
3448                         s2.Close
3449                     End If
3450                 End Try
3451             End If
3452             xs.Add(dsSchema)
3453             Return type
3454         End Function
3455     End Class
3456     
3457     '''<summary>
3458     '''Represents the strongly named DataTable class.
3459     '''</summary>
3460     <Global.System.Serializable(), _
3461      Global.System.Xml.Serialization.XmlSchemaProviderAttribute("GetTypedTableSchema")> _
3462     Partial Public Class InvoiceInfoDataTable
3463         Inherits Global.System.Data.TypedTableBase(Of InvoiceInfoRow)
3464         
3465         Private columnInv_ID As Global.System.Data.DataColumn
3466         
3467         Private columnInvoiceNo As Global.System.Data.DataColumn
3468         
3469         Private columnInvoiceDate As Global.System.Data.DataColumn
3470         
3471         Private columnCustomerID As Global.System.Data.DataColumn
3472         
3473         Private columnGrandTotal As Global.System.Data.DataColumn
3474         
3475         Private columnTotalPaid As Global.System.Data.DataColumn
3476         
3477         Private columnBalance As Global.System.Data.DataColumn
3478         
3479         Private columnRemarks As Global.System.Data.DataColumn
3480         
3481         <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
3482          Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0")> _
3483         Public Sub New()
3484             MyBase.New
3485             Me.TableName = "InvoiceInfo"
3486             Me.BeginInit
3487             Me.InitClass
3488             Me.EndInit
3489         End Sub
3490         
3491         <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
3492          Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0")> _
3493         Friend Sub New(ByVal table As Global.System.Data.DataTable)
3494             MyBase.New
3495             Me.TableName = table.TableName
3496             If (table.CaseSensitive <> table.DataSet.CaseSensitive) Then
3497                 Me.CaseSensitive = table.CaseSensitive
3498             End If
3499             If (table.Locale.ToString <> table.DataSet.Locale.ToString) Then
3500                 Me.Locale = table.Locale
3501             End If
3502             If (table.Namespace <> table.DataSet.Namespace) Then
3503                 Me.Namespace = table.Namespace
3504             End If
3505             Me.Prefix = table.Prefix
3506             Me.MinimumCapacity = table.MinimumCapacity
3507         End Sub
3508         
3509         <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
3510          Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0")> _
3511         Protected Sub New(ByVal info As Global.System.Runtime.Serialization.SerializationInfo, ByVal context As Global.System.Runtime.Serialization.StreamingContext)
3512             MyBase.New(info, context)
3513             Me.InitVars
3514         End Sub
3515         
3516         <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
3517          Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0")> _
3518         Public ReadOnly Property Inv_IDColumn() As Global.System.Data.DataColumn
3519             Get
3520                 Return Me.columnInv_ID
3521             End Get
3522         End Property
3523         
3524         <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
3525          Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0")> _
3526         Public ReadOnly Property InvoiceNoColumn() As Global.System.Data.DataColumn
3527             Get
3528                 Return Me.columnInvoiceNo
3529             End Get
3530         End Property
3531         
3532         <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
3533          Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0")> _
3534         Public ReadOnly Property InvoiceDateColumn() As Global.System.Data.DataColumn
3535             Get
3536                 Return Me.columnInvoiceDate
3537             End Get
3538         End Property
3539         
3540         <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
3541          Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0")> _
3542         Public ReadOnly Property CustomerIDColumn() As Global.System.Data.DataColumn
3543             Get
3544                 Return Me.columnCustomerID
3545             End Get
3546         End Property
3547         
3548         <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
3549          Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0")> _
3550         Public ReadOnly Property GrandTotalColumn() As Global.System.Data.DataColumn
3551             Get
3552                 Return Me.columnGrandTotal
3553             End Get
3554         End Property
3555         
3556         <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
3557          Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0")> _
3558         Public ReadOnly Property TotalPaidColumn() As Global.System.Data.DataColumn
3559             Get
3560                 Return Me.columnTotalPaid
3561             End Get
3562         End Property
3563         
3564         <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
3565          Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0")> _
3566         Public ReadOnly Property BalanceColumn() As Global.System.Data.DataColumn
3567             Get
3568                 Return Me.columnBalance
3569             End Get
3570         End Property
3571         
3572         <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
3573          Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0")> _
3574         Public ReadOnly Property RemarksColumn() As Global.System.Data.DataColumn
3575             Get
3576                 Return Me.columnRemarks
3577             End Get
3578         End Property
3579         
3580         <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
3581          Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0"), _
3582          Global.System.ComponentModel.Browsable(false)> _
3583         Public ReadOnly Property Count() As Integer
3584             Get
3585                 Return Me.Rows.Count
3586             End Get
3587         End Property
3588         
3589         <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
3590          Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0")> _
3591         Public Default ReadOnly Property Item(ByVal index As Integer) As InvoiceInfoRow
3592             Get
3593                 Return CType(Me.Rows(index),InvoiceInfoRow)
3594             End Get
3595         End Property
3596         
3597         <Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0")> _
3598         Public Event InvoiceInfoRowChanging As InvoiceInfoRowChangeEventHandler
3599         
3600         <Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0")> _
3601         Public Event InvoiceInfoRowChanged As InvoiceInfoRowChangeEventHandler
3602         
3603         <Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0")> _
3604         Public Event InvoiceInfoRowDeleting As InvoiceInfoRowChangeEventHandler
3605         
3606         <Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0")> _
3607         Public Event InvoiceInfoRowDeleted As InvoiceInfoRowChangeEventHandler
3608         
3609         <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
3610          Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0")> _
3611         Public Overloads Sub AddInvoiceInfoRow(ByVal row As InvoiceInfoRow)
3612             Me.Rows.Add(row)
3613         End Sub
3614         
3615         <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
3616          Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0")> _
3617         Public Overloads Function AddInvoiceInfoRow(ByVal Inv_ID As Integer, ByVal InvoiceNo As String, ByVal InvoiceDate As Date, ByVal parentCustomerRowByFK_InvoiceInfo_Customer As CustomerRow, ByVal GrandTotal As Decimal, ByVal TotalPaid As Decimal, ByVal Balance As Decimal, ByVal Remarks As String) As InvoiceInfoRow
3618             Dim rowInvoiceInfoRow As InvoiceInfoRow = CType(Me.NewRow,InvoiceInfoRow)
3619             Dim columnValuesArray() As Object = New Object() {Inv_ID, InvoiceNo, InvoiceDate, Nothing, GrandTotal, TotalPaid, Balance, Remarks}
3620             If (Not (parentCustomerRowByFK_InvoiceInfo_Customer) Is Nothing) Then
3621                 columnValuesArray(3) = parentCustomerRowByFK_InvoiceInfo_Customer(0)
3622             End If
3623             rowInvoiceInfoRow.ItemArray = columnValuesArray
3624             Me.Rows.Add(rowInvoiceInfoRow)
3625             Return rowInvoiceInfoRow
3626         End Function
3627         
3628         <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
3629          Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0")> _
3630         Public Function FindByInv_ID(ByVal Inv_ID As Integer) As InvoiceInfoRow
3631             Return CType(Me.Rows.Find(New Object() {Inv_ID}),InvoiceInfoRow)
3632         End Function
3633         
3634         <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
3635          Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0")> _
3636         Public Overrides Function Clone() As Global.System.Data.DataTable
3637             Dim cln As InvoiceInfoDataTable = CType(MyBase.Clone,InvoiceInfoDataTable)
3638             cln.InitVars
3639             Return cln
3640         End Function
3641         
3642         <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
3643          Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0")> _
3644         Protected Overrides Function CreateInstance() As Global.System.Data.DataTable
3645             Return New InvoiceInfoDataTable()
3646         End Function
3647         
3648         <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
3649          Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0")> _
3650         Friend Sub InitVars()
3651             Me.columnInv_ID = MyBase.Columns("Inv_ID")
3652             Me.columnInvoiceNo = MyBase.Columns("InvoiceNo")
3653             Me.columnInvoiceDate = MyBase.Columns("InvoiceDate")
3654             Me.columnCustomerID = MyBase.Columns("CustomerID")
3655             Me.columnGrandTotal = MyBase.Columns("GrandTotal")
3656             Me.columnTotalPaid = MyBase.Columns("TotalPaid")
3657             Me.columnBalance = MyBase.Columns("Balance")
3658             Me.columnRemarks = MyBase.Columns("Remarks")
3659         End Sub
3660         
3661         <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
3662          Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0")> _
3663         Private Sub InitClass()
3664             Me.columnInv_ID = New Global.System.Data.DataColumn("Inv_ID", GetType(Integer), Nothing, Global.System.Data.MappingType.Element)
3665             MyBase.Columns.Add(Me.columnInv_ID)
3666             Me.columnInvoiceNo = New Global.System.Data.DataColumn("InvoiceNo", GetType(String), Nothing, Global.System.Data.MappingType.Element)
3667             MyBase.Columns.Add(Me.columnInvoiceNo)
3668             Me.columnInvoiceDate = New Global.System.Data.DataColumn("InvoiceDate", GetType(Date), Nothing, Global.System.Data.MappingType.Element)
3669             MyBase.Columns.Add(Me.columnInvoiceDate)
3670             Me.columnCustomerID = New Global.System.Data.DataColumn("CustomerID", GetType(Integer), Nothing, Global.System.Data.MappingType.Element)
3671             MyBase.Columns.Add(Me.columnCustomerID)
3672             Me.columnGrandTotal = New Global.System.Data.DataColumn("GrandTotal", GetType(Decimal), Nothing, Global.System.Data.MappingType.Element)
3673             MyBase.Columns.Add(Me.columnGrandTotal)
3674             Me.columnTotalPaid = New Global.System.Data.DataColumn("TotalPaid", GetType(Decimal), Nothing, Global.System.Data.MappingType.Element)
3675             MyBase.Columns.Add(Me.columnTotalPaid)
3676             Me.columnBalance = New Global.System.Data.DataColumn("Balance", GetType(Decimal), Nothing, Global.System.Data.MappingType.Element)
3677             MyBase.Columns.Add(Me.columnBalance)
3678             Me.columnRemarks = New Global.System.Data.DataColumn("Remarks", GetType(String), Nothing, Global.System.Data.MappingType.Element)
3679             MyBase.Columns.Add(Me.columnRemarks)
3680             Me.Constraints.Add(New Global.System.Data.UniqueConstraint("Constraint1", New Global.System.Data.DataColumn() {Me.columnInv_ID}, true))
3681             Me.columnInv_ID.AllowDBNull = false
3682             Me.columnInv_ID.Unique = true
3683             Me.columnInvoiceNo.AllowDBNull = false
3684             Me.columnInvoiceNo.MaxLength = 30
3685             Me.columnInvoiceDate.AllowDBNull = false
3686             Me.columnCustomerID.AllowDBNull = false
3687             Me.columnGrandTotal.AllowDBNull = false
3688             Me.columnTotalPaid.AllowDBNull = false
3689             Me.columnBalance.AllowDBNull = false
3690             Me.columnRemarks.MaxLength = 2147483647
3691         End Sub
3692         
3693         <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
3694          Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0")> _
3695         Public Function NewInvoiceInfoRow() As InvoiceInfoRow
3696             Return CType(Me.NewRow,InvoiceInfoRow)
3697         End Function
3698         
3699         <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
3700          Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0")> _
3701         Protected Overrides Function NewRowFromBuilder(ByVal builder As Global.System.Data.DataRowBuilder) As Global.System.Data.DataRow
3702             Return New InvoiceInfoRow(builder)
3703         End Function
3704         
3705         <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
3706          Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0")> _
3707         Protected Overrides Function GetRowType() As Global.System.Type
3708             Return GetType(InvoiceInfoRow)
3709         End Function
3710         
3711         <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
3712          Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0")> _
3713         Protected Overrides Sub OnRowChanged(ByVal e As Global.System.Data.DataRowChangeEventArgs)
3714             MyBase.OnRowChanged(e)
3715             If (Not (Me.InvoiceInfoRowChangedEvent) Is Nothing) Then
3716                 RaiseEvent InvoiceInfoRowChanged(Me, New InvoiceInfoRowChangeEvent(CType(e.Row,InvoiceInfoRow), e.Action))
3717             End If
3718         End Sub
3719         
3720         <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
3721          Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0")> _
3722         Protected Overrides Sub OnRowChanging(ByVal e As Global.System.Data.DataRowChangeEventArgs)
3723             MyBase.OnRowChanging(e)
3724             If (Not (Me.InvoiceInfoRowChangingEvent) Is Nothing) Then
3725                 RaiseEvent InvoiceInfoRowChanging(Me, New InvoiceInfoRowChangeEvent(CType(e.Row,InvoiceInfoRow), e.Action))
3726             End If
3727         End Sub
3728         
3729         <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
3730          Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0")> _
3731         Protected Overrides Sub OnRowDeleted(ByVal e As Global.System.Data.DataRowChangeEventArgs)
3732             MyBase.OnRowDeleted(e)
3733             If (Not (Me.InvoiceInfoRowDeletedEvent) Is Nothing) Then
3734                 RaiseEvent InvoiceInfoRowDeleted(Me, New InvoiceInfoRowChangeEvent(CType(e.Row,InvoiceInfoRow), e.Action))
3735             End If
3736         End Sub
3737         
3738         <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
3739          Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0")> _
3740         Protected Overrides Sub OnRowDeleting(ByVal e As Global.System.Data.DataRowChangeEventArgs)
3741             MyBase.OnRowDeleting(e)
3742             If (Not (Me.InvoiceInfoRowDeletingEvent) Is Nothing) Then
3743                 RaiseEvent InvoiceInfoRowDeleting(Me, New InvoiceInfoRowChangeEvent(CType(e.Row,InvoiceInfoRow), e.Action))
3744             End If
3745         End Sub
3746         
3747         <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
3748          Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0")> _
3749         Public Sub RemoveInvoiceInfoRow(ByVal row As InvoiceInfoRow)
3750             Me.Rows.Remove(row)
3751         End Sub
3752         
3753         <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
3754          Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0")> _
3755         Public Shared Function GetTypedTableSchema(ByVal xs As Global.System.Xml.Schema.XmlSchemaSet) As Global.System.Xml.Schema.XmlSchemaComplexType
3756             Dim type As Global.System.Xml.Schema.XmlSchemaComplexType = New Global.System.Xml.Schema.XmlSchemaComplexType()
3757             Dim sequence As Global.System.Xml.Schema.XmlSchemaSequence = New Global.System.Xml.Schema.XmlSchemaSequence()
3758             Dim ds As SIS_DBDataSet = New SIS_DBDataSet()
3759             Dim any1 As Global.System.Xml.Schema.XmlSchemaAny = New Global.System.Xml.Schema.XmlSchemaAny()
3760             any1.Namespace = "http://www.w3.org/2001/XMLSchema"
3761             any1.MinOccurs = New Decimal(0)
3762             any1.MaxOccurs = Decimal.MaxValue
3763             any1.ProcessContents = Global.System.Xml.Schema.XmlSchemaContentProcessing.Lax
3764             sequence.Items.Add(any1)
3765             Dim any2 As Global.System.Xml.Schema.XmlSchemaAny = New Global.System.Xml.Schema.XmlSchemaAny()
3766             any2.Namespace = "urn:schemas-microsoft-com:xml-diffgram-v1"
3767             any2.MinOccurs = New Decimal(1)
3768             any2.ProcessContents = Global.System.Xml.Schema.XmlSchemaContentProcessing.Lax
3769             sequence.Items.Add(any2)
3770             Dim attribute1 As Global.System.Xml.Schema.XmlSchemaAttribute = New Global.System.Xml.Schema.XmlSchemaAttribute()
3771             attribute1.Name = "namespace"
3772             attribute1.FixedValue = ds.Namespace
3773             type.Attributes.Add(attribute1)
3774             Dim attribute2 As Global.System.Xml.Schema.XmlSchemaAttribute = New Global.System.Xml.Schema.XmlSchemaAttribute()
3775             attribute2.Name = "tableTypeName"
3776             attribute2.FixedValue = "InvoiceInfoDataTable"
3777             type.Attributes.Add(attribute2)
3778             type.Particle = sequence
3779             Dim dsSchema As Global.System.Xml.Schema.XmlSchema = ds.GetSchemaSerializable
3780             If xs.Contains(dsSchema.TargetNamespace) Then
3781                 Dim s1 As Global.System.IO.MemoryStream = New Global.System.IO.MemoryStream()
3782                 Dim s2 As Global.System.IO.MemoryStream = New Global.System.IO.MemoryStream()
3783                 Try
3784                     Dim schema As Global.System.Xml.Schema.XmlSchema = Nothing
3785                     dsSchema.Write(s1)
3786                     Dim schemas As Global.System.Collections.IEnumerator = xs.Schemas(dsSchema.TargetNamespace).GetEnumerator
3787                     Do While schemas.MoveNext
3788                         schema = CType(schemas.Current,Global.System.Xml.Schema.XmlSchema)
3789                         s2.SetLength(0)
3790                         schema.Write(s2)
3791                         If (s1.Length = s2.Length) Then
3792                             s1.Position = 0
3793                             s2.Position = 0
3794                             
3795                             Do While ((s1.Position <> s1.Length) _
3796                                         AndAlso (s1.ReadByte = s2.ReadByte))
3797                                 
3798                                 
3799                             Loop
3800                             If (s1.Position = s1.Length) Then
3801                                 Return type
3802                             End If
3803                         End If
3804                         
3805                     Loop
3806                 Finally
3807                     If (Not (s1) Is Nothing) Then
3808                         s1.Close
3809                     End If
3810                     If (Not (s2) Is Nothing) Then
3811                         s2.Close
3812                     End If
3813                 End Try
3814             End If
3815             xs.Add(dsSchema)
3816             Return type
3817         End Function
3818     End Class
3819     
3820     '''<summary>
3821     '''Represents the strongly named DataTable class.
3822     '''</summary>
3823     <Global.System.Serializable(), _
3824      Global.System.Xml.Serialization.XmlSchemaProviderAttribute("GetTypedTableSchema")> _
3825     Partial Public Class LogsDataTable
3826         Inherits Global.System.Data.TypedTableBase(Of LogsRow)
3827         
3828         Private columnID As Global.System.Data.DataColumn
3829         
3830         Private columnUserID As Global.System.Data.DataColumn
3831         
3832         Private columnOperation As Global.System.Data.DataColumn
3833         
3834         Private columnDate As Global.System.Data.DataColumn
3835         
3836         <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
3837          Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0")> _
3838         Public Sub New()
3839             MyBase.New
3840             Me.TableName = "Logs"
3841             Me.BeginInit
3842             Me.InitClass
3843             Me.EndInit
3844         End Sub
3845         
3846         <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
3847          Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0")> _
3848         Friend Sub New(ByVal table As Global.System.Data.DataTable)
3849             MyBase.New
3850             Me.TableName = table.TableName
3851             If (table.CaseSensitive <> table.DataSet.CaseSensitive) Then
3852                 Me.CaseSensitive = table.CaseSensitive
3853             End If
3854             If (table.Locale.ToString <> table.DataSet.Locale.ToString) Then
3855                 Me.Locale = table.Locale
3856             End If
3857             If (table.Namespace <> table.DataSet.Namespace) Then
3858                 Me.Namespace = table.Namespace
3859             End If
3860             Me.Prefix = table.Prefix
3861             Me.MinimumCapacity = table.MinimumCapacity
3862         End Sub
3863         
3864         <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
3865          Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0")> _
3866         Protected Sub New(ByVal info As Global.System.Runtime.Serialization.SerializationInfo, ByVal context As Global.System.Runtime.Serialization.StreamingContext)
3867             MyBase.New(info, context)
3868             Me.InitVars
3869         End Sub
3870         
3871         <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
3872          Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0")> _
3873         Public ReadOnly Property IDColumn() As Global.System.Data.DataColumn
3874             Get
3875                 Return Me.columnID
3876             End Get
3877         End Property
3878         
3879         <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
3880          Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0")> _
3881         Public ReadOnly Property UserIDColumn() As Global.System.Data.DataColumn
3882             Get
3883                 Return Me.columnUserID
3884             End Get
3885         End Property
3886         
3887         <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
3888          Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0")> _
3889         Public ReadOnly Property OperationColumn() As Global.System.Data.DataColumn
3890             Get
3891                 Return Me.columnOperation
3892             End Get
3893         End Property
3894         
3895         <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
3896          Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0")> _
3897         Public ReadOnly Property DateColumn() As Global.System.Data.DataColumn
3898             Get
3899                 Return Me.columnDate
3900             End Get
3901         End Property
3902         
3903         <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
3904          Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0"), _
3905          Global.System.ComponentModel.Browsable(false)> _
3906         Public ReadOnly Property Count() As Integer
3907             Get
3908                 Return Me.Rows.Count
3909             End Get
3910         End Property
3911         
3912         <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
3913          Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0")> _
3914         Public Default ReadOnly Property Item(ByVal index As Integer) As LogsRow
3915             Get
3916                 Return CType(Me.Rows(index),LogsRow)
3917             End Get
3918         End Property
3919         
3920         <Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0")> _
3921         Public Event LogsRowChanging As LogsRowChangeEventHandler
3922         
3923         <Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0")> _
3924         Public Event LogsRowChanged As LogsRowChangeEventHandler
3925         
3926         <Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0")> _
3927         Public Event LogsRowDeleting As LogsRowChangeEventHandler
3928         
3929         <Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0")> _
3930         Public Event LogsRowDeleted As LogsRowChangeEventHandler
3931         
3932         <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
3933          Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0")> _
3934         Public Overloads Sub AddLogsRow(ByVal row As LogsRow)
3935             Me.Rows.Add(row)
3936         End Sub
3937         
3938         <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
3939          Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0")> _
3940         Public Overloads Function AddLogsRow(ByVal parentRegistrationRowByFK_Logs_Registration As RegistrationRow, ByVal Operation As String, ByVal _Date As Date) As LogsRow
3941             Dim rowLogsRow As LogsRow = CType(Me.NewRow,LogsRow)
3942             Dim columnValuesArray() As Object = New Object() {Nothing, Nothing, Operation, _Date}
3943             If (Not (parentRegistrationRowByFK_Logs_Registration) Is Nothing) Then
3944                 columnValuesArray(1) = parentRegistrationRowByFK_Logs_Registration(0)
3945             End If
3946             rowLogsRow.ItemArray = columnValuesArray
3947             Me.Rows.Add(rowLogsRow)
3948             Return rowLogsRow
3949         End Function
3950         
3951         <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
3952          Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0")> _
3953         Public Function FindByID(ByVal ID As Integer) As LogsRow
3954             Return CType(Me.Rows.Find(New Object() {ID}),LogsRow)
3955         End Function
3956         
3957         <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
3958          Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0")> _
3959         Public Overrides Function Clone() As Global.System.Data.DataTable
3960             Dim cln As LogsDataTable = CType(MyBase.Clone,LogsDataTable)
3961             cln.InitVars
3962             Return cln
3963         End Function
3964         
3965         <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
3966          Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0")> _
3967         Protected Overrides Function CreateInstance() As Global.System.Data.DataTable
3968             Return New LogsDataTable()
3969         End Function
3970         
3971         <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
3972          Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0")> _
3973         Friend Sub InitVars()
3974             Me.columnID = MyBase.Columns("ID")
3975             Me.columnUserID = MyBase.Columns("UserID")
3976             Me.columnOperation = MyBase.Columns("Operation")
3977             Me.columnDate = MyBase.Columns("Date")
3978         End Sub
3979         
3980         <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
3981          Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0")> _
3982         Private Sub InitClass()
3983             Me.columnID = New Global.System.Data.DataColumn("ID", GetType(Integer), Nothing, Global.System.Data.MappingType.Element)
3984             MyBase.Columns.Add(Me.columnID)
3985             Me.columnUserID = New Global.System.Data.DataColumn("UserID", GetType(String), Nothing, Global.System.Data.MappingType.Element)
3986             MyBase.Columns.Add(Me.columnUserID)
3987             Me.columnOperation = New Global.System.Data.DataColumn("Operation", GetType(String), Nothing, Global.System.Data.MappingType.Element)
3988             MyBase.Columns.Add(Me.columnOperation)
3989             Me.columnDate = New Global.System.Data.DataColumn("Date", GetType(Date), Nothing, Global.System.Data.MappingType.Element)
3990             Me.columnDate.ExtendedProperties.Add("Generator_ColumnPropNameInTable", "DateColumn")
3991             Me.columnDate.ExtendedProperties.Add("Generator_ColumnVarNameInTable", "columnDate")
3992             Me.columnDate.ExtendedProperties.Add("Generator_UserColumnName", "Date")
3993             MyBase.Columns.Add(Me.columnDate)
3994             Me.Constraints.Add(New Global.System.Data.UniqueConstraint("Constraint1", New Global.System.Data.DataColumn() {Me.columnID}, true))
3995             Me.columnID.AutoIncrement = true
3996             Me.columnID.AutoIncrementSeed = -1
3997             Me.columnID.AutoIncrementStep = -1
3998             Me.columnID.AllowDBNull = false
3999             Me.columnID.ReadOnly = true
4000             Me.columnID.Unique = true
4001             Me.columnUserID.AllowDBNull = false
4002             Me.columnUserID.MaxLength = 100
4003             Me.columnOperation.AllowDBNull = false
4004             Me.columnOperation.MaxLength = 2147483647
4005             Me.columnDate.AllowDBNull = false
4006         End Sub
4007         
4008         <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
4009          Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0")> _
4010         Public Function NewLogsRow() As LogsRow
4011             Return CType(Me.NewRow,LogsRow)
4012         End Function
4013         
4014         <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
4015          Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0")> _
4016         Protected Overrides Function NewRowFromBuilder(ByVal builder As Global.System.Data.DataRowBuilder) As Global.System.Data.DataRow
4017             Return New LogsRow(builder)
4018         End Function
4019         
4020         <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
4021          Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0")> _
4022         Protected Overrides Function GetRowType() As Global.System.Type
4023             Return GetType(LogsRow)
4024         End Function
4025         
4026         <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
4027          Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0")> _
4028         Protected Overrides Sub OnRowChanged(ByVal e As Global.System.Data.DataRowChangeEventArgs)
4029             MyBase.OnRowChanged(e)
4030             If (Not (Me.LogsRowChangedEvent) Is Nothing) Then
4031                 RaiseEvent LogsRowChanged(Me, New LogsRowChangeEvent(CType(e.Row,LogsRow), e.Action))
4032             End If
4033         End Sub
4034         
4035         <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
4036          Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0")> _
4037         Protected Overrides Sub OnRowChanging(ByVal e As Global.System.Data.DataRowChangeEventArgs)
4038             MyBase.OnRowChanging(e)
4039             If (Not (Me.LogsRowChangingEvent) Is Nothing) Then
4040                 RaiseEvent LogsRowChanging(Me, New LogsRowChangeEvent(CType(e.Row,LogsRow), e.Action))
4041             End If
4042         End Sub
4043         
4044         <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
4045          Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0")> _
4046         Protected Overrides Sub OnRowDeleted(ByVal e As Global.System.Data.DataRowChangeEventArgs)
4047             MyBase.OnRowDeleted(e)
4048             If (Not (Me.LogsRowDeletedEvent) Is Nothing) Then
4049                 RaiseEvent LogsRowDeleted(Me, New LogsRowChangeEvent(CType(e.Row,LogsRow), e.Action))
4050             End If
4051         End Sub
4052         
4053         <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
4054          Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0")> _
4055         Protected Overrides Sub OnRowDeleting(ByVal e As Global.System.Data.DataRowChangeEventArgs)
4056             MyBase.OnRowDeleting(e)
4057             If (Not (Me.LogsRowDeletingEvent) Is Nothing) Then
4058                 RaiseEvent LogsRowDeleting(Me, New LogsRowChangeEvent(CType(e.Row,LogsRow), e.Action))
4059             End If
4060         End Sub
4061         
4062         <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
4063          Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0")> _
4064         Public Sub RemoveLogsRow(ByVal row As LogsRow)
4065             Me.Rows.Remove(row)
4066         End Sub
4067         
4068         <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
4069          Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0")> _
4070         Public Shared Function GetTypedTableSchema(ByVal xs As Global.System.Xml.Schema.XmlSchemaSet) As Global.System.Xml.Schema.XmlSchemaComplexType
4071             Dim type As Global.System.Xml.Schema.XmlSchemaComplexType = New Global.System.Xml.Schema.XmlSchemaComplexType()
4072             Dim sequence As Global.System.Xml.Schema.XmlSchemaSequence = New Global.System.Xml.Schema.XmlSchemaSequence()
4073             Dim ds As SIS_DBDataSet = New SIS_DBDataSet()
4074             Dim any1 As Global.System.Xml.Schema.XmlSchemaAny = New Global.System.Xml.Schema.XmlSchemaAny()
4075             any1.Namespace = "http://www.w3.org/2001/XMLSchema"
4076             any1.MinOccurs = New Decimal(0)
4077             any1.MaxOccurs = Decimal.MaxValue
4078             any1.ProcessContents = Global.System.Xml.Schema.XmlSchemaContentProcessing.Lax
4079             sequence.Items.Add(any1)
4080             Dim any2 As Global.System.Xml.Schema.XmlSchemaAny = New Global.System.Xml.Schema.XmlSchemaAny()
4081             any2.Namespace = "urn:schemas-microsoft-com:xml-diffgram-v1"
4082             any2.MinOccurs = New Decimal(1)
4083             any2.ProcessContents = Global.System.Xml.Schema.XmlSchemaContentProcessing.Lax
4084             sequence.Items.Add(any2)
4085             Dim attribute1 As Global.System.Xml.Schema.XmlSchemaAttribute = New Global.System.Xml.Schema.XmlSchemaAttribute()
4086             attribute1.Name = "namespace"
4087             attribute1.FixedValue = ds.Namespace
4088             type.Attributes.Add(attribute1)
4089             Dim attribute2 As Global.System.Xml.Schema.XmlSchemaAttribute = New Global.System.Xml.Schema.XmlSchemaAttribute()
4090             attribute2.Name = "tableTypeName"
4091             attribute2.FixedValue = "LogsDataTable"
4092             type.Attributes.Add(attribute2)
4093             type.Particle = sequence
4094             Dim dsSchema As Global.System.Xml.Schema.XmlSchema = ds.GetSchemaSerializable
4095             If xs.Contains(dsSchema.TargetNamespace) Then
4096                 Dim s1 As Global.System.IO.MemoryStream = New Global.System.IO.MemoryStream()
4097                 Dim s2 As Global.System.IO.MemoryStream = New Global.System.IO.MemoryStream()
4098                 Try
4099                     Dim schema As Global.System.Xml.Schema.XmlSchema = Nothing
4100                     dsSchema.Write(s1)
4101                     Dim schemas As Global.System.Collections.IEnumerator = xs.Schemas(dsSchema.TargetNamespace).GetEnumerator
4102                     Do While schemas.MoveNext
4103                         schema = CType(schemas.Current,Global.System.Xml.Schema.XmlSchema)
4104                         s2.SetLength(0)
4105                         schema.Write(s2)
4106                         If (s1.Length = s2.Length) Then
4107                             s1.Position = 0
4108                             s2.Position = 0
4109                             
4110                             Do While ((s1.Position <> s1.Length) _
4111                                         AndAlso (s1.ReadByte = s2.ReadByte))
4112                                 
4113                                 
4114                             Loop
4115                             If (s1.Position = s1.Length) Then
4116                                 Return type
4117                             End If
4118                         End If
4119                         
4120                     Loop
4121                 Finally
4122                     If (Not (s1) Is Nothing) Then
4123                         s1.Close
4124                     End If
4125                     If (Not (s2) Is Nothing) Then
4126                         s2.Close
4127                     End If
4128                 End Try
4129             End If
4130             xs.Add(dsSchema)
4131             Return type
4132         End Function
4133     End Class
4134     
4135     '''<summary>
4136     '''Represents the strongly named DataTable class.
4137     '''</summary>
4138     <Global.System.Serializable(), _
4139      Global.System.Xml.Serialization.XmlSchemaProviderAttribute("GetTypedTableSchema")> _
4140     Partial Public Class ProductDataTable
4141         Inherits Global.System.Data.TypedTableBase(Of ProductRow)
4142         
4143         Private columnPID As Global.System.Data.DataColumn
4144         
4145         Private columnProductCode As Global.System.Data.DataColumn
4146         
4147         Private columnProductName As Global.System.Data.DataColumn
4148         
4149         Private columnSubCategoryID As Global.System.Data.DataColumn
4150         
4151         Private columnDescription As Global.System.Data.DataColumn
4152         
4153         Private columnCostPrice As Global.System.Data.DataColumn
4154         
4155         Private columnSellingPrice As Global.System.Data.DataColumn
4156         
4157         Private columnDiscount As Global.System.Data.DataColumn
4158         
4159         Private columnVAT As Global.System.Data.DataColumn
4160         
4161         Private columnReorderPoint As Global.System.Data.DataColumn
4162         
4163         <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
4164          Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0")> _
4165         Public Sub New()
4166             MyBase.New
4167             Me.TableName = "Product"
4168             Me.BeginInit
4169             Me.InitClass
4170             Me.EndInit
4171         End Sub
4172         
4173         <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
4174          Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0")> _
4175         Friend Sub New(ByVal table As Global.System.Data.DataTable)
4176             MyBase.New
4177             Me.TableName = table.TableName
4178             If (table.CaseSensitive <> table.DataSet.CaseSensitive) Then
4179                 Me.CaseSensitive = table.CaseSensitive
4180             End If
4181             If (table.Locale.ToString <> table.DataSet.Locale.ToString) Then
4182                 Me.Locale = table.Locale
4183             End If
4184             If (table.Namespace <> table.DataSet.Namespace) Then
4185                 Me.Namespace = table.Namespace
4186             End If
4187             Me.Prefix = table.Prefix
4188             Me.MinimumCapacity = table.MinimumCapacity
4189         End Sub
4190         
4191         <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
4192          Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0")> _
4193         Protected Sub New(ByVal info As Global.System.Runtime.Serialization.SerializationInfo, ByVal context As Global.System.Runtime.Serialization.StreamingContext)
4194             MyBase.New(info, context)
4195             Me.InitVars
4196         End Sub
4197         
4198         <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
4199          Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0")> _
4200         Public ReadOnly Property PIDColumn() As Global.System.Data.DataColumn
4201             Get
4202                 Return Me.columnPID
4203             End Get
4204         End Property
4205         
4206         <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
4207          Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0")> _
4208         Public ReadOnly Property ProductCodeColumn() As Global.System.Data.DataColumn
4209             Get
4210                 Return Me.columnProductCode
4211             End Get
4212         End Property
4213         
4214         <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
4215          Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0")> _
4216         Public ReadOnly Property ProductNameColumn() As Global.System.Data.DataColumn
4217             Get
4218                 Return Me.columnProductName
4219             End Get
4220         End Property
4221         
4222         <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
4223          Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0")> _
4224         Public ReadOnly Property SubCategoryIDColumn() As Global.System.Data.DataColumn
4225             Get
4226                 Return Me.columnSubCategoryID
4227             End Get
4228         End Property
4229         
4230         <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
4231          Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0")> _
4232         Public ReadOnly Property DescriptionColumn() As Global.System.Data.DataColumn
4233             Get
4234                 Return Me.columnDescription
4235             End Get
4236         End Property
4237         
4238         <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
4239          Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0")> _
4240         Public ReadOnly Property CostPriceColumn() As Global.System.Data.DataColumn
4241             Get
4242                 Return Me.columnCostPrice
4243             End Get
4244         End Property
4245         
4246         <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
4247          Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0")> _
4248         Public ReadOnly Property SellingPriceColumn() As Global.System.Data.DataColumn
4249             Get
4250                 Return Me.columnSellingPrice
4251             End Get
4252         End Property
4253         
4254         <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
4255          Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0")> _
4256         Public ReadOnly Property DiscountColumn() As Global.System.Data.DataColumn
4257             Get
4258                 Return Me.columnDiscount
4259             End Get
4260         End Property
4261         
4262         <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
4263          Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0")> _
4264         Public ReadOnly Property VATColumn() As Global.System.Data.DataColumn
4265             Get
4266                 Return Me.columnVAT
4267             End Get
4268         End Property
4269         
4270         <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
4271          Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0")> _
4272         Public ReadOnly Property ReorderPointColumn() As Global.System.Data.DataColumn
4273             Get
4274                 Return Me.columnReorderPoint
4275             End Get
4276         End Property
4277         
4278         <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
4279          Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0"), _
4280          Global.System.ComponentModel.Browsable(false)> _
4281         Public ReadOnly Property Count() As Integer
4282             Get
4283                 Return Me.Rows.Count
4284             End Get
4285         End Property
4286         
4287         <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
4288          Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0")> _
4289         Public Default ReadOnly Property Item(ByVal index As Integer) As ProductRow
4290             Get
4291                 Return CType(Me.Rows(index),ProductRow)
4292             End Get
4293         End Property
4294         
4295         <Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0")> _
4296         Public Event ProductRowChanging As ProductRowChangeEventHandler
4297         
4298         <Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0")> _
4299         Public Event ProductRowChanged As ProductRowChangeEventHandler
4300         
4301         <Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0")> _
4302         Public Event ProductRowDeleting As ProductRowChangeEventHandler
4303         
4304         <Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0")> _
4305         Public Event ProductRowDeleted As ProductRowChangeEventHandler
4306         
4307         <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
4308          Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0")> _
4309         Public Overloads Sub AddProductRow(ByVal row As ProductRow)
4310             Me.Rows.Add(row)
4311         End Sub
4312         
4313         <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
4314          Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0")> _
4315         Public Overloads Function AddProductRow(ByVal PID As Integer, ByVal ProductCode As String, ByVal ProductName As String, ByVal parentSubCategoryRowByFK_Product_SubCategory As SubCategoryRow, ByVal Description As String, ByVal CostPrice As Decimal, ByVal SellingPrice As Decimal, ByVal Discount As Decimal, ByVal VAT As Decimal, ByVal ReorderPoint As Integer) As ProductRow
4316             Dim rowProductRow As ProductRow = CType(Me.NewRow,ProductRow)
4317             Dim columnValuesArray() As Object = New Object() {PID, ProductCode, ProductName, Nothing, Description, CostPrice, SellingPrice, Discount, VAT, ReorderPoint}
4318             If (Not (parentSubCategoryRowByFK_Product_SubCategory) Is Nothing) Then
4319                 columnValuesArray(3) = parentSubCategoryRowByFK_Product_SubCategory(0)
4320             End If
4321             rowProductRow.ItemArray = columnValuesArray
4322             Me.Rows.Add(rowProductRow)
4323             Return rowProductRow
4324         End Function
4325         
4326         <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
4327          Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0")> _
4328         Public Function FindByPID(ByVal PID As Integer) As ProductRow
4329             Return CType(Me.Rows.Find(New Object() {PID}),ProductRow)
4330         End Function
4331         
4332         <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
4333          Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0")> _
4334         Public Overrides Function Clone() As Global.System.Data.DataTable
4335             Dim cln As ProductDataTable = CType(MyBase.Clone,ProductDataTable)
4336             cln.InitVars
4337             Return cln
4338         End Function
4339         
4340         <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
4341          Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0")> _
4342         Protected Overrides Function CreateInstance() As Global.System.Data.DataTable
4343             Return New ProductDataTable()
4344         End Function
4345         
4346         <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
4347          Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0")> _
4348         Friend Sub InitVars()
4349             Me.columnPID = MyBase.Columns("PID")
4350             Me.columnProductCode = MyBase.Columns("ProductCode")
4351             Me.columnProductName = MyBase.Columns("ProductName")
4352             Me.columnSubCategoryID = MyBase.Columns("SubCategoryID")
4353             Me.columnDescription = MyBase.Columns("Description")
4354             Me.columnCostPrice = MyBase.Columns("CostPrice")
4355             Me.columnSellingPrice = MyBase.Columns("SellingPrice")
4356             Me.columnDiscount = MyBase.Columns("Discount")
4357             Me.columnVAT = MyBase.Columns("VAT")
4358             Me.columnReorderPoint = MyBase.Columns("ReorderPoint")
4359         End Sub
4360         
4361         <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
4362          Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0")> _
4363         Private Sub InitClass()
4364             Me.columnPID = New Global.System.Data.DataColumn("PID", GetType(Integer), Nothing, Global.System.Data.MappingType.Element)
4365             MyBase.Columns.Add(Me.columnPID)
4366             Me.columnProductCode = New Global.System.Data.DataColumn("ProductCode", GetType(String), Nothing, Global.System.Data.MappingType.Element)
4367             MyBase.Columns.Add(Me.columnProductCode)
4368             Me.columnProductName = New Global.System.Data.DataColumn("ProductName", GetType(String), Nothing, Global.System.Data.MappingType.Element)
4369             MyBase.Columns.Add(Me.columnProductName)
4370             Me.columnSubCategoryID = New Global.System.Data.DataColumn("SubCategoryID", GetType(Integer), Nothing, Global.System.Data.MappingType.Element)
4371             MyBase.Columns.Add(Me.columnSubCategoryID)
4372             Me.columnDescription = New Global.System.Data.DataColumn("Description", GetType(String), Nothing, Global.System.Data.MappingType.Element)
4373             MyBase.Columns.Add(Me.columnDescription)
4374             Me.columnCostPrice = New Global.System.Data.DataColumn("CostPrice", GetType(Decimal), Nothing, Global.System.Data.MappingType.Element)
4375             MyBase.Columns.Add(Me.columnCostPrice)
4376             Me.columnSellingPrice = New Global.System.Data.DataColumn("SellingPrice", GetType(Decimal), Nothing, Global.System.Data.MappingType.Element)
4377             MyBase.Columns.Add(Me.columnSellingPrice)
4378             Me.columnDiscount = New Global.System.Data.DataColumn("Discount", GetType(Decimal), Nothing, Global.System.Data.MappingType.Element)
4379             MyBase.Columns.Add(Me.columnDiscount)
4380             Me.columnVAT = New Global.System.Data.DataColumn("VAT", GetType(Decimal), Nothing, Global.System.Data.MappingType.Element)
4381             MyBase.Columns.Add(Me.columnVAT)
4382             Me.columnReorderPoint = New Global.System.Data.DataColumn("ReorderPoint", GetType(Integer), Nothing, Global.System.Data.MappingType.Element)
4383             MyBase.Columns.Add(Me.columnReorderPoint)
4384             Me.Constraints.Add(New Global.System.Data.UniqueConstraint("Constraint1", New Global.System.Data.DataColumn() {Me.columnPID}, true))
4385             Me.columnPID.AllowDBNull = false
4386             Me.columnPID.Unique = true
4387             Me.columnProductCode.AllowDBNull = false
4388             Me.columnProductCode.MaxLength = 30
4389             Me.columnProductName.AllowDBNull = false
4390             Me.columnProductName.MaxLength = 200
4391             Me.columnSubCategoryID.AllowDBNull = false
4392             Me.columnDescription.MaxLength = 2147483647
4393             Me.columnCostPrice.AllowDBNull = false
4394             Me.columnSellingPrice.AllowDBNull = false
4395             Me.columnDiscount.AllowDBNull = false
4396             Me.columnVAT.AllowDBNull = false
4397             Me.columnReorderPoint.AllowDBNull = false
4398         End Sub
4399         
4400         <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
4401          Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0")> _
4402         Public Function NewProductRow() As ProductRow
4403             Return CType(Me.NewRow,ProductRow)
4404         End Function
4405         
4406         <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
4407          Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0")> _
4408         Protected Overrides Function NewRowFromBuilder(ByVal builder As Global.System.Data.DataRowBuilder) As Global.System.Data.DataRow
4409             Return New ProductRow(builder)
4410         End Function
4411         
4412         <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
4413          Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0")> _
4414         Protected Overrides Function GetRowType() As Global.System.Type
4415             Return GetType(ProductRow)
4416         End Function
4417         
4418         <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
4419          Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0")> _
4420         Protected Overrides Sub OnRowChanged(ByVal e As Global.System.Data.DataRowChangeEventArgs)
4421             MyBase.OnRowChanged(e)
4422             If (Not (Me.ProductRowChangedEvent) Is Nothing) Then
4423                 RaiseEvent ProductRowChanged(Me, New ProductRowChangeEvent(CType(e.Row,ProductRow), e.Action))
4424             End If
4425         End Sub
4426         
4427         <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
4428          Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0")> _
4429         Protected Overrides Sub OnRowChanging(ByVal e As Global.System.Data.DataRowChangeEventArgs)
4430             MyBase.OnRowChanging(e)
4431             If (Not (Me.ProductRowChangingEvent) Is Nothing) Then
4432                 RaiseEvent ProductRowChanging(Me, New ProductRowChangeEvent(CType(e.Row,ProductRow), e.Action))
4433             End If
4434         End Sub
4435         
4436         <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
4437          Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0")> _
4438         Protected Overrides Sub OnRowDeleted(ByVal e As Global.System.Data.DataRowChangeEventArgs)
4439             MyBase.OnRowDeleted(e)
4440             If (Not (Me.ProductRowDeletedEvent) Is Nothing) Then
4441                 RaiseEvent ProductRowDeleted(Me, New ProductRowChangeEvent(CType(e.Row,ProductRow), e.Action))
4442             End If
4443         End Sub
4444         
4445         <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
4446          Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0")> _
4447         Protected Overrides Sub OnRowDeleting(ByVal e As Global.System.Data.DataRowChangeEventArgs)
4448             MyBase.OnRowDeleting(e)
4449             If (Not (Me.ProductRowDeletingEvent) Is Nothing) Then
4450                 RaiseEvent ProductRowDeleting(Me, New ProductRowChangeEvent(CType(e.Row,ProductRow), e.Action))
4451             End If
4452         End Sub
4453         
4454         <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
4455          Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0")> _
4456         Public Sub RemoveProductRow(ByVal row As ProductRow)
4457             Me.Rows.Remove(row)
4458         End Sub
4459         
4460         <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
4461          Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0")> _
4462         Public Shared Function GetTypedTableSchema(ByVal xs As Global.System.Xml.Schema.XmlSchemaSet) As Global.System.Xml.Schema.XmlSchemaComplexType
4463             Dim type As Global.System.Xml.Schema.XmlSchemaComplexType = New Global.System.Xml.Schema.XmlSchemaComplexType()
4464             Dim sequence As Global.System.Xml.Schema.XmlSchemaSequence = New Global.System.Xml.Schema.XmlSchemaSequence()
4465             Dim ds As SIS_DBDataSet = New SIS_DBDataSet()
4466             Dim any1 As Global.System.Xml.Schema.XmlSchemaAny = New Global.System.Xml.Schema.XmlSchemaAny()
4467             any1.Namespace = "http://www.w3.org/2001/XMLSchema"
4468             any1.MinOccurs = New Decimal(0)
4469             any1.MaxOccurs = Decimal.MaxValue
4470             any1.ProcessContents = Global.System.Xml.Schema.XmlSchemaContentProcessing.Lax
4471             sequence.Items.Add(any1)
4472             Dim any2 As Global.System.Xml.Schema.XmlSchemaAny = New Global.System.Xml.Schema.XmlSchemaAny()
4473             any2.Namespace = "urn:schemas-microsoft-com:xml-diffgram-v1"
4474             any2.MinOccurs = New Decimal(1)
4475             any2.ProcessContents = Global.System.Xml.Schema.XmlSchemaContentProcessing.Lax
4476             sequence.Items.Add(any2)
4477             Dim attribute1 As Global.System.Xml.Schema.XmlSchemaAttribute = New Global.System.Xml.Schema.XmlSchemaAttribute()
4478             attribute1.Name = "namespace"
4479             attribute1.FixedValue = ds.Namespace
4480             type.Attributes.Add(attribute1)
4481             Dim attribute2 As Global.System.Xml.Schema.XmlSchemaAttribute = New Global.System.Xml.Schema.XmlSchemaAttribute()
4482             attribute2.Name = "tableTypeName"
4483             attribute2.FixedValue = "ProductDataTable"
4484             type.Attributes.Add(attribute2)
4485             type.Particle = sequence
4486             Dim dsSchema As Global.System.Xml.Schema.XmlSchema = ds.GetSchemaSerializable
4487             If xs.Contains(dsSchema.TargetNamespace) Then
4488                 Dim s1 As Global.System.IO.MemoryStream = New Global.System.IO.MemoryStream()
4489                 Dim s2 As Global.System.IO.MemoryStream = New Global.System.IO.MemoryStream()
4490                 Try
4491                     Dim schema As Global.System.Xml.Schema.XmlSchema = Nothing
4492                     dsSchema.Write(s1)
4493                     Dim schemas As Global.System.Collections.IEnumerator = xs.Schemas(dsSchema.TargetNamespace).GetEnumerator
4494                     Do While schemas.MoveNext
4495                         schema = CType(schemas.Current,Global.System.Xml.Schema.XmlSchema)
4496                         s2.SetLength(0)
4497                         schema.Write(s2)
4498                         If (s1.Length = s2.Length) Then
4499                             s1.Position = 0
4500                             s2.Position = 0
4501                             
4502                             Do While ((s1.Position <> s1.Length) _
4503                                         AndAlso (s1.ReadByte = s2.ReadByte))
4504                                 
4505                                 
4506                             Loop
4507                             If (s1.Position = s1.Length) Then
4508                                 Return type
4509                             End If
4510                         End If
4511                         
4512                     Loop
4513                 Finally
4514                     If (Not (s1) Is Nothing) Then
4515                         s1.Close
4516                     End If
4517                     If (Not (s2) Is Nothing) Then
4518                         s2.Close
4519                     End If
4520                 End Try
4521             End If
4522             xs.Add(dsSchema)
4523             Return type
4524         End Function
4525     End Class
4526     
4527     '''<summary>
4528     '''Represents the strongly named DataTable class.
4529     '''</summary>
4530     <Global.System.Serializable(), _
4531      Global.System.Xml.Serialization.XmlSchemaProviderAttribute("GetTypedTableSchema")> _
4532     Partial Public Class Product_JoinDataTable
4533         Inherits Global.System.Data.TypedTableBase(Of Product_JoinRow)
4534         
4535         Private columnId As Global.System.Data.DataColumn
4536         
4537         Private columnProductID As Global.System.Data.DataColumn
4538         
4539         Private columnPhoto As Global.System.Data.DataColumn
4540         
4541         <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
4542          Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0")> _
4543         Public Sub New()
4544             MyBase.New
4545             Me.TableName = "Product_Join"
4546             Me.BeginInit
4547             Me.InitClass
4548             Me.EndInit
4549         End Sub
4550         
4551         <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
4552          Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0")> _
4553         Friend Sub New(ByVal table As Global.System.Data.DataTable)
4554             MyBase.New
4555             Me.TableName = table.TableName
4556             If (table.CaseSensitive <> table.DataSet.CaseSensitive) Then
4557                 Me.CaseSensitive = table.CaseSensitive
4558             End If
4559             If (table.Locale.ToString <> table.DataSet.Locale.ToString) Then
4560                 Me.Locale = table.Locale
4561             End If
4562             If (table.Namespace <> table.DataSet.Namespace) Then
4563                 Me.Namespace = table.Namespace
4564             End If
4565             Me.Prefix = table.Prefix
4566             Me.MinimumCapacity = table.MinimumCapacity
4567         End Sub
4568         
4569         <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
4570          Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0")> _
4571         Protected Sub New(ByVal info As Global.System.Runtime.Serialization.SerializationInfo, ByVal context As Global.System.Runtime.Serialization.StreamingContext)
4572             MyBase.New(info, context)
4573             Me.InitVars
4574         End Sub
4575         
4576         <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
4577          Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0")> _
4578         Public ReadOnly Property IdColumn() As Global.System.Data.DataColumn
4579             Get
4580                 Return Me.columnId
4581             End Get
4582         End Property
4583         
4584         <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
4585          Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0")> _
4586         Public ReadOnly Property ProductIDColumn() As Global.System.Data.DataColumn
4587             Get
4588                 Return Me.columnProductID
4589             End Get
4590         End Property
4591         
4592         <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
4593          Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0")> _
4594         Public ReadOnly Property PhotoColumn() As Global.System.Data.DataColumn
4595             Get
4596                 Return Me.columnPhoto
4597             End Get
4598         End Property
4599         
4600         <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
4601          Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0"), _
4602          Global.System.ComponentModel.Browsable(false)> _
4603         Public ReadOnly Property Count() As Integer
4604             Get
4605                 Return Me.Rows.Count
4606             End Get
4607         End Property
4608         
4609         <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
4610          Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0")> _
4611         Public Default ReadOnly Property Item(ByVal index As Integer) As Product_JoinRow
4612             Get
4613                 Return CType(Me.Rows(index),Product_JoinRow)
4614             End Get
4615         End Property
4616         
4617         <Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0")> _
4618         Public Event Product_JoinRowChanging As Product_JoinRowChangeEventHandler
4619         
4620         <Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0")> _
4621         Public Event Product_JoinRowChanged As Product_JoinRowChangeEventHandler
4622         
4623         <Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0")> _
4624         Public Event Product_JoinRowDeleting As Product_JoinRowChangeEventHandler
4625         
4626         <Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0")> _
4627         Public Event Product_JoinRowDeleted As Product_JoinRowChangeEventHandler
4628         
4629         <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
4630          Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0")> _
4631         Public Overloads Sub AddProduct_JoinRow(ByVal row As Product_JoinRow)
4632             Me.Rows.Add(row)
4633         End Sub
4634         
4635         <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
4636          Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0")> _
4637         Public Overloads Function AddProduct_JoinRow(ByVal parentProductRowByFK_Product_Join_Product As ProductRow, ByVal Photo() As Byte) As Product_JoinRow
4638             Dim rowProduct_JoinRow As Product_JoinRow = CType(Me.NewRow,Product_JoinRow)
4639             Dim columnValuesArray() As Object = New Object() {Nothing, Nothing, Photo}
4640             If (Not (parentProductRowByFK_Product_Join_Product) Is Nothing) Then
4641                 columnValuesArray(1) = parentProductRowByFK_Product_Join_Product(0)
4642             End If
4643             rowProduct_JoinRow.ItemArray = columnValuesArray
4644             Me.Rows.Add(rowProduct_JoinRow)
4645             Return rowProduct_JoinRow
4646         End Function
4647         
4648         <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
4649          Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0")> _
4650         Public Function FindById(ByVal Id As Integer) As Product_JoinRow
4651             Return CType(Me.Rows.Find(New Object() {Id}),Product_JoinRow)
4652         End Function
4653         
4654         <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
4655          Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0")> _
4656         Public Overrides Function Clone() As Global.System.Data.DataTable
4657             Dim cln As Product_JoinDataTable = CType(MyBase.Clone,Product_JoinDataTable)
4658             cln.InitVars
4659             Return cln
4660         End Function
4661         
4662         <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
4663          Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0")> _
4664         Protected Overrides Function CreateInstance() As Global.System.Data.DataTable
4665             Return New Product_JoinDataTable()
4666         End Function
4667         
4668         <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
4669          Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0")> _
4670         Friend Sub InitVars()
4671             Me.columnId = MyBase.Columns("Id")
4672             Me.columnProductID = MyBase.Columns("ProductID")
4673             Me.columnPhoto = MyBase.Columns("Photo")
4674         End Sub
4675         
4676         <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
4677          Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0")> _
4678         Private Sub InitClass()
4679             Me.columnId = New Global.System.Data.DataColumn("Id", GetType(Integer), Nothing, Global.System.Data.MappingType.Element)
4680             MyBase.Columns.Add(Me.columnId)
4681             Me.columnProductID = New Global.System.Data.DataColumn("ProductID", GetType(Integer), Nothing, Global.System.Data.MappingType.Element)
4682             MyBase.Columns.Add(Me.columnProductID)
4683             Me.columnPhoto = New Global.System.Data.DataColumn("Photo", GetType(Byte()), Nothing, Global.System.Data.MappingType.Element)
4684             MyBase.Columns.Add(Me.columnPhoto)
4685             Me.Constraints.Add(New Global.System.Data.UniqueConstraint("Constraint1", New Global.System.Data.DataColumn() {Me.columnId}, true))
4686             Me.columnId.AutoIncrement = true
4687             Me.columnId.AutoIncrementSeed = -1
4688             Me.columnId.AutoIncrementStep = -1
4689             Me.columnId.AllowDBNull = false
4690             Me.columnId.ReadOnly = true
4691             Me.columnId.Unique = true
4692             Me.columnProductID.AllowDBNull = false
4693             Me.columnPhoto.AllowDBNull = false
4694         End Sub
4695         
4696         <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
4697          Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0")> _
4698         Public Function NewProduct_JoinRow() As Product_JoinRow
4699             Return CType(Me.NewRow,Product_JoinRow)
4700         End Function
4701         
4702         <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
4703          Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0")> _
4704         Protected Overrides Function NewRowFromBuilder(ByVal builder As Global.System.Data.DataRowBuilder) As Global.System.Data.DataRow
4705             Return New Product_JoinRow(builder)
4706         End Function
4707         
4708         <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
4709          Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0")> _
4710         Protected Overrides Function GetRowType() As Global.System.Type
4711             Return GetType(Product_JoinRow)
4712         End Function
4713         
4714         <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
4715          Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0")> _
4716         Protected Overrides Sub OnRowChanged(ByVal e As Global.System.Data.DataRowChangeEventArgs)
4717             MyBase.OnRowChanged(e)
4718             If (Not (Me.Product_JoinRowChangedEvent) Is Nothing) Then
4719                 RaiseEvent Product_JoinRowChanged(Me, New Product_JoinRowChangeEvent(CType(e.Row,Product_JoinRow), e.Action))
4720             End If
4721         End Sub
4722         
4723         <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
4724          Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0")> _
4725         Protected Overrides Sub OnRowChanging(ByVal e As Global.System.Data.DataRowChangeEventArgs)
4726             MyBase.OnRowChanging(e)
4727             If (Not (Me.Product_JoinRowChangingEvent) Is Nothing) Then
4728                 RaiseEvent Product_JoinRowChanging(Me, New Product_JoinRowChangeEvent(CType(e.Row,Product_JoinRow), e.Action))
4729             End If
4730         End Sub
4731         
4732         <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
4733          Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0")> _
4734         Protected Overrides Sub OnRowDeleted(ByVal e As Global.System.Data.DataRowChangeEventArgs)
4735             MyBase.OnRowDeleted(e)
4736             If (Not (Me.Product_JoinRowDeletedEvent) Is Nothing) Then
4737                 RaiseEvent Product_JoinRowDeleted(Me, New Product_JoinRowChangeEvent(CType(e.Row,Product_JoinRow), e.Action))
4738             End If
4739         End Sub
4740         
4741         <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
4742          Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0")> _
4743         Protected Overrides Sub OnRowDeleting(ByVal e As Global.System.Data.DataRowChangeEventArgs)
4744             MyBase.OnRowDeleting(e)
4745             If (Not (Me.Product_JoinRowDeletingEvent) Is Nothing) Then
4746                 RaiseEvent Product_JoinRowDeleting(Me, New Product_JoinRowChangeEvent(CType(e.Row,Product_JoinRow), e.Action))
4747             End If
4748         End Sub
4749         
4750         <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
4751          Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0")> _
4752         Public Sub RemoveProduct_JoinRow(ByVal row As Product_JoinRow)
4753             Me.Rows.Remove(row)
4754         End Sub
4755         
4756         <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
4757          Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0")> _
4758         Public Shared Function GetTypedTableSchema(ByVal xs As Global.System.Xml.Schema.XmlSchemaSet) As Global.System.Xml.Schema.XmlSchemaComplexType
4759             Dim type As Global.System.Xml.Schema.XmlSchemaComplexType = New Global.System.Xml.Schema.XmlSchemaComplexType()
4760             Dim sequence As Global.System.Xml.Schema.XmlSchemaSequence = New Global.System.Xml.Schema.XmlSchemaSequence()
4761             Dim ds As SIS_DBDataSet = New SIS_DBDataSet()
4762             Dim any1 As Global.System.Xml.Schema.XmlSchemaAny = New Global.System.Xml.Schema.XmlSchemaAny()
4763             any1.Namespace = "http://www.w3.org/2001/XMLSchema"
4764             any1.MinOccurs = New Decimal(0)
4765             any1.MaxOccurs = Decimal.MaxValue
4766             any1.ProcessContents = Global.System.Xml.Schema.XmlSchemaContentProcessing.Lax
4767             sequence.Items.Add(any1)
4768             Dim any2 As Global.System.Xml.Schema.XmlSchemaAny = New Global.System.Xml.Schema.XmlSchemaAny()
4769             any2.Namespace = "urn:schemas-microsoft-com:xml-diffgram-v1"
4770             any2.MinOccurs = New Decimal(1)
4771             any2.ProcessContents = Global.System.Xml.Schema.XmlSchemaContentProcessing.Lax
4772             sequence.Items.Add(any2)
4773             Dim attribute1 As Global.System.Xml.Schema.XmlSchemaAttribute = New Global.System.Xml.Schema.XmlSchemaAttribute()
4774             attribute1.Name = "namespace"
4775             attribute1.FixedValue = ds.Namespace
4776             type.Attributes.Add(attribute1)
4777             Dim attribute2 As Global.System.Xml.Schema.XmlSchemaAttribute = New Global.System.Xml.Schema.XmlSchemaAttribute()
4778             attribute2.Name = "tableTypeName"
4779             attribute2.FixedValue = "Product_JoinDataTable"
4780             type.Attributes.Add(attribute2)
4781             type.Particle = sequence
4782             Dim dsSchema As Global.System.Xml.Schema.XmlSchema = ds.GetSchemaSerializable
4783             If xs.Contains(dsSchema.TargetNamespace) Then
4784                 Dim s1 As Global.System.IO.MemoryStream = New Global.System.IO.MemoryStream()
4785                 Dim s2 As Global.System.IO.MemoryStream = New Global.System.IO.MemoryStream()
4786                 Try
4787                     Dim schema As Global.System.Xml.Schema.XmlSchema = Nothing
4788                     dsSchema.Write(s1)
4789                     Dim schemas As Global.System.Collections.IEnumerator = xs.Schemas(dsSchema.TargetNamespace).GetEnumerator
4790                     Do While schemas.MoveNext
4791                         schema = CType(schemas.Current,Global.System.Xml.Schema.XmlSchema)
4792                         s2.SetLength(0)
4793                         schema.Write(s2)
4794                         If (s1.Length = s2.Length) Then
4795                             s1.Position = 0
4796                             s2.Position = 0
4797                             
4798                             Do While ((s1.Position <> s1.Length) _
4799                                         AndAlso (s1.ReadByte = s2.ReadByte))
4800                                 
4801                                 
4802                             Loop
4803                             If (s1.Position = s1.Length) Then
4804                                 Return type
4805                             End If
4806                         End If
4807                         
4808                     Loop
4809                 Finally
4810                     If (Not (s1) Is Nothing) Then
4811                         s1.Close
4812                     End If
4813                     If (Not (s2) Is Nothing) Then
4814                         s2.Close
4815                     End If
4816                 End Try
4817             End If
4818             xs.Add(dsSchema)
4819             Return type
4820         End Function
4821     End Class
4822     
4823     '''<summary>
4824     '''Represents the strongly named DataTable class.
4825     '''</summary>
4826     <Global.System.Serializable(), _
4827      Global.System.Xml.Serialization.XmlSchemaProviderAttribute("GetTypedTableSchema")> _
4828     Partial Public Class QuotationDataTable
4829         Inherits Global.System.Data.TypedTableBase(Of QuotationRow)
4830         
4831         Private columnQ_ID As Global.System.Data.DataColumn
4832         
4833         Private columnQuotationNo As Global.System.Data.DataColumn
4834         
4835         Private columnDate As Global.System.Data.DataColumn
4836         
4837         Private columnCustomerID As Global.System.Data.DataColumn
4838         
4839         Private columnGrandTotal As Global.System.Data.DataColumn
4840         
4841         Private columnRemarks As Global.System.Data.DataColumn
4842         
4843         <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
4844          Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0")> _
4845         Public Sub New()
4846             MyBase.New
4847             Me.TableName = "Quotation"
4848             Me.BeginInit
4849             Me.InitClass
4850             Me.EndInit
4851         End Sub
4852         
4853         <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
4854          Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0")> _
4855         Friend Sub New(ByVal table As Global.System.Data.DataTable)
4856             MyBase.New
4857             Me.TableName = table.TableName
4858             If (table.CaseSensitive <> table.DataSet.CaseSensitive) Then
4859                 Me.CaseSensitive = table.CaseSensitive
4860             End If
4861             If (table.Locale.ToString <> table.DataSet.Locale.ToString) Then
4862                 Me.Locale = table.Locale
4863             End If
4864             If (table.Namespace <> table.DataSet.Namespace) Then
4865                 Me.Namespace = table.Namespace
4866             End If
4867             Me.Prefix = table.Prefix
4868             Me.MinimumCapacity = table.MinimumCapacity
4869         End Sub
4870         
4871         <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
4872          Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0")> _
4873         Protected Sub New(ByVal info As Global.System.Runtime.Serialization.SerializationInfo, ByVal context As Global.System.Runtime.Serialization.StreamingContext)
4874             MyBase.New(info, context)
4875             Me.InitVars
4876         End Sub
4877         
4878         <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
4879          Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0")> _
4880         Public ReadOnly Property Q_IDColumn() As Global.System.Data.DataColumn
4881             Get
4882                 Return Me.columnQ_ID
4883             End Get
4884         End Property
4885         
4886         <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
4887          Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0")> _
4888         Public ReadOnly Property QuotationNoColumn() As Global.System.Data.DataColumn
4889             Get
4890                 Return Me.columnQuotationNo
4891             End Get
4892         End Property
4893         
4894         <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
4895          Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0")> _
4896         Public ReadOnly Property DateColumn() As Global.System.Data.DataColumn
4897             Get
4898                 Return Me.columnDate
4899             End Get
4900         End Property
4901         
4902         <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
4903          Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0")> _
4904         Public ReadOnly Property CustomerIDColumn() As Global.System.Data.DataColumn
4905             Get
4906                 Return Me.columnCustomerID
4907             End Get
4908         End Property
4909         
4910         <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
4911          Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0")> _
4912         Public ReadOnly Property GrandTotalColumn() As Global.System.Data.DataColumn
4913             Get
4914                 Return Me.columnGrandTotal
4915             End Get
4916         End Property
4917         
4918         <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
4919          Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0")> _
4920         Public ReadOnly Property RemarksColumn() As Global.System.Data.DataColumn
4921             Get
4922                 Return Me.columnRemarks
4923             End Get
4924         End Property
4925         
4926         <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
4927          Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0"), _
4928          Global.System.ComponentModel.Browsable(false)> _
4929         Public ReadOnly Property Count() As Integer
4930             Get
4931                 Return Me.Rows.Count
4932             End Get
4933         End Property
4934         
4935         <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
4936          Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0")> _
4937         Public Default ReadOnly Property Item(ByVal index As Integer) As QuotationRow
4938             Get
4939                 Return CType(Me.Rows(index),QuotationRow)
4940             End Get
4941         End Property
4942         
4943         <Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0")> _
4944         Public Event QuotationRowChanging As QuotationRowChangeEventHandler
4945         
4946         <Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0")> _
4947         Public Event QuotationRowChanged As QuotationRowChangeEventHandler
4948         
4949         <Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0")> _
4950         Public Event QuotationRowDeleting As QuotationRowChangeEventHandler
4951         
4952         <Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0")> _
4953         Public Event QuotationRowDeleted As QuotationRowChangeEventHandler
4954         
4955         <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
4956          Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0")> _
4957         Public Overloads Sub AddQuotationRow(ByVal row As QuotationRow)
4958             Me.Rows.Add(row)
4959         End Sub
4960         
4961         <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
4962          Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0")> _
4963         Public Overloads Function AddQuotationRow(ByVal Q_ID As Integer, ByVal QuotationNo As String, ByVal _Date As Date, ByVal parentCustomerRowByFK_Quotation_Customer As CustomerRow, ByVal GrandTotal As Decimal, ByVal Remarks As String) As QuotationRow
4964             Dim rowQuotationRow As QuotationRow = CType(Me.NewRow,QuotationRow)
4965             Dim columnValuesArray() As Object = New Object() {Q_ID, QuotationNo, _Date, Nothing, GrandTotal, Remarks}
4966             If (Not (parentCustomerRowByFK_Quotation_Customer) Is Nothing) Then
4967                 columnValuesArray(3) = parentCustomerRowByFK_Quotation_Customer(0)
4968             End If
4969             rowQuotationRow.ItemArray = columnValuesArray
4970             Me.Rows.Add(rowQuotationRow)
4971             Return rowQuotationRow
4972         End Function
4973         
4974         <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
4975          Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0")> _
4976         Public Function FindByQ_ID(ByVal Q_ID As Integer) As QuotationRow
4977             Return CType(Me.Rows.Find(New Object() {Q_ID}),QuotationRow)
4978         End Function
4979         
4980         <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
4981          Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0")> _
4982         Public Overrides Function Clone() As Global.System.Data.DataTable
4983             Dim cln As QuotationDataTable = CType(MyBase.Clone,QuotationDataTable)
4984             cln.InitVars
4985             Return cln
4986         End Function
4987         
4988         <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
4989          Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0")> _
4990         Protected Overrides Function CreateInstance() As Global.System.Data.DataTable
4991             Return New QuotationDataTable()
4992         End Function
4993         
4994         <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
4995          Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0")> _
4996         Friend Sub InitVars()
4997             Me.columnQ_ID = MyBase.Columns("Q_ID")
4998             Me.columnQuotationNo = MyBase.Columns("QuotationNo")
4999             Me.columnDate = MyBase.Columns("Date")
5000             Me.columnCustomerID = MyBase.Columns("CustomerID")
5001             Me.columnGrandTotal = MyBase.Columns("GrandTotal")
5002             Me.columnRemarks = MyBase.Columns("Remarks")
5003         End Sub
5004         
5005         <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
5006          Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0")> _
5007         Private Sub InitClass()
5008             Me.columnQ_ID = New Global.System.Data.DataColumn("Q_ID", GetType(Integer), Nothing, Global.System.Data.MappingType.Element)
5009             MyBase.Columns.Add(Me.columnQ_ID)
5010             Me.columnQuotationNo = New Global.System.Data.DataColumn("QuotationNo", GetType(String), Nothing, Global.System.Data.MappingType.Element)
5011             MyBase.Columns.Add(Me.columnQuotationNo)
5012             Me.columnDate = New Global.System.Data.DataColumn("Date", GetType(Date), Nothing, Global.System.Data.MappingType.Element)
5013             Me.columnDate.ExtendedProperties.Add("Generator_ColumnPropNameInTable", "DateColumn")
5014             Me.columnDate.ExtendedProperties.Add("Generator_ColumnVarNameInTable", "columnDate")
5015             Me.columnDate.ExtendedProperties.Add("Generator_UserColumnName", "Date")
5016             MyBase.Columns.Add(Me.columnDate)
5017             Me.columnCustomerID = New Global.System.Data.DataColumn("CustomerID", GetType(Integer), Nothing, Global.System.Data.MappingType.Element)
5018             MyBase.Columns.Add(Me.columnCustomerID)
5019             Me.columnGrandTotal = New Global.System.Data.DataColumn("GrandTotal", GetType(Decimal), Nothing, Global.System.Data.MappingType.Element)
5020             MyBase.Columns.Add(Me.columnGrandTotal)
5021             Me.columnRemarks = New Global.System.Data.DataColumn("Remarks", GetType(String), Nothing, Global.System.Data.MappingType.Element)
5022             MyBase.Columns.Add(Me.columnRemarks)
5023             Me.Constraints.Add(New Global.System.Data.UniqueConstraint("Constraint1", New Global.System.Data.DataColumn() {Me.columnQ_ID}, true))
5024             Me.columnQ_ID.AllowDBNull = false
5025             Me.columnQ_ID.Unique = true
5026             Me.columnQuotationNo.AllowDBNull = false
5027             Me.columnQuotationNo.MaxLength = 30
5028             Me.columnDate.AllowDBNull = false
5029             Me.columnCustomerID.AllowDBNull = false
5030             Me.columnGrandTotal.AllowDBNull = false
5031             Me.columnRemarks.MaxLength = 2147483647
5032         End Sub
5033         
5034         <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
5035          Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0")> _
5036         Public Function NewQuotationRow() As QuotationRow
5037             Return CType(Me.NewRow,QuotationRow)
5038         End Function
5039         
5040         <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
5041          Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0")> _
5042         Protected Overrides Function NewRowFromBuilder(ByVal builder As Global.System.Data.DataRowBuilder) As Global.System.Data.DataRow
5043             Return New QuotationRow(builder)
5044         End Function
5045         
5046         <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
5047          Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0")> _
5048         Protected Overrides Function GetRowType() As Global.System.Type
5049             Return GetType(QuotationRow)
5050         End Function
5051         
5052         <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
5053          Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0")> _
5054         Protected Overrides Sub OnRowChanged(ByVal e As Global.System.Data.DataRowChangeEventArgs)
5055             MyBase.OnRowChanged(e)
5056             If (Not (Me.QuotationRowChangedEvent) Is Nothing) Then
5057                 RaiseEvent QuotationRowChanged(Me, New QuotationRowChangeEvent(CType(e.Row,QuotationRow), e.Action))
5058             End If
5059         End Sub
5060         
5061         <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
5062          Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0")> _
5063         Protected Overrides Sub OnRowChanging(ByVal e As Global.System.Data.DataRowChangeEventArgs)
5064             MyBase.OnRowChanging(e)
5065             If (Not (Me.QuotationRowChangingEvent) Is Nothing) Then
5066                 RaiseEvent QuotationRowChanging(Me, New QuotationRowChangeEvent(CType(e.Row,QuotationRow), e.Action))
5067             End If
5068         End Sub
5069         
5070         <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
5071          Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0")> _
5072         Protected Overrides Sub OnRowDeleted(ByVal e As Global.System.Data.DataRowChangeEventArgs)
5073             MyBase.OnRowDeleted(e)
5074             If (Not (Me.QuotationRowDeletedEvent) Is Nothing) Then
5075                 RaiseEvent QuotationRowDeleted(Me, New QuotationRowChangeEvent(CType(e.Row,QuotationRow), e.Action))
5076             End If
5077         End Sub
5078         
5079         <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
5080          Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0")> _
5081         Protected Overrides Sub OnRowDeleting(ByVal e As Global.System.Data.DataRowChangeEventArgs)
5082             MyBase.OnRowDeleting(e)
5083             If (Not (Me.QuotationRowDeletingEvent) Is Nothing) Then
5084                 RaiseEvent QuotationRowDeleting(Me, New QuotationRowChangeEvent(CType(e.Row,QuotationRow), e.Action))
5085             End If
5086         End Sub
5087         
5088         <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
5089          Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0")> _
5090         Public Sub RemoveQuotationRow(ByVal row As QuotationRow)
5091             Me.Rows.Remove(row)
5092         End Sub
5093         
5094         <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
5095          Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0")> _
5096         Public Shared Function GetTypedTableSchema(ByVal xs As Global.System.Xml.Schema.XmlSchemaSet) As Global.System.Xml.Schema.XmlSchemaComplexType
5097             Dim type As Global.System.Xml.Schema.XmlSchemaComplexType = New Global.System.Xml.Schema.XmlSchemaComplexType()
5098             Dim sequence As Global.System.Xml.Schema.XmlSchemaSequence = New Global.System.Xml.Schema.XmlSchemaSequence()
5099             Dim ds As SIS_DBDataSet = New SIS_DBDataSet()
5100             Dim any1 As Global.System.Xml.Schema.XmlSchemaAny = New Global.System.Xml.Schema.XmlSchemaAny()
5101             any1.Namespace = "http://www.w3.org/2001/XMLSchema"
5102             any1.MinOccurs = New Decimal(0)
5103             any1.MaxOccurs = Decimal.MaxValue
5104             any1.ProcessContents = Global.System.Xml.Schema.XmlSchemaContentProcessing.Lax
5105             sequence.Items.Add(any1)
5106             Dim any2 As Global.System.Xml.Schema.XmlSchemaAny = New Global.System.Xml.Schema.XmlSchemaAny()
5107             any2.Namespace = "urn:schemas-microsoft-com:xml-diffgram-v1"
5108             any2.MinOccurs = New Decimal(1)
5109             any2.ProcessContents = Global.System.Xml.Schema.XmlSchemaContentProcessing.Lax
5110             sequence.Items.Add(any2)
5111             Dim attribute1 As Global.System.Xml.Schema.XmlSchemaAttribute = New Global.System.Xml.Schema.XmlSchemaAttribute()
5112             attribute1.Name = "namespace"
5113             attribute1.FixedValue = ds.Namespace
5114             type.Attributes.Add(attribute1)
5115             Dim attribute2 As Global.System.Xml.Schema.XmlSchemaAttribute = New Global.System.Xml.Schema.XmlSchemaAttribute()
5116             attribute2.Name = "tableTypeName"
5117             attribute2.FixedValue = "QuotationDataTable"
5118             type.Attributes.Add(attribute2)
5119             type.Particle = sequence
5120             Dim dsSchema As Global.System.Xml.Schema.XmlSchema = ds.GetSchemaSerializable
5121             If xs.Contains(dsSchema.TargetNamespace) Then
5122                 Dim s1 As Global.System.IO.MemoryStream = New Global.System.IO.MemoryStream()
5123                 Dim s2 As Global.System.IO.MemoryStream = New Global.System.IO.MemoryStream()
5124                 Try
5125                     Dim schema As Global.System.Xml.Schema.XmlSchema = Nothing
5126                     dsSchema.Write(s1)
5127                     Dim schemas As Global.System.Collections.IEnumerator = xs.Schemas(dsSchema.TargetNamespace).GetEnumerator
5128                     Do While schemas.MoveNext
5129                         schema = CType(schemas.Current,Global.System.Xml.Schema.XmlSchema)
5130                         s2.SetLength(0)
5131                         schema.Write(s2)
5132                         If (s1.Length = s2.Length) Then
5133                             s1.Position = 0
5134                             s2.Position = 0
5135                             
5136                             Do While ((s1.Position <> s1.Length) _
5137                                         AndAlso (s1.ReadByte = s2.ReadByte))
5138                                 
5139                                 
5140                             Loop
5141                             If (s1.Position = s1.Length) Then
5142                                 Return type
5143                             End If
5144                         End If
5145                         
5146                     Loop
5147                 Finally
5148                     If (Not (s1) Is Nothing) Then
5149                         s1.Close
5150                     End If
5151                     If (Not (s2) Is Nothing) Then
5152                         s2.Close
5153                     End If
5154                 End Try
5155             End If
5156             xs.Add(dsSchema)
5157             Return type
5158         End Function
5159     End Class
5160     
5161     '''<summary>
5162     '''Represents the strongly named DataTable class.
5163     '''</summary>
5164     <Global.System.Serializable(), _
5165      Global.System.Xml.Serialization.XmlSchemaProviderAttribute("GetTypedTableSchema")> _
5166     Partial Public Class Quotation_JoinDataTable
5167         Inherits Global.System.Data.TypedTableBase(Of Quotation_JoinRow)
5168         
5169         Private columnQJ_ID As Global.System.Data.DataColumn
5170         
5171         Private columnQuotationID As Global.System.Data.DataColumn
5172         
5173         Private columnProductID As Global.System.Data.DataColumn
5174         
5175         Private columnCost As Global.System.Data.DataColumn
5176         
5177         Private columnQty As Global.System.Data.DataColumn
5178         
5179         Private columnAmount As Global.System.Data.DataColumn
5180         
5181         Private columnDiscountPer As Global.System.Data.DataColumn
5182         
5183         Private columnDiscount As Global.System.Data.DataColumn
5184         
5185         Private columnVATPer As Global.System.Data.DataColumn
5186         
5187         Private columnVAT As Global.System.Data.DataColumn
5188         
5189         Private columnTotalAmount As Global.System.Data.DataColumn
5190         
5191         <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
5192          Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0")> _
5193         Public Sub New()
5194             MyBase.New
5195             Me.TableName = "Quotation_Join"
5196             Me.BeginInit
5197             Me.InitClass
5198             Me.EndInit
5199         End Sub
5200         
5201         <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
5202          Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0")> _
5203         Friend Sub New(ByVal table As Global.System.Data.DataTable)
5204             MyBase.New
5205             Me.TableName = table.TableName
5206             If (table.CaseSensitive <> table.DataSet.CaseSensitive) Then
5207                 Me.CaseSensitive = table.CaseSensitive
5208             End If
5209             If (table.Locale.ToString <> table.DataSet.Locale.ToString) Then
5210                 Me.Locale = table.Locale
5211             End If
5212             If (table.Namespace <> table.DataSet.Namespace) Then
5213                 Me.Namespace = table.Namespace
5214             End If
5215             Me.Prefix = table.Prefix
5216             Me.MinimumCapacity = table.MinimumCapacity
5217         End Sub
5218         
5219         <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
5220          Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0")> _
5221         Protected Sub New(ByVal info As Global.System.Runtime.Serialization.SerializationInfo, ByVal context As Global.System.Runtime.Serialization.StreamingContext)
5222             MyBase.New(info, context)
5223             Me.InitVars
5224         End Sub
5225         
5226         <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
5227          Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0")> _
5228         Public ReadOnly Property QJ_IDColumn() As Global.System.Data.DataColumn
5229             Get
5230                 Return Me.columnQJ_ID
5231             End Get
5232         End Property
5233         
5234         <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
5235          Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0")> _
5236         Public ReadOnly Property QuotationIDColumn() As Global.System.Data.DataColumn
5237             Get
5238                 Return Me.columnQuotationID
5239             End Get
5240         End Property
5241         
5242         <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
5243          Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0")> _
5244         Public ReadOnly Property ProductIDColumn() As Global.System.Data.DataColumn
5245             Get
5246                 Return Me.columnProductID
5247             End Get
5248         End Property
5249         
5250         <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
5251          Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0")> _
5252         Public ReadOnly Property CostColumn() As Global.System.Data.DataColumn
5253             Get
5254                 Return Me.columnCost
5255             End Get
5256         End Property
5257         
5258         <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
5259          Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0")> _
5260         Public ReadOnly Property QtyColumn() As Global.System.Data.DataColumn
5261             Get
5262                 Return Me.columnQty
5263             End Get
5264         End Property
5265         
5266         <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
5267          Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0")> _
5268         Public ReadOnly Property AmountColumn() As Global.System.Data.DataColumn
5269             Get
5270                 Return Me.columnAmount
5271             End Get
5272         End Property
5273         
5274         <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
5275          Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0")> _
5276         Public ReadOnly Property DiscountPerColumn() As Global.System.Data.DataColumn
5277             Get
5278                 Return Me.columnDiscountPer
5279             End Get
5280         End Property
5281         
5282         <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
5283          Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0")> _
5284         Public ReadOnly Property DiscountColumn() As Global.System.Data.DataColumn
5285             Get
5286                 Return Me.columnDiscount
5287             End Get
5288         End Property
5289         
5290         <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
5291          Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0")> _
5292         Public ReadOnly Property VATPerColumn() As Global.System.Data.DataColumn
5293             Get
5294                 Return Me.columnVATPer
5295             End Get
5296         End Property
5297         
5298         <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
5299          Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0")> _
5300         Public ReadOnly Property VATColumn() As Global.System.Data.DataColumn
5301             Get
5302                 Return Me.columnVAT
5303             End Get
5304         End Property
5305         
5306         <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
5307          Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0")> _
5308         Public ReadOnly Property TotalAmountColumn() As Global.System.Data.DataColumn
5309             Get
5310                 Return Me.columnTotalAmount
5311             End Get
5312         End Property
5313         
5314         <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
5315          Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0"), _
5316          Global.System.ComponentModel.Browsable(false)> _
5317         Public ReadOnly Property Count() As Integer
5318             Get
5319                 Return Me.Rows.Count
5320             End Get
5321         End Property
5322         
5323         <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
5324          Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0")> _
5325         Public Default ReadOnly Property Item(ByVal index As Integer) As Quotation_JoinRow
5326             Get
5327                 Return CType(Me.Rows(index),Quotation_JoinRow)
5328             End Get
5329         End Property
5330         
5331         <Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0")> _
5332         Public Event Quotation_JoinRowChanging As Quotation_JoinRowChangeEventHandler
5333         
5334         <Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0")> _
5335         Public Event Quotation_JoinRowChanged As Quotation_JoinRowChangeEventHandler
5336         
5337         <Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0")> _
5338         Public Event Quotation_JoinRowDeleting As Quotation_JoinRowChangeEventHandler
5339         
5340         <Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0")> _
5341         Public Event Quotation_JoinRowDeleted As Quotation_JoinRowChangeEventHandler
5342         
5343         <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
5344          Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0")> _
5345         Public Overloads Sub AddQuotation_JoinRow(ByVal row As Quotation_JoinRow)
5346             Me.Rows.Add(row)
5347         End Sub
5348         
5349         <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
5350          Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0")> _
5351         Public Overloads Function AddQuotation_JoinRow(ByVal QJ_ID As Integer, ByVal parentQuotationRowByFK_Quotation_Join_Quotation As QuotationRow, ByVal parentProductRowByFK_Quotation_Join_Product As ProductRow, ByVal Cost As Decimal, ByVal Qty As Integer, ByVal Amount As Decimal, ByVal DiscountPer As Decimal, ByVal Discount As Decimal, ByVal VATPer As Decimal, ByVal VAT As Decimal, ByVal TotalAmount As Decimal) As Quotation_JoinRow
5352             Dim rowQuotation_JoinRow As Quotation_JoinRow = CType(Me.NewRow,Quotation_JoinRow)
5353             Dim columnValuesArray() As Object = New Object() {QJ_ID, Nothing, Nothing, Cost, Qty, Amount, DiscountPer, Discount, VATPer, VAT, TotalAmount}
5354             If (Not (parentQuotationRowByFK_Quotation_Join_Quotation) Is Nothing) Then
5355                 columnValuesArray(1) = parentQuotationRowByFK_Quotation_Join_Quotation(0)
5356             End If
5357             If (Not (parentProductRowByFK_Quotation_Join_Product) Is Nothing) Then
5358                 columnValuesArray(2) = parentProductRowByFK_Quotation_Join_Product(0)
5359             End If
5360             rowQuotation_JoinRow.ItemArray = columnValuesArray
5361             Me.Rows.Add(rowQuotation_JoinRow)
5362             Return rowQuotation_JoinRow
5363         End Function
5364         
5365         <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
5366          Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0")> _
5367         Public Function FindByQJ_ID(ByVal QJ_ID As Integer) As Quotation_JoinRow
5368             Return CType(Me.Rows.Find(New Object() {QJ_ID}),Quotation_JoinRow)
5369         End Function
5370         
5371         <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
5372          Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0")> _
5373         Public Overrides Function Clone() As Global.System.Data.DataTable
5374             Dim cln As Quotation_JoinDataTable = CType(MyBase.Clone,Quotation_JoinDataTable)
5375             cln.InitVars
5376             Return cln
5377         End Function
5378         
5379         <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
5380          Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0")> _
5381         Protected Overrides Function CreateInstance() As Global.System.Data.DataTable
5382             Return New Quotation_JoinDataTable()
5383         End Function
5384         
5385         <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
5386          Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0")> _
5387         Friend Sub InitVars()
5388             Me.columnQJ_ID = MyBase.Columns("QJ_ID")
5389             Me.columnQuotationID = MyBase.Columns("QuotationID")
5390             Me.columnProductID = MyBase.Columns("ProductID")
5391             Me.columnCost = MyBase.Columns("Cost")
5392             Me.columnQty = MyBase.Columns("Qty")
5393             Me.columnAmount = MyBase.Columns("Amount")
5394             Me.columnDiscountPer = MyBase.Columns("DiscountPer")
5395             Me.columnDiscount = MyBase.Columns("Discount")
5396             Me.columnVATPer = MyBase.Columns("VATPer")
5397             Me.columnVAT = MyBase.Columns("VAT")
5398             Me.columnTotalAmount = MyBase.Columns("TotalAmount")
5399         End Sub
5400         
5401         <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
5402          Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0")> _
5403         Private Sub InitClass()
5404             Me.columnQJ_ID = New Global.System.Data.DataColumn("QJ_ID", GetType(Integer), Nothing, Global.System.Data.MappingType.Element)
5405             MyBase.Columns.Add(Me.columnQJ_ID)
5406             Me.columnQuotationID = New Global.System.Data.DataColumn("QuotationID", GetType(Integer), Nothing, Global.System.Data.MappingType.Element)
5407             MyBase.Columns.Add(Me.columnQuotationID)
5408             Me.columnProductID = New Global.System.Data.DataColumn("ProductID", GetType(Integer), Nothing, Global.System.Data.MappingType.Element)
5409             MyBase.Columns.Add(Me.columnProductID)
5410             Me.columnCost = New Global.System.Data.DataColumn("Cost", GetType(Decimal), Nothing, Global.System.Data.MappingType.Element)
5411             MyBase.Columns.Add(Me.columnCost)
5412             Me.columnQty = New Global.System.Data.DataColumn("Qty", GetType(Integer), Nothing, Global.System.Data.MappingType.Element)
5413             MyBase.Columns.Add(Me.columnQty)
5414             Me.columnAmount = New Global.System.Data.DataColumn("Amount", GetType(Decimal), Nothing, Global.System.Data.MappingType.Element)
5415             MyBase.Columns.Add(Me.columnAmount)
5416             Me.columnDiscountPer = New Global.System.Data.DataColumn("DiscountPer", GetType(Decimal), Nothing, Global.System.Data.MappingType.Element)
5417             MyBase.Columns.Add(Me.columnDiscountPer)
5418             Me.columnDiscount = New Global.System.Data.DataColumn("Discount", GetType(Decimal), Nothing, Global.System.Data.MappingType.Element)
5419             MyBase.Columns.Add(Me.columnDiscount)
5420             Me.columnVATPer = New Global.System.Data.DataColumn("VATPer", GetType(Decimal), Nothing, Global.System.Data.MappingType.Element)
5421             MyBase.Columns.Add(Me.columnVATPer)
5422             Me.columnVAT = New Global.System.Data.DataColumn("VAT", GetType(Decimal), Nothing, Global.System.Data.MappingType.Element)
5423             MyBase.Columns.Add(Me.columnVAT)
5424             Me.columnTotalAmount = New Global.System.Data.DataColumn("TotalAmount", GetType(Decimal), Nothing, Global.System.Data.MappingType.Element)
5425             MyBase.Columns.Add(Me.columnTotalAmount)
5426             Me.Constraints.Add(New Global.System.Data.UniqueConstraint("Constraint1", New Global.System.Data.DataColumn() {Me.columnQJ_ID}, true))
5427             Me.columnQJ_ID.AllowDBNull = false
5428             Me.columnQJ_ID.Unique = true
5429             Me.columnQuotationID.AllowDBNull = false
5430             Me.columnProductID.AllowDBNull = false
5431             Me.columnCost.AllowDBNull = false
5432             Me.columnQty.AllowDBNull = false
5433             Me.columnAmount.AllowDBNull = false
5434             Me.columnDiscountPer.AllowDBNull = false
5435             Me.columnDiscount.AllowDBNull = false
5436             Me.columnVATPer.AllowDBNull = false
5437             Me.columnVAT.AllowDBNull = false
5438             Me.columnTotalAmount.AllowDBNull = false
5439         End Sub
5440         
5441         <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
5442          Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0")> _
5443         Public Function NewQuotation_JoinRow() As Quotation_JoinRow
5444             Return CType(Me.NewRow,Quotation_JoinRow)
5445         End Function
5446         
5447         <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
5448          Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0")> _
5449         Protected Overrides Function NewRowFromBuilder(ByVal builder As Global.System.Data.DataRowBuilder) As Global.System.Data.DataRow
5450             Return New Quotation_JoinRow(builder)
5451         End Function
5452         
5453         <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
5454          Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0")> _
5455         Protected Overrides Function GetRowType() As Global.System.Type
5456             Return GetType(Quotation_JoinRow)
5457         End Function
5458         
5459         <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
5460          Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0")> _
5461         Protected Overrides Sub OnRowChanged(ByVal e As Global.System.Data.DataRowChangeEventArgs)
5462             MyBase.OnRowChanged(e)
5463             If (Not (Me.Quotation_JoinRowChangedEvent) Is Nothing) Then
5464                 RaiseEvent Quotation_JoinRowChanged(Me, New Quotation_JoinRowChangeEvent(CType(e.Row,Quotation_JoinRow), e.Action))
5465             End If
5466         End Sub
5467         
5468         <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
5469          Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0")> _
5470         Protected Overrides Sub OnRowChanging(ByVal e As Global.System.Data.DataRowChangeEventArgs)
5471             MyBase.OnRowChanging(e)
5472             If (Not (Me.Quotation_JoinRowChangingEvent) Is Nothing) Then
5473                 RaiseEvent Quotation_JoinRowChanging(Me, New Quotation_JoinRowChangeEvent(CType(e.Row,Quotation_JoinRow), e.Action))
5474             End If
5475         End Sub
5476         
5477         <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
5478          Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0")> _
5479         Protected Overrides Sub OnRowDeleted(ByVal e As Global.System.Data.DataRowChangeEventArgs)
5480             MyBase.OnRowDeleted(e)
5481             If (Not (Me.Quotation_JoinRowDeletedEvent) Is Nothing) Then
5482                 RaiseEvent Quotation_JoinRowDeleted(Me, New Quotation_JoinRowChangeEvent(CType(e.Row,Quotation_JoinRow), e.Action))
5483             End If
5484         End Sub
5485         
5486         <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
5487          Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0")> _
5488         Protected Overrides Sub OnRowDeleting(ByVal e As Global.System.Data.DataRowChangeEventArgs)
5489             MyBase.OnRowDeleting(e)
5490             If (Not (Me.Quotation_JoinRowDeletingEvent) Is Nothing) Then
5491                 RaiseEvent Quotation_JoinRowDeleting(Me, New Quotation_JoinRowChangeEvent(CType(e.Row,Quotation_JoinRow), e.Action))
5492             End If
5493         End Sub
5494         
5495         <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
5496          Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0")> _
5497         Public Sub RemoveQuotation_JoinRow(ByVal row As Quotation_JoinRow)
5498             Me.Rows.Remove(row)
5499         End Sub
5500         
5501         <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
5502          Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0")> _
5503         Public Shared Function GetTypedTableSchema(ByVal xs As Global.System.Xml.Schema.XmlSchemaSet) As Global.System.Xml.Schema.XmlSchemaComplexType
5504             Dim type As Global.System.Xml.Schema.XmlSchemaComplexType = New Global.System.Xml.Schema.XmlSchemaComplexType()
5505             Dim sequence As Global.System.Xml.Schema.XmlSchemaSequence = New Global.System.Xml.Schema.XmlSchemaSequence()
5506             Dim ds As SIS_DBDataSet = New SIS_DBDataSet()
5507             Dim any1 As Global.System.Xml.Schema.XmlSchemaAny = New Global.System.Xml.Schema.XmlSchemaAny()
5508             any1.Namespace = "http://www.w3.org/2001/XMLSchema"
5509             any1.MinOccurs = New Decimal(0)
5510             any1.MaxOccurs = Decimal.MaxValue
5511             any1.ProcessContents = Global.System.Xml.Schema.XmlSchemaContentProcessing.Lax
5512             sequence.Items.Add(any1)
5513             Dim any2 As Global.System.Xml.Schema.XmlSchemaAny = New Global.System.Xml.Schema.XmlSchemaAny()
5514             any2.Namespace = "urn:schemas-microsoft-com:xml-diffgram-v1"
5515             any2.MinOccurs = New Decimal(1)
5516             any2.ProcessContents = Global.System.Xml.Schema.XmlSchemaContentProcessing.Lax
5517             sequence.Items.Add(any2)
5518             Dim attribute1 As Global.System.Xml.Schema.XmlSchemaAttribute = New Global.System.Xml.Schema.XmlSchemaAttribute()
5519             attribute1.Name = "namespace"
5520             attribute1.FixedValue = ds.Namespace
5521             type.Attributes.Add(attribute1)
5522             Dim attribute2 As Global.System.Xml.Schema.XmlSchemaAttribute = New Global.System.Xml.Schema.XmlSchemaAttribute()
5523             attribute2.Name = "tableTypeName"
5524             attribute2.FixedValue = "Quotation_JoinDataTable"
5525             type.Attributes.Add(attribute2)
5526             type.Particle = sequence
5527             Dim dsSchema As Global.System.Xml.Schema.XmlSchema = ds.GetSchemaSerializable
5528             If xs.Contains(dsSchema.TargetNamespace) Then
5529                 Dim s1 As Global.System.IO.MemoryStream = New Global.System.IO.MemoryStream()
5530                 Dim s2 As Global.System.IO.MemoryStream = New Global.System.IO.MemoryStream()
5531                 Try
5532                     Dim schema As Global.System.Xml.Schema.XmlSchema = Nothing
5533                     dsSchema.Write(s1)
5534                     Dim schemas As Global.System.Collections.IEnumerator = xs.Schemas(dsSchema.TargetNamespace).GetEnumerator
5535                     Do While schemas.MoveNext
5536                         schema = CType(schemas.Current,Global.System.Xml.Schema.XmlSchema)
5537                         s2.SetLength(0)
5538                         schema.Write(s2)
5539                         If (s1.Length = s2.Length) Then
5540                             s1.Position = 0
5541                             s2.Position = 0
5542                             
5543                             Do While ((s1.Position <> s1.Length) _
5544                                         AndAlso (s1.ReadByte = s2.ReadByte))
5545                                 
5546                                 
5547                             Loop
5548                             If (s1.Position = s1.Length) Then
5549                                 Return type
5550                             End If
5551                         End If
5552                         
5553                     Loop
5554                 Finally
5555                     If (Not (s1) Is Nothing) Then
5556                         s1.Close
5557                     End If
5558                     If (Not (s2) Is Nothing) Then
5559                         s2.Close
5560                     End If
5561                 End Try
5562             End If
5563             xs.Add(dsSchema)
5564             Return type
5565         End Function
5566     End Class
5567     
5568     '''<summary>
5569     '''Represents the strongly named DataTable class.
5570     '''</summary>
5571     <Global.System.Serializable(), _
5572      Global.System.Xml.Serialization.XmlSchemaProviderAttribute("GetTypedTableSchema")> _
5573     Partial Public Class RegistrationDataTable
5574         Inherits Global.System.Data.TypedTableBase(Of RegistrationRow)
5575         
5576         Private columnUserID As Global.System.Data.DataColumn
5577         
5578         Private columnUserType As Global.System.Data.DataColumn
5579         
5580         Private columnPassword As Global.System.Data.DataColumn
5581         
5582         Private columnName As Global.System.Data.DataColumn
5583         
5584         Private columnContactNo As Global.System.Data.DataColumn
5585         
5586         Private columnEmailID As Global.System.Data.DataColumn
5587         
5588         Private columnJoiningDate As Global.System.Data.DataColumn
5589         
5590         <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
5591          Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0")> _
5592         Public Sub New()
5593             MyBase.New
5594             Me.TableName = "Registration"
5595             Me.BeginInit
5596             Me.InitClass
5597             Me.EndInit
5598         End Sub
5599         
5600         <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
5601          Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0")> _
5602         Friend Sub New(ByVal table As Global.System.Data.DataTable)
5603             MyBase.New
5604             Me.TableName = table.TableName
5605             If (table.CaseSensitive <> table.DataSet.CaseSensitive) Then
5606                 Me.CaseSensitive = table.CaseSensitive
5607             End If
5608             If (table.Locale.ToString <> table.DataSet.Locale.ToString) Then
5609                 Me.Locale = table.Locale
5610             End If
5611             If (table.Namespace <> table.DataSet.Namespace) Then
5612                 Me.Namespace = table.Namespace
5613             End If
5614             Me.Prefix = table.Prefix
5615             Me.MinimumCapacity = table.MinimumCapacity
5616         End Sub
5617         
5618         <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
5619          Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0")> _
5620         Protected Sub New(ByVal info As Global.System.Runtime.Serialization.SerializationInfo, ByVal context As Global.System.Runtime.Serialization.StreamingContext)
5621             MyBase.New(info, context)
5622             Me.InitVars
5623         End Sub
5624         
5625         <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
5626          Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0")> _
5627         Public ReadOnly Property UserIDColumn() As Global.System.Data.DataColumn
5628             Get
5629                 Return Me.columnUserID
5630             End Get
5631         End Property
5632         
5633         <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
5634          Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0")> _
5635         Public ReadOnly Property UserTypeColumn() As Global.System.Data.DataColumn
5636             Get
5637                 Return Me.columnUserType
5638             End Get
5639         End Property
5640         
5641         <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
5642          Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0")> _
5643         Public ReadOnly Property PasswordColumn() As Global.System.Data.DataColumn
5644             Get
5645                 Return Me.columnPassword
5646             End Get
5647         End Property
5648         
5649         <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
5650          Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0")> _
5651         Public ReadOnly Property NameColumn() As Global.System.Data.DataColumn
5652             Get
5653                 Return Me.columnName
5654             End Get
5655         End Property
5656         
5657         <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
5658          Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0")> _
5659         Public ReadOnly Property ContactNoColumn() As Global.System.Data.DataColumn
5660             Get
5661                 Return Me.columnContactNo
5662             End Get
5663         End Property
5664         
5665         <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
5666          Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0")> _
5667         Public ReadOnly Property EmailIDColumn() As Global.System.Data.DataColumn
5668             Get
5669                 Return Me.columnEmailID
5670             End Get
5671         End Property
5672         
5673         <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
5674          Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0")> _
5675         Public ReadOnly Property JoiningDateColumn() As Global.System.Data.DataColumn
5676             Get
5677                 Return Me.columnJoiningDate
5678             End Get
5679         End Property
5680         
5681         <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
5682          Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0"), _
5683          Global.System.ComponentModel.Browsable(false)> _
5684         Public ReadOnly Property Count() As Integer
5685             Get
5686                 Return Me.Rows.Count
5687             End Get
5688         End Property
5689         
5690         <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
5691          Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0")> _
5692         Public Default ReadOnly Property Item(ByVal index As Integer) As RegistrationRow
5693             Get
5694                 Return CType(Me.Rows(index),RegistrationRow)
5695             End Get
5696         End Property
5697         
5698         <Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0")> _
5699         Public Event RegistrationRowChanging As RegistrationRowChangeEventHandler
5700         
5701         <Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0")> _
5702         Public Event RegistrationRowChanged As RegistrationRowChangeEventHandler
5703         
5704         <Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0")> _
5705         Public Event RegistrationRowDeleting As RegistrationRowChangeEventHandler
5706         
5707         <Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0")> _
5708         Public Event RegistrationRowDeleted As RegistrationRowChangeEventHandler
5709         
5710         <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
5711          Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0")> _
5712         Public Overloads Sub AddRegistrationRow(ByVal row As RegistrationRow)
5713             Me.Rows.Add(row)
5714         End Sub
5715         
5716         <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
5717          Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0")> _
5718         Public Overloads Function AddRegistrationRow(ByVal UserID As String, ByVal UserType As String, ByVal Password As String, ByVal Name As String, ByVal ContactNo As String, ByVal EmailID As String, ByVal JoiningDate As Date) As RegistrationRow
5719             Dim rowRegistrationRow As RegistrationRow = CType(Me.NewRow,RegistrationRow)
5720             Dim columnValuesArray() As Object = New Object() {UserID, UserType, Password, Name, ContactNo, EmailID, JoiningDate}
5721             rowRegistrationRow.ItemArray = columnValuesArray
5722             Me.Rows.Add(rowRegistrationRow)
5723             Return rowRegistrationRow
5724         End Function
5725         
5726         <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
5727          Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0")> _
5728         Public Function FindByUserID(ByVal UserID As String) As RegistrationRow
5729             Return CType(Me.Rows.Find(New Object() {UserID}),RegistrationRow)
5730         End Function
5731         
5732         <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
5733          Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0")> _
5734         Public Overrides Function Clone() As Global.System.Data.DataTable
5735             Dim cln As RegistrationDataTable = CType(MyBase.Clone,RegistrationDataTable)
5736             cln.InitVars
5737             Return cln
5738         End Function
5739         
5740         <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
5741          Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0")> _
5742         Protected Overrides Function CreateInstance() As Global.System.Data.DataTable
5743             Return New RegistrationDataTable()
5744         End Function
5745         
5746         <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
5747          Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0")> _
5748         Friend Sub InitVars()
5749             Me.columnUserID = MyBase.Columns("UserID")
5750             Me.columnUserType = MyBase.Columns("UserType")
5751             Me.columnPassword = MyBase.Columns("Password")
5752             Me.columnName = MyBase.Columns("Name")
5753             Me.columnContactNo = MyBase.Columns("ContactNo")
5754             Me.columnEmailID = MyBase.Columns("EmailID")
5755             Me.columnJoiningDate = MyBase.Columns("JoiningDate")
5756         End Sub
5757         
5758         <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
5759          Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0")> _
5760         Private Sub InitClass()
5761             Me.columnUserID = New Global.System.Data.DataColumn("UserID", GetType(String), Nothing, Global.System.Data.MappingType.Element)
5762             MyBase.Columns.Add(Me.columnUserID)
5763             Me.columnUserType = New Global.System.Data.DataColumn("UserType", GetType(String), Nothing, Global.System.Data.MappingType.Element)
5764             MyBase.Columns.Add(Me.columnUserType)
5765             Me.columnPassword = New Global.System.Data.DataColumn("Password", GetType(String), Nothing, Global.System.Data.MappingType.Element)
5766             MyBase.Columns.Add(Me.columnPassword)
5767             Me.columnName = New Global.System.Data.DataColumn("Name", GetType(String), Nothing, Global.System.Data.MappingType.Element)
5768             MyBase.Columns.Add(Me.columnName)
5769             Me.columnContactNo = New Global.System.Data.DataColumn("ContactNo", GetType(String), Nothing, Global.System.Data.MappingType.Element)
5770             MyBase.Columns.Add(Me.columnContactNo)
5771             Me.columnEmailID = New Global.System.Data.DataColumn("EmailID", GetType(String), Nothing, Global.System.Data.MappingType.Element)
5772             MyBase.Columns.Add(Me.columnEmailID)
5773             Me.columnJoiningDate = New Global.System.Data.DataColumn("JoiningDate", GetType(Date), Nothing, Global.System.Data.MappingType.Element)
5774             MyBase.Columns.Add(Me.columnJoiningDate)
5775             Me.Constraints.Add(New Global.System.Data.UniqueConstraint("Constraint1", New Global.System.Data.DataColumn() {Me.columnUserID}, true))
5776             Me.columnUserID.AllowDBNull = false
5777             Me.columnUserID.Unique = true
5778             Me.columnUserID.MaxLength = 100
5779             Me.columnUserType.AllowDBNull = false
5780             Me.columnUserType.MaxLength = 150
5781             Me.columnPassword.AllowDBNull = false
5782             Me.columnPassword.MaxLength = 100
5783             Me.columnName.AllowDBNull = false
5784             Me.columnName.MaxLength = 200
5785             Me.columnContactNo.AllowDBNull = false
5786             Me.columnContactNo.MaxLength = 150
5787             Me.columnEmailID.MaxLength = 200
5788         End Sub
5789         
5790         <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
5791          Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0")> _
5792         Public Function NewRegistrationRow() As RegistrationRow
5793             Return CType(Me.NewRow,RegistrationRow)
5794         End Function
5795         
5796         <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
5797          Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0")> _
5798         Protected Overrides Function NewRowFromBuilder(ByVal builder As Global.System.Data.DataRowBuilder) As Global.System.Data.DataRow
5799             Return New RegistrationRow(builder)
5800         End Function
5801         
5802         <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
5803          Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0")> _
5804         Protected Overrides Function GetRowType() As Global.System.Type
5805             Return GetType(RegistrationRow)
5806         End Function
5807         
5808         <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
5809          Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0")> _
5810         Protected Overrides Sub OnRowChanged(ByVal e As Global.System.Data.DataRowChangeEventArgs)
5811             MyBase.OnRowChanged(e)
5812             If (Not (Me.RegistrationRowChangedEvent) Is Nothing) Then
5813                 RaiseEvent RegistrationRowChanged(Me, New RegistrationRowChangeEvent(CType(e.Row,RegistrationRow), e.Action))
5814             End If
5815         End Sub
5816         
5817         <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
5818          Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0")> _
5819         Protected Overrides Sub OnRowChanging(ByVal e As Global.System.Data.DataRowChangeEventArgs)
5820             MyBase.OnRowChanging(e)
5821             If (Not (Me.RegistrationRowChangingEvent) Is Nothing) Then
5822                 RaiseEvent RegistrationRowChanging(Me, New RegistrationRowChangeEvent(CType(e.Row,RegistrationRow), e.Action))
5823             End If
5824         End Sub
5825         
5826         <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
5827          Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0")> _
5828         Protected Overrides Sub OnRowDeleted(ByVal e As Global.System.Data.DataRowChangeEventArgs)
5829             MyBase.OnRowDeleted(e)
5830             If (Not (Me.RegistrationRowDeletedEvent) Is Nothing) Then
5831                 RaiseEvent RegistrationRowDeleted(Me, New RegistrationRowChangeEvent(CType(e.Row,RegistrationRow), e.Action))
5832             End If
5833         End Sub
5834         
5835         <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
5836          Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0")> _
5837         Protected Overrides Sub OnRowDeleting(ByVal e As Global.System.Data.DataRowChangeEventArgs)
5838             MyBase.OnRowDeleting(e)
5839             If (Not (Me.RegistrationRowDeletingEvent) Is Nothing) Then
5840                 RaiseEvent RegistrationRowDeleting(Me, New RegistrationRowChangeEvent(CType(e.Row,RegistrationRow), e.Action))
5841             End If
5842         End Sub
5843         
5844         <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
5845          Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0")> _
5846         Public Sub RemoveRegistrationRow(ByVal row As RegistrationRow)
5847             Me.Rows.Remove(row)
5848         End Sub
5849         
5850         <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
5851          Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0")> _
5852         Public Shared Function GetTypedTableSchema(ByVal xs As Global.System.Xml.Schema.XmlSchemaSet) As Global.System.Xml.Schema.XmlSchemaComplexType
5853             Dim type As Global.System.Xml.Schema.XmlSchemaComplexType = New Global.System.Xml.Schema.XmlSchemaComplexType()
5854             Dim sequence As Global.System.Xml.Schema.XmlSchemaSequence = New Global.System.Xml.Schema.XmlSchemaSequence()
5855             Dim ds As SIS_DBDataSet = New SIS_DBDataSet()
5856             Dim any1 As Global.System.Xml.Schema.XmlSchemaAny = New Global.System.Xml.Schema.XmlSchemaAny()
5857             any1.Namespace = "http://www.w3.org/2001/XMLSchema"
5858             any1.MinOccurs = New Decimal(0)
5859             any1.MaxOccurs = Decimal.MaxValue
5860             any1.ProcessContents = Global.System.Xml.Schema.XmlSchemaContentProcessing.Lax
5861             sequence.Items.Add(any1)
5862             Dim any2 As Global.System.Xml.Schema.XmlSchemaAny = New Global.System.Xml.Schema.XmlSchemaAny()
5863             any2.Namespace = "urn:schemas-microsoft-com:xml-diffgram-v1"
5864             any2.MinOccurs = New Decimal(1)
5865             any2.ProcessContents = Global.System.Xml.Schema.XmlSchemaContentProcessing.Lax
5866             sequence.Items.Add(any2)
5867             Dim attribute1 As Global.System.Xml.Schema.XmlSchemaAttribute = New Global.System.Xml.Schema.XmlSchemaAttribute()
5868             attribute1.Name = "namespace"
5869             attribute1.FixedValue = ds.Namespace
5870             type.Attributes.Add(attribute1)
5871             Dim attribute2 As Global.System.Xml.Schema.XmlSchemaAttribute = New Global.System.Xml.Schema.XmlSchemaAttribute()
5872             attribute2.Name = "tableTypeName"
5873             attribute2.FixedValue = "RegistrationDataTable"
5874             type.Attributes.Add(attribute2)
5875             type.Particle = sequence
5876             Dim dsSchema As Global.System.Xml.Schema.XmlSchema = ds.GetSchemaSerializable
5877             If xs.Contains(dsSchema.TargetNamespace) Then
5878                 Dim s1 As Global.System.IO.MemoryStream = New Global.System.IO.MemoryStream()
5879                 Dim s2 As Global.System.IO.MemoryStream = New Global.System.IO.MemoryStream()
5880                 Try
5881                     Dim schema As Global.System.Xml.Schema.XmlSchema = Nothing
5882                     dsSchema.Write(s1)
5883                     Dim schemas As Global.System.Collections.IEnumerator = xs.Schemas(dsSchema.TargetNamespace).GetEnumerator
5884                     Do While schemas.MoveNext
5885                         schema = CType(schemas.Current,Global.System.Xml.Schema.XmlSchema)
5886                         s2.SetLength(0)
5887                         schema.Write(s2)
5888                         If (s1.Length = s2.Length) Then
5889                             s1.Position = 0
5890                             s2.Position = 0
5891                             
5892                             Do While ((s1.Position <> s1.Length) _
5893                                         AndAlso (s1.ReadByte = s2.ReadByte))
5894                                 
5895                                 
5896                             Loop
5897                             If (s1.Position = s1.Length) Then
5898                                 Return type
5899                             End If
5900                         End If
5901                         
5902                     Loop
5903                 Finally
5904                     If (Not (s1) Is Nothing) Then
5905                         s1.Close
5906                     End If
5907                     If (Not (s2) Is Nothing) Then
5908                         s2.Close
5909                     End If
5910                 End Try
5911             End If
5912             xs.Add(dsSchema)
5913             Return type
5914         End Function
5915     End Class
5916     
5917     '''<summary>
5918     '''Represents the strongly named DataTable class.
5919     '''</summary>
5920     <Global.System.Serializable(), _
5921      Global.System.Xml.Serialization.XmlSchemaProviderAttribute("GetTypedTableSchema")> _
5922     Partial Public Class ServiceDataTable
5923         Inherits Global.System.Data.TypedTableBase(Of ServiceRow)
5924         
5925         Private columnS_ID As Global.System.Data.DataColumn
5926         
5927         Private columnServiceCode As Global.System.Data.DataColumn
5928         
5929         Private columnCustomerID As Global.System.Data.DataColumn
5930         
5931         Private columnServiceType As Global.System.Data.DataColumn
5932         
5933         Private columnServiceCreationDate As Global.System.Data.DataColumn
5934         
5935         Private columnItemDescription As Global.System.Data.DataColumn
5936         
5937         Private columnProblemDescription As Global.System.Data.DataColumn
5938         
5939         Private columnChargesQuote As Global.System.Data.DataColumn
5940         
5941         Private columnAdvanceDeposit As Global.System.Data.DataColumn
5942         
5943         Private columnEstimatedRepairDate As Global.System.Data.DataColumn
5944         
5945         Private columnRemarks As Global.System.Data.DataColumn
5946         
5947         Private columnStatus As Global.System.Data.DataColumn
5948         
5949         <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
5950          Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0")> _
5951         Public Sub New()
5952             MyBase.New
5953             Me.TableName = "Service"
5954             Me.BeginInit
5955             Me.InitClass
5956             Me.EndInit
5957         End Sub
5958         
5959         <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
5960          Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0")> _
5961         Friend Sub New(ByVal table As Global.System.Data.DataTable)
5962             MyBase.New
5963             Me.TableName = table.TableName
5964             If (table.CaseSensitive <> table.DataSet.CaseSensitive) Then
5965                 Me.CaseSensitive = table.CaseSensitive
5966             End If
5967             If (table.Locale.ToString <> table.DataSet.Locale.ToString) Then
5968                 Me.Locale = table.Locale
5969             End If
5970             If (table.Namespace <> table.DataSet.Namespace) Then
5971                 Me.Namespace = table.Namespace
5972             End If
5973             Me.Prefix = table.Prefix
5974             Me.MinimumCapacity = table.MinimumCapacity
5975         End Sub
5976         
5977         <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
5978          Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0")> _
5979         Protected Sub New(ByVal info As Global.System.Runtime.Serialization.SerializationInfo, ByVal context As Global.System.Runtime.Serialization.StreamingContext)
5980             MyBase.New(info, context)
5981             Me.InitVars
5982         End Sub
5983         
5984         <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
5985          Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0")> _
5986         Public ReadOnly Property S_IDColumn() As Global.System.Data.DataColumn
5987             Get
5988                 Return Me.columnS_ID
5989             End Get
5990         End Property
5991         
5992         <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
5993          Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0")> _
5994         Public ReadOnly Property ServiceCodeColumn() As Global.System.Data.DataColumn
5995             Get
5996                 Return Me.columnServiceCode
5997             End Get
5998         End Property
5999         
6000         <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
6001          Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0")> _
6002         Public ReadOnly Property CustomerIDColumn() As Global.System.Data.DataColumn
6003             Get
6004                 Return Me.columnCustomerID
6005             End Get
6006         End Property
6007         
6008         <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
6009          Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0")> _
6010         Public ReadOnly Property ServiceTypeColumn() As Global.System.Data.DataColumn
6011             Get
6012                 Return Me.columnServiceType
6013             End Get
6014         End Property
6015         
6016         <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
6017          Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0")> _
6018         Public ReadOnly Property ServiceCreationDateColumn() As Global.System.Data.DataColumn
6019             Get
6020                 Return Me.columnServiceCreationDate
6021             End Get
6022         End Property
6023         
6024         <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
6025          Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0")> _
6026         Public ReadOnly Property ItemDescriptionColumn() As Global.System.Data.DataColumn
6027             Get
6028                 Return Me.columnItemDescription
6029             End Get
6030         End Property
6031         
6032         <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
6033          Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0")> _
6034         Public ReadOnly Property ProblemDescriptionColumn() As Global.System.Data.DataColumn
6035             Get
6036                 Return Me.columnProblemDescription
6037             End Get
6038         End Property
6039         
6040         <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
6041          Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0")> _
6042         Public ReadOnly Property ChargesQuoteColumn() As Global.System.Data.DataColumn
6043             Get
6044                 Return Me.columnChargesQuote
6045             End Get
6046         End Property
6047         
6048         <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
6049          Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0")> _
6050         Public ReadOnly Property AdvanceDepositColumn() As Global.System.Data.DataColumn
6051             Get
6052                 Return Me.columnAdvanceDeposit
6053             End Get
6054         End Property
6055         
6056         <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
6057          Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0")> _
6058         Public ReadOnly Property EstimatedRepairDateColumn() As Global.System.Data.DataColumn
6059             Get
6060                 Return Me.columnEstimatedRepairDate
6061             End Get
6062         End Property
6063         
6064         <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
6065          Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0")> _
6066         Public ReadOnly Property RemarksColumn() As Global.System.Data.DataColumn
6067             Get
6068                 Return Me.columnRemarks
6069             End Get
6070         End Property
6071         
6072         <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
6073          Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0")> _
6074         Public ReadOnly Property StatusColumn() As Global.System.Data.DataColumn
6075             Get
6076                 Return Me.columnStatus
6077             End Get
6078         End Property
6079         
6080         <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
6081          Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0"), _
6082          Global.System.ComponentModel.Browsable(false)> _
6083         Public ReadOnly Property Count() As Integer
6084             Get
6085                 Return Me.Rows.Count
6086             End Get
6087         End Property
6088         
6089         <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
6090          Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0")> _
6091         Public Default ReadOnly Property Item(ByVal index As Integer) As ServiceRow
6092             Get
6093                 Return CType(Me.Rows(index),ServiceRow)
6094             End Get
6095         End Property
6096         
6097         <Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0")> _
6098         Public Event ServiceRowChanging As ServiceRowChangeEventHandler
6099         
6100         <Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0")> _
6101         Public Event ServiceRowChanged As ServiceRowChangeEventHandler
6102         
6103         <Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0")> _
6104         Public Event ServiceRowDeleting As ServiceRowChangeEventHandler
6105         
6106         <Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0")> _
6107         Public Event ServiceRowDeleted As ServiceRowChangeEventHandler
6108         
6109         <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
6110          Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0")> _
6111         Public Overloads Sub AddServiceRow(ByVal row As ServiceRow)
6112             Me.Rows.Add(row)
6113         End Sub
6114         
6115         <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
6116          Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0")> _
6117         Public Overloads Function AddServiceRow(ByVal S_ID As Integer, ByVal ServiceCode As String, ByVal parentCustomerRowByFK_Service_Customer As CustomerRow, ByVal ServiceType As String, ByVal ServiceCreationDate As Date, ByVal ItemDescription As String, ByVal ProblemDescription As String, ByVal ChargesQuote As Decimal, ByVal AdvanceDeposit As Decimal, ByVal EstimatedRepairDate As Date, ByVal Remarks As String, ByVal Status As String) As ServiceRow
6118             Dim rowServiceRow As ServiceRow = CType(Me.NewRow,ServiceRow)
6119             Dim columnValuesArray() As Object = New Object() {S_ID, ServiceCode, Nothing, ServiceType, ServiceCreationDate, ItemDescription, ProblemDescription, ChargesQuote, AdvanceDeposit, EstimatedRepairDate, Remarks, Status}
6120             If (Not (parentCustomerRowByFK_Service_Customer) Is Nothing) Then
6121                 columnValuesArray(2) = parentCustomerRowByFK_Service_Customer(0)
6122             End If
6123             rowServiceRow.ItemArray = columnValuesArray
6124             Me.Rows.Add(rowServiceRow)
6125             Return rowServiceRow
6126         End Function
6127         
6128         <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
6129          Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0")> _
6130         Public Function FindByS_ID(ByVal S_ID As Integer) As ServiceRow
6131             Return CType(Me.Rows.Find(New Object() {S_ID}),ServiceRow)
6132         End Function
6133         
6134         <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
6135          Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0")> _
6136         Public Overrides Function Clone() As Global.System.Data.DataTable
6137             Dim cln As ServiceDataTable = CType(MyBase.Clone,ServiceDataTable)
6138             cln.InitVars
6139             Return cln
6140         End Function
6141         
6142         <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
6143          Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0")> _
6144         Protected Overrides Function CreateInstance() As Global.System.Data.DataTable
6145             Return New ServiceDataTable()
6146         End Function
6147         
6148         <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
6149          Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0")> _
6150         Friend Sub InitVars()
6151             Me.columnS_ID = MyBase.Columns("S_ID")
6152             Me.columnServiceCode = MyBase.Columns("ServiceCode")
6153             Me.columnCustomerID = MyBase.Columns("CustomerID")
6154             Me.columnServiceType = MyBase.Columns("ServiceType")
6155             Me.columnServiceCreationDate = MyBase.Columns("ServiceCreationDate")
6156             Me.columnItemDescription = MyBase.Columns("ItemDescription")
6157             Me.columnProblemDescription = MyBase.Columns("ProblemDescription")
6158             Me.columnChargesQuote = MyBase.Columns("ChargesQuote")
6159             Me.columnAdvanceDeposit = MyBase.Columns("AdvanceDeposit")
6160             Me.columnEstimatedRepairDate = MyBase.Columns("EstimatedRepairDate")
6161             Me.columnRemarks = MyBase.Columns("Remarks")
6162             Me.columnStatus = MyBase.Columns("Status")
6163         End Sub
6164         
6165         <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
6166          Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0")> _
6167         Private Sub InitClass()
6168             Me.columnS_ID = New Global.System.Data.DataColumn("S_ID", GetType(Integer), Nothing, Global.System.Data.MappingType.Element)
6169             MyBase.Columns.Add(Me.columnS_ID)
6170             Me.columnServiceCode = New Global.System.Data.DataColumn("ServiceCode", GetType(String), Nothing, Global.System.Data.MappingType.Element)
6171             MyBase.Columns.Add(Me.columnServiceCode)
6172             Me.columnCustomerID = New Global.System.Data.DataColumn("CustomerID", GetType(Integer), Nothing, Global.System.Data.MappingType.Element)
6173             MyBase.Columns.Add(Me.columnCustomerID)
6174             Me.columnServiceType = New Global.System.Data.DataColumn("ServiceType", GetType(String), Nothing, Global.System.Data.MappingType.Element)
6175             MyBase.Columns.Add(Me.columnServiceType)
6176             Me.columnServiceCreationDate = New Global.System.Data.DataColumn("ServiceCreationDate", GetType(Date), Nothing, Global.System.Data.MappingType.Element)
6177             MyBase.Columns.Add(Me.columnServiceCreationDate)
6178             Me.columnItemDescription = New Global.System.Data.DataColumn("ItemDescription", GetType(String), Nothing, Global.System.Data.MappingType.Element)
6179             MyBase.Columns.Add(Me.columnItemDescription)
6180             Me.columnProblemDescription = New Global.System.Data.DataColumn("ProblemDescription", GetType(String), Nothing, Global.System.Data.MappingType.Element)
6181             MyBase.Columns.Add(Me.columnProblemDescription)
6182             Me.columnChargesQuote = New Global.System.Data.DataColumn("ChargesQuote", GetType(Decimal), Nothing, Global.System.Data.MappingType.Element)
6183             MyBase.Columns.Add(Me.columnChargesQuote)
6184             Me.columnAdvanceDeposit = New Global.System.Data.DataColumn("AdvanceDeposit", GetType(Decimal), Nothing, Global.System.Data.MappingType.Element)
6185             MyBase.Columns.Add(Me.columnAdvanceDeposit)
6186             Me.columnEstimatedRepairDate = New Global.System.Data.DataColumn("EstimatedRepairDate", GetType(Date), Nothing, Global.System.Data.MappingType.Element)
6187             MyBase.Columns.Add(Me.columnEstimatedRepairDate)
6188             Me.columnRemarks = New Global.System.Data.DataColumn("Remarks", GetType(String), Nothing, Global.System.Data.MappingType.Element)
6189             MyBase.Columns.Add(Me.columnRemarks)
6190             Me.columnStatus = New Global.System.Data.DataColumn("Status", GetType(String), Nothing, Global.System.Data.MappingType.Element)
6191             MyBase.Columns.Add(Me.columnStatus)
6192             Me.Constraints.Add(New Global.System.Data.UniqueConstraint("Constraint1", New Global.System.Data.DataColumn() {Me.columnS_ID}, true))
6193             Me.columnS_ID.AllowDBNull = false
6194             Me.columnS_ID.Unique = true
6195             Me.columnServiceCode.AllowDBNull = false
6196             Me.columnServiceCode.MaxLength = 30
6197             Me.columnCustomerID.AllowDBNull = false
6198             Me.columnServiceType.MaxLength = 150
6199             Me.columnServiceCreationDate.AllowDBNull = false
6200             Me.columnItemDescription.AllowDBNull = false
6201             Me.columnItemDescription.MaxLength = 2147483647
6202             Me.columnProblemDescription.MaxLength = 2147483647
6203             Me.columnChargesQuote.AllowDBNull = false
6204             Me.columnAdvanceDeposit.AllowDBNull = false
6205             Me.columnEstimatedRepairDate.AllowDBNull = false
6206             Me.columnRemarks.MaxLength = 2147483647
6207             Me.columnStatus.AllowDBNull = false
6208             Me.columnStatus.MaxLength = 30
6209         End Sub
6210         
6211         <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
6212          Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0")> _
6213         Public Function NewServiceRow() As ServiceRow
6214             Return CType(Me.NewRow,ServiceRow)
6215         End Function
6216         
6217         <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
6218          Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0")> _
6219         Protected Overrides Function NewRowFromBuilder(ByVal builder As Global.System.Data.DataRowBuilder) As Global.System.Data.DataRow
6220             Return New ServiceRow(builder)
6221         End Function
6222         
6223         <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
6224          Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0")> _
6225         Protected Overrides Function GetRowType() As Global.System.Type
6226             Return GetType(ServiceRow)
6227         End Function
6228         
6229         <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
6230          Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0")> _
6231         Protected Overrides Sub OnRowChanged(ByVal e As Global.System.Data.DataRowChangeEventArgs)
6232             MyBase.OnRowChanged(e)
6233             If (Not (Me.ServiceRowChangedEvent) Is Nothing) Then
6234                 RaiseEvent ServiceRowChanged(Me, New ServiceRowChangeEvent(CType(e.Row,ServiceRow), e.Action))
6235             End If
6236         End Sub
6237         
6238         <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
6239          Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0")> _
6240         Protected Overrides Sub OnRowChanging(ByVal e As Global.System.Data.DataRowChangeEventArgs)
6241             MyBase.OnRowChanging(e)
6242             If (Not (Me.ServiceRowChangingEvent) Is Nothing) Then
6243                 RaiseEvent ServiceRowChanging(Me, New ServiceRowChangeEvent(CType(e.Row,ServiceRow), e.Action))
6244             End If
6245         End Sub
6246         
6247         <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
6248          Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0")> _
6249         Protected Overrides Sub OnRowDeleted(ByVal e As Global.System.Data.DataRowChangeEventArgs)
6250             MyBase.OnRowDeleted(e)
6251             If (Not (Me.ServiceRowDeletedEvent) Is Nothing) Then
6252                 RaiseEvent ServiceRowDeleted(Me, New ServiceRowChangeEvent(CType(e.Row,ServiceRow), e.Action))
6253             End If
6254         End Sub
6255         
6256         <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
6257          Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0")> _
6258         Protected Overrides Sub OnRowDeleting(ByVal e As Global.System.Data.DataRowChangeEventArgs)
6259             MyBase.OnRowDeleting(e)
6260             If (Not (Me.ServiceRowDeletingEvent) Is Nothing) Then
6261                 RaiseEvent ServiceRowDeleting(Me, New ServiceRowChangeEvent(CType(e.Row,ServiceRow), e.Action))
6262             End If
6263         End Sub
6264         
6265         <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
6266          Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0")> _
6267         Public Sub RemoveServiceRow(ByVal row As ServiceRow)
6268             Me.Rows.Remove(row)
6269         End Sub
6270         
6271         <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
6272          Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0")> _
6273         Public Shared Function GetTypedTableSchema(ByVal xs As Global.System.Xml.Schema.XmlSchemaSet) As Global.System.Xml.Schema.XmlSchemaComplexType
6274             Dim type As Global.System.Xml.Schema.XmlSchemaComplexType = New Global.System.Xml.Schema.XmlSchemaComplexType()
6275             Dim sequence As Global.System.Xml.Schema.XmlSchemaSequence = New Global.System.Xml.Schema.XmlSchemaSequence()
6276             Dim ds As SIS_DBDataSet = New SIS_DBDataSet()
6277             Dim any1 As Global.System.Xml.Schema.XmlSchemaAny = New Global.System.Xml.Schema.XmlSchemaAny()
6278             any1.Namespace = "http://www.w3.org/2001/XMLSchema"
6279             any1.MinOccurs = New Decimal(0)
6280             any1.MaxOccurs = Decimal.MaxValue
6281             any1.ProcessContents = Global.System.Xml.Schema.XmlSchemaContentProcessing.Lax
6282             sequence.Items.Add(any1)
6283             Dim any2 As Global.System.Xml.Schema.XmlSchemaAny = New Global.System.Xml.Schema.XmlSchemaAny()
6284             any2.Namespace = "urn:schemas-microsoft-com:xml-diffgram-v1"
6285             any2.MinOccurs = New Decimal(1)
6286             any2.ProcessContents = Global.System.Xml.Schema.XmlSchemaContentProcessing.Lax
6287             sequence.Items.Add(any2)
6288             Dim attribute1 As Global.System.Xml.Schema.XmlSchemaAttribute = New Global.System.Xml.Schema.XmlSchemaAttribute()
6289             attribute1.Name = "namespace"
6290             attribute1.FixedValue = ds.Namespace
6291             type.Attributes.Add(attribute1)
6292             Dim attribute2 As Global.System.Xml.Schema.XmlSchemaAttribute = New Global.System.Xml.Schema.XmlSchemaAttribute()
6293             attribute2.Name = "tableTypeName"
6294             attribute2.FixedValue = "ServiceDataTable"
6295             type.Attributes.Add(attribute2)
6296             type.Particle = sequence
6297             Dim dsSchema As Global.System.Xml.Schema.XmlSchema = ds.GetSchemaSerializable
6298             If xs.Contains(dsSchema.TargetNamespace) Then
6299                 Dim s1 As Global.System.IO.MemoryStream = New Global.System.IO.MemoryStream()
6300                 Dim s2 As Global.System.IO.MemoryStream = New Global.System.IO.MemoryStream()
6301                 Try
6302                     Dim schema As Global.System.Xml.Schema.XmlSchema = Nothing
6303                     dsSchema.Write(s1)
6304                     Dim schemas As Global.System.Collections.IEnumerator = xs.Schemas(dsSchema.TargetNamespace).GetEnumerator
6305                     Do While schemas.MoveNext
6306                         schema = CType(schemas.Current,Global.System.Xml.Schema.XmlSchema)
6307                         s2.SetLength(0)
6308                         schema.Write(s2)
6309                         If (s1.Length = s2.Length) Then
6310                             s1.Position = 0
6311                             s2.Position = 0
6312                             
6313                             Do While ((s1.Position <> s1.Length) _
6314                                         AndAlso (s1.ReadByte = s2.ReadByte))
6315                                 
6316                                 
6317                             Loop
6318                             If (s1.Position = s1.Length) Then
6319                                 Return type
6320                             End If
6321                         End If
6322                         
6323                     Loop
6324                 Finally
6325                     If (Not (s1) Is Nothing) Then
6326                         s1.Close
6327                     End If
6328                     If (Not (s2) Is Nothing) Then
6329                         s2.Close
6330                     End If
6331                 End Try
6332             End If
6333             xs.Add(dsSchema)
6334             Return type
6335         End Function
6336     End Class
6337     
6338     '''<summary>
6339     '''Represents the strongly named DataTable class.
6340     '''</summary>
6341     <Global.System.Serializable(), _
6342      Global.System.Xml.Serialization.XmlSchemaProviderAttribute("GetTypedTableSchema")> _
6343     Partial Public Class StockDataTable
6344         Inherits Global.System.Data.TypedTableBase(Of StockRow)
6345         
6346         Private columnST_ID As Global.System.Data.DataColumn
6347         
6348         Private columnStock_ID As Global.System.Data.DataColumn
6349         
6350         Private columnDate As Global.System.Data.DataColumn
6351         
6352         Private columnSupplierID As Global.System.Data.DataColumn
6353         
6354         Private columnGrandTotal As Global.System.Data.DataColumn
6355         
6356         Private columnTotalPayment As Global.System.Data.DataColumn
6357         
6358         Private columnPaymentDue As Global.System.Data.DataColumn
6359         
6360         Private columnRemarks As Global.System.Data.DataColumn
6361         
6362         <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
6363          Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0")> _
6364         Public Sub New()
6365             MyBase.New
6366             Me.TableName = "Stock"
6367             Me.BeginInit
6368             Me.InitClass
6369             Me.EndInit
6370         End Sub
6371         
6372         <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
6373          Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0")> _
6374         Friend Sub New(ByVal table As Global.System.Data.DataTable)
6375             MyBase.New
6376             Me.TableName = table.TableName
6377             If (table.CaseSensitive <> table.DataSet.CaseSensitive) Then
6378                 Me.CaseSensitive = table.CaseSensitive
6379             End If
6380             If (table.Locale.ToString <> table.DataSet.Locale.ToString) Then
6381                 Me.Locale = table.Locale
6382             End If
6383             If (table.Namespace <> table.DataSet.Namespace) Then
6384                 Me.Namespace = table.Namespace
6385             End If
6386             Me.Prefix = table.Prefix
6387             Me.MinimumCapacity = table.MinimumCapacity
6388         End Sub
6389         
6390         <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
6391          Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0")> _
6392         Protected Sub New(ByVal info As Global.System.Runtime.Serialization.SerializationInfo, ByVal context As Global.System.Runtime.Serialization.StreamingContext)
6393             MyBase.New(info, context)
6394             Me.InitVars
6395         End Sub
6396         
6397         <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
6398          Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0")> _
6399         Public ReadOnly Property ST_IDColumn() As Global.System.Data.DataColumn
6400             Get
6401                 Return Me.columnST_ID
6402             End Get
6403         End Property
6404         
6405         <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
6406          Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0")> _
6407         Public ReadOnly Property Stock_IDColumn() As Global.System.Data.DataColumn
6408             Get
6409                 Return Me.columnStock_ID
6410             End Get
6411         End Property
6412         
6413         <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
6414          Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0")> _
6415         Public ReadOnly Property DateColumn() As Global.System.Data.DataColumn
6416             Get
6417                 Return Me.columnDate
6418             End Get
6419         End Property
6420         
6421         <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
6422          Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0")> _
6423         Public ReadOnly Property SupplierIDColumn() As Global.System.Data.DataColumn
6424             Get
6425                 Return Me.columnSupplierID
6426             End Get
6427         End Property
6428         
6429         <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
6430          Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0")> _
6431         Public ReadOnly Property GrandTotalColumn() As Global.System.Data.DataColumn
6432             Get
6433                 Return Me.columnGrandTotal
6434             End Get
6435         End Property
6436         
6437         <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
6438          Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0")> _
6439         Public ReadOnly Property TotalPaymentColumn() As Global.System.Data.DataColumn
6440             Get
6441                 Return Me.columnTotalPayment
6442             End Get
6443         End Property
6444         
6445         <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
6446          Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0")> _
6447         Public ReadOnly Property PaymentDueColumn() As Global.System.Data.DataColumn
6448             Get
6449                 Return Me.columnPaymentDue
6450             End Get
6451         End Property
6452         
6453         <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
6454          Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0")> _
6455         Public ReadOnly Property RemarksColumn() As Global.System.Data.DataColumn
6456             Get
6457                 Return Me.columnRemarks
6458             End Get
6459         End Property
6460         
6461         <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
6462          Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0"), _
6463          Global.System.ComponentModel.Browsable(false)> _
6464         Public ReadOnly Property Count() As Integer
6465             Get
6466                 Return Me.Rows.Count
6467             End Get
6468         End Property
6469         
6470         <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
6471          Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0")> _
6472         Public Default ReadOnly Property Item(ByVal index As Integer) As StockRow
6473             Get
6474                 Return CType(Me.Rows(index),StockRow)
6475             End Get
6476         End Property
6477         
6478         <Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0")> _
6479         Public Event StockRowChanging As StockRowChangeEventHandler
6480         
6481         <Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0")> _
6482         Public Event StockRowChanged As StockRowChangeEventHandler
6483         
6484         <Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0")> _
6485         Public Event StockRowDeleting As StockRowChangeEventHandler
6486         
6487         <Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0")> _
6488         Public Event StockRowDeleted As StockRowChangeEventHandler
6489         
6490         <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
6491          Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0")> _
6492         Public Overloads Sub AddStockRow(ByVal row As StockRow)
6493             Me.Rows.Add(row)
6494         End Sub
6495         
6496         <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
6497          Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0")> _
6498         Public Overloads Function AddStockRow(ByVal ST_ID As Integer, ByVal Stock_ID As String, ByVal _Date As Date, ByVal parentSupplierRowByFK_Stock_Supplier As SupplierRow, ByVal GrandTotal As Decimal, ByVal TotalPayment As Decimal, ByVal PaymentDue As Decimal, ByVal Remarks As String) As StockRow
6499             Dim rowStockRow As StockRow = CType(Me.NewRow,StockRow)
6500             Dim columnValuesArray() As Object = New Object() {ST_ID, Stock_ID, _Date, Nothing, GrandTotal, TotalPayment, PaymentDue, Remarks}
6501             If (Not (parentSupplierRowByFK_Stock_Supplier) Is Nothing) Then
6502                 columnValuesArray(3) = parentSupplierRowByFK_Stock_Supplier(0)
6503             End If
6504             rowStockRow.ItemArray = columnValuesArray
6505             Me.Rows.Add(rowStockRow)
6506             Return rowStockRow
6507         End Function
6508         
6509         <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
6510          Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0")> _
6511         Public Function FindByST_ID(ByVal ST_ID As Integer) As StockRow
6512             Return CType(Me.Rows.Find(New Object() {ST_ID}),StockRow)
6513         End Function
6514         
6515         <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
6516          Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0")> _
6517         Public Overrides Function Clone() As Global.System.Data.DataTable
6518             Dim cln As StockDataTable = CType(MyBase.Clone,StockDataTable)
6519             cln.InitVars
6520             Return cln
6521         End Function
6522         
6523         <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
6524          Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0")> _
6525         Protected Overrides Function CreateInstance() As Global.System.Data.DataTable
6526             Return New StockDataTable()
6527         End Function
6528         
6529         <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
6530          Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0")> _
6531         Friend Sub InitVars()
6532             Me.columnST_ID = MyBase.Columns("ST_ID")
6533             Me.columnStock_ID = MyBase.Columns("Stock_ID")
6534             Me.columnDate = MyBase.Columns("Date")
6535             Me.columnSupplierID = MyBase.Columns("SupplierID")
6536             Me.columnGrandTotal = MyBase.Columns("GrandTotal")
6537             Me.columnTotalPayment = MyBase.Columns("TotalPayment")
6538             Me.columnPaymentDue = MyBase.Columns("PaymentDue")
6539             Me.columnRemarks = MyBase.Columns("Remarks")
6540         End Sub
6541         
6542         <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
6543          Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0")> _
6544         Private Sub InitClass()
6545             Me.columnST_ID = New Global.System.Data.DataColumn("ST_ID", GetType(Integer), Nothing, Global.System.Data.MappingType.Element)
6546             MyBase.Columns.Add(Me.columnST_ID)
6547             Me.columnStock_ID = New Global.System.Data.DataColumn("Stock_ID", GetType(String), Nothing, Global.System.Data.MappingType.Element)
6548             MyBase.Columns.Add(Me.columnStock_ID)
6549             Me.columnDate = New Global.System.Data.DataColumn("Date", GetType(Date), Nothing, Global.System.Data.MappingType.Element)
6550             Me.columnDate.ExtendedProperties.Add("Generator_ColumnPropNameInTable", "DateColumn")
6551             Me.columnDate.ExtendedProperties.Add("Generator_ColumnVarNameInTable", "columnDate")
6552             Me.columnDate.ExtendedProperties.Add("Generator_UserColumnName", "Date")
6553             MyBase.Columns.Add(Me.columnDate)
6554             Me.columnSupplierID = New Global.System.Data.DataColumn("SupplierID", GetType(Integer), Nothing, Global.System.Data.MappingType.Element)
6555             MyBase.Columns.Add(Me.columnSupplierID)
6556             Me.columnGrandTotal = New Global.System.Data.DataColumn("GrandTotal", GetType(Decimal), Nothing, Global.System.Data.MappingType.Element)
6557             MyBase.Columns.Add(Me.columnGrandTotal)
6558             Me.columnTotalPayment = New Global.System.Data.DataColumn("TotalPayment", GetType(Decimal), Nothing, Global.System.Data.MappingType.Element)
6559             MyBase.Columns.Add(Me.columnTotalPayment)
6560             Me.columnPaymentDue = New Global.System.Data.DataColumn("PaymentDue", GetType(Decimal), Nothing, Global.System.Data.MappingType.Element)
6561             MyBase.Columns.Add(Me.columnPaymentDue)
6562             Me.columnRemarks = New Global.System.Data.DataColumn("Remarks", GetType(String), Nothing, Global.System.Data.MappingType.Element)
6563             MyBase.Columns.Add(Me.columnRemarks)
6564             Me.Constraints.Add(New Global.System.Data.UniqueConstraint("Constraint1", New Global.System.Data.DataColumn() {Me.columnST_ID}, true))
6565             Me.columnST_ID.AllowDBNull = false
6566             Me.columnST_ID.Unique = true
6567             Me.columnStock_ID.AllowDBNull = false
6568             Me.columnStock_ID.MaxLength = 30
6569             Me.columnDate.AllowDBNull = false
6570             Me.columnSupplierID.AllowDBNull = false
6571             Me.columnGrandTotal.AllowDBNull = false
6572             Me.columnTotalPayment.AllowDBNull = false
6573             Me.columnPaymentDue.AllowDBNull = false
6574             Me.columnRemarks.MaxLength = 2147483647
6575         End Sub
6576         
6577         <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
6578          Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0")> _
6579         Public Function NewStockRow() As StockRow
6580             Return CType(Me.NewRow,StockRow)
6581         End Function
6582         
6583         <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
6584          Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0")> _
6585         Protected Overrides Function NewRowFromBuilder(ByVal builder As Global.System.Data.DataRowBuilder) As Global.System.Data.DataRow
6586             Return New StockRow(builder)
6587         End Function
6588         
6589         <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
6590          Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0")> _
6591         Protected Overrides Function GetRowType() As Global.System.Type
6592             Return GetType(StockRow)
6593         End Function
6594         
6595         <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
6596          Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0")> _
6597         Protected Overrides Sub OnRowChanged(ByVal e As Global.System.Data.DataRowChangeEventArgs)
6598             MyBase.OnRowChanged(e)
6599             If (Not (Me.StockRowChangedEvent) Is Nothing) Then
6600                 RaiseEvent StockRowChanged(Me, New StockRowChangeEvent(CType(e.Row,StockRow), e.Action))
6601             End If
6602         End Sub
6603         
6604         <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
6605          Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0")> _
6606         Protected Overrides Sub OnRowChanging(ByVal e As Global.System.Data.DataRowChangeEventArgs)
6607             MyBase.OnRowChanging(e)
6608             If (Not (Me.StockRowChangingEvent) Is Nothing) Then
6609                 RaiseEvent StockRowChanging(Me, New StockRowChangeEvent(CType(e.Row,StockRow), e.Action))
6610             End If
6611         End Sub
6612         
6613         <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
6614          Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0")> _
6615         Protected Overrides Sub OnRowDeleted(ByVal e As Global.System.Data.DataRowChangeEventArgs)
6616             MyBase.OnRowDeleted(e)
6617             If (Not (Me.StockRowDeletedEvent) Is Nothing) Then
6618                 RaiseEvent StockRowDeleted(Me, New StockRowChangeEvent(CType(e.Row,StockRow), e.Action))
6619             End If
6620         End Sub
6621         
6622         <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
6623          Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0")> _
6624         Protected Overrides Sub OnRowDeleting(ByVal e As Global.System.Data.DataRowChangeEventArgs)
6625             MyBase.OnRowDeleting(e)
6626             If (Not (Me.StockRowDeletingEvent) Is Nothing) Then
6627                 RaiseEvent StockRowDeleting(Me, New StockRowChangeEvent(CType(e.Row,StockRow), e.Action))
6628             End If
6629         End Sub
6630         
6631         <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
6632          Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0")> _
6633         Public Sub RemoveStockRow(ByVal row As StockRow)
6634             Me.Rows.Remove(row)
6635         End Sub
6636         
6637         <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
6638          Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0")> _
6639         Public Shared Function GetTypedTableSchema(ByVal xs As Global.System.Xml.Schema.XmlSchemaSet) As Global.System.Xml.Schema.XmlSchemaComplexType
6640             Dim type As Global.System.Xml.Schema.XmlSchemaComplexType = New Global.System.Xml.Schema.XmlSchemaComplexType()
6641             Dim sequence As Global.System.Xml.Schema.XmlSchemaSequence = New Global.System.Xml.Schema.XmlSchemaSequence()
6642             Dim ds As SIS_DBDataSet = New SIS_DBDataSet()
6643             Dim any1 As Global.System.Xml.Schema.XmlSchemaAny = New Global.System.Xml.Schema.XmlSchemaAny()
6644             any1.Namespace = "http://www.w3.org/2001/XMLSchema"
6645             any1.MinOccurs = New Decimal(0)
6646             any1.MaxOccurs = Decimal.MaxValue
6647             any1.ProcessContents = Global.System.Xml.Schema.XmlSchemaContentProcessing.Lax
6648             sequence.Items.Add(any1)
6649             Dim any2 As Global.System.Xml.Schema.XmlSchemaAny = New Global.System.Xml.Schema.XmlSchemaAny()
6650             any2.Namespace = "urn:schemas-microsoft-com:xml-diffgram-v1"
6651             any2.MinOccurs = New Decimal(1)
6652             any2.ProcessContents = Global.System.Xml.Schema.XmlSchemaContentProcessing.Lax
6653             sequence.Items.Add(any2)
6654             Dim attribute1 As Global.System.Xml.Schema.XmlSchemaAttribute = New Global.System.Xml.Schema.XmlSchemaAttribute()
6655             attribute1.Name = "namespace"
6656             attribute1.FixedValue = ds.Namespace
6657             type.Attributes.Add(attribute1)
6658             Dim attribute2 As Global.System.Xml.Schema.XmlSchemaAttribute = New Global.System.Xml.Schema.XmlSchemaAttribute()
6659             attribute2.Name = "tableTypeName"
6660             attribute2.FixedValue = "StockDataTable"
6661             type.Attributes.Add(attribute2)
6662             type.Particle = sequence
6663             Dim dsSchema As Global.System.Xml.Schema.XmlSchema = ds.GetSchemaSerializable
6664             If xs.Contains(dsSchema.TargetNamespace) Then
6665                 Dim s1 As Global.System.IO.MemoryStream = New Global.System.IO.MemoryStream()
6666                 Dim s2 As Global.System.IO.MemoryStream = New Global.System.IO.MemoryStream()
6667                 Try
6668                     Dim schema As Global.System.Xml.Schema.XmlSchema = Nothing
6669                     dsSchema.Write(s1)
6670                     Dim schemas As Global.System.Collections.IEnumerator = xs.Schemas(dsSchema.TargetNamespace).GetEnumerator
6671                     Do While schemas.MoveNext
6672                         schema = CType(schemas.Current,Global.System.Xml.Schema.XmlSchema)
6673                         s2.SetLength(0)
6674                         schema.Write(s2)
6675                         If (s1.Length = s2.Length) Then
6676                             s1.Position = 0
6677                             s2.Position = 0
6678                             
6679                             Do While ((s1.Position <> s1.Length) _
6680                                         AndAlso (s1.ReadByte = s2.ReadByte))
6681                                 
6682                                 
6683                             Loop
6684                             If (s1.Position = s1.Length) Then
6685                                 Return type
6686                             End If
6687                         End If
6688                         
6689                     Loop
6690                 Finally
6691                     If (Not (s1) Is Nothing) Then
6692                         s1.Close
6693                     End If
6694                     If (Not (s2) Is Nothing) Then
6695                         s2.Close
6696                     End If
6697                 End Try
6698             End If
6699             xs.Add(dsSchema)
6700             Return type
6701         End Function
6702     End Class
6703     
6704     '''<summary>
6705     '''Represents the strongly named DataTable class.
6706     '''</summary>
6707     <Global.System.Serializable(), _
6708      Global.System.Xml.Serialization.XmlSchemaProviderAttribute("GetTypedTableSchema")> _
6709     Partial Public Class Stock_ProductDataTable
6710         Inherits Global.System.Data.TypedTableBase(Of Stock_ProductRow)
6711         
6712         Private columnSP_ID As Global.System.Data.DataColumn
6713         
6714         Private columnStockID As Global.System.Data.DataColumn
6715         
6716         Private columnProductID As Global.System.Data.DataColumn
6717         
6718         Private columnQty As Global.System.Data.DataColumn
6719         
6720         Private columnPrice As Global.System.Data.DataColumn
6721         
6722         Private columnTotalAmount As Global.System.Data.DataColumn
6723         
6724         <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
6725          Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0")> _
6726         Public Sub New()
6727             MyBase.New
6728             Me.TableName = "Stock_Product"
6729             Me.BeginInit
6730             Me.InitClass
6731             Me.EndInit
6732         End Sub
6733         
6734         <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
6735          Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0")> _
6736         Friend Sub New(ByVal table As Global.System.Data.DataTable)
6737             MyBase.New
6738             Me.TableName = table.TableName
6739             If (table.CaseSensitive <> table.DataSet.CaseSensitive) Then
6740                 Me.CaseSensitive = table.CaseSensitive
6741             End If
6742             If (table.Locale.ToString <> table.DataSet.Locale.ToString) Then
6743                 Me.Locale = table.Locale
6744             End If
6745             If (table.Namespace <> table.DataSet.Namespace) Then
6746                 Me.Namespace = table.Namespace
6747             End If
6748             Me.Prefix = table.Prefix
6749             Me.MinimumCapacity = table.MinimumCapacity
6750         End Sub
6751         
6752         <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
6753          Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0")> _
6754         Protected Sub New(ByVal info As Global.System.Runtime.Serialization.SerializationInfo, ByVal context As Global.System.Runtime.Serialization.StreamingContext)
6755             MyBase.New(info, context)
6756             Me.InitVars
6757         End Sub
6758         
6759         <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
6760          Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0")> _
6761         Public ReadOnly Property SP_IDColumn() As Global.System.Data.DataColumn
6762             Get
6763                 Return Me.columnSP_ID
6764             End Get
6765         End Property
6766         
6767         <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
6768          Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0")> _
6769         Public ReadOnly Property StockIDColumn() As Global.System.Data.DataColumn
6770             Get
6771                 Return Me.columnStockID
6772             End Get
6773         End Property
6774         
6775         <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
6776          Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0")> _
6777         Public ReadOnly Property ProductIDColumn() As Global.System.Data.DataColumn
6778             Get
6779                 Return Me.columnProductID
6780             End Get
6781         End Property
6782         
6783         <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
6784          Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0")> _
6785         Public ReadOnly Property QtyColumn() As Global.System.Data.DataColumn
6786             Get
6787                 Return Me.columnQty
6788             End Get
6789         End Property
6790         
6791         <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
6792          Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0")> _
6793         Public ReadOnly Property PriceColumn() As Global.System.Data.DataColumn
6794             Get
6795                 Return Me.columnPrice
6796             End Get
6797         End Property
6798         
6799         <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
6800          Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0")> _
6801         Public ReadOnly Property TotalAmountColumn() As Global.System.Data.DataColumn
6802             Get
6803                 Return Me.columnTotalAmount
6804             End Get
6805         End Property
6806         
6807         <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
6808          Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0"), _
6809          Global.System.ComponentModel.Browsable(false)> _
6810         Public ReadOnly Property Count() As Integer
6811             Get
6812                 Return Me.Rows.Count
6813             End Get
6814         End Property
6815         
6816         <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
6817          Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0")> _
6818         Public Default ReadOnly Property Item(ByVal index As Integer) As Stock_ProductRow
6819             Get
6820                 Return CType(Me.Rows(index),Stock_ProductRow)
6821             End Get
6822         End Property
6823         
6824         <Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0")> _
6825         Public Event Stock_ProductRowChanging As Stock_ProductRowChangeEventHandler
6826         
6827         <Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0")> _
6828         Public Event Stock_ProductRowChanged As Stock_ProductRowChangeEventHandler
6829         
6830         <Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0")> _
6831         Public Event Stock_ProductRowDeleting As Stock_ProductRowChangeEventHandler
6832         
6833         <Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0")> _
6834         Public Event Stock_ProductRowDeleted As Stock_ProductRowChangeEventHandler
6835         
6836         <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
6837          Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0")> _
6838         Public Overloads Sub AddStock_ProductRow(ByVal row As Stock_ProductRow)
6839             Me.Rows.Add(row)
6840         End Sub
6841         
6842         <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
6843          Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0")> _
6844         Public Overloads Function AddStock_ProductRow(ByVal parentStockRowByFK_Stock_Product_Stock As StockRow, ByVal parentProductRowByFK_Stock_Product_Product As ProductRow, ByVal Qty As Integer, ByVal Price As Decimal, ByVal TotalAmount As Decimal) As Stock_ProductRow
6845             Dim rowStock_ProductRow As Stock_ProductRow = CType(Me.NewRow,Stock_ProductRow)
6846             Dim columnValuesArray() As Object = New Object() {Nothing, Nothing, Nothing, Qty, Price, TotalAmount}
6847             If (Not (parentStockRowByFK_Stock_Product_Stock) Is Nothing) Then
6848                 columnValuesArray(1) = parentStockRowByFK_Stock_Product_Stock(0)
6849             End If
6850             If (Not (parentProductRowByFK_Stock_Product_Product) Is Nothing) Then
6851                 columnValuesArray(2) = parentProductRowByFK_Stock_Product_Product(0)
6852             End If
6853             rowStock_ProductRow.ItemArray = columnValuesArray
6854             Me.Rows.Add(rowStock_ProductRow)
6855             Return rowStock_ProductRow
6856         End Function
6857         
6858         <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
6859          Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0")> _
6860         Public Function FindBySP_ID(ByVal SP_ID As Integer) As Stock_ProductRow
6861             Return CType(Me.Rows.Find(New Object() {SP_ID}),Stock_ProductRow)
6862         End Function
6863         
6864         <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
6865          Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0")> _
6866         Public Overrides Function Clone() As Global.System.Data.DataTable
6867             Dim cln As Stock_ProductDataTable = CType(MyBase.Clone,Stock_ProductDataTable)
6868             cln.InitVars
6869             Return cln
6870         End Function
6871         
6872         <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
6873          Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0")> _
6874         Protected Overrides Function CreateInstance() As Global.System.Data.DataTable
6875             Return New Stock_ProductDataTable()
6876         End Function
6877         
6878         <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
6879          Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0")> _
6880         Friend Sub InitVars()
6881             Me.columnSP_ID = MyBase.Columns("SP_ID")
6882             Me.columnStockID = MyBase.Columns("StockID")
6883             Me.columnProductID = MyBase.Columns("ProductID")
6884             Me.columnQty = MyBase.Columns("Qty")
6885             Me.columnPrice = MyBase.Columns("Price")
6886             Me.columnTotalAmount = MyBase.Columns("TotalAmount")
6887         End Sub
6888         
6889         <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
6890          Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0")> _
6891         Private Sub InitClass()
6892             Me.columnSP_ID = New Global.System.Data.DataColumn("SP_ID", GetType(Integer), Nothing, Global.System.Data.MappingType.Element)
6893             MyBase.Columns.Add(Me.columnSP_ID)
6894             Me.columnStockID = New Global.System.Data.DataColumn("StockID", GetType(Integer), Nothing, Global.System.Data.MappingType.Element)
6895             MyBase.Columns.Add(Me.columnStockID)
6896             Me.columnProductID = New Global.System.Data.DataColumn("ProductID", GetType(Integer), Nothing, Global.System.Data.MappingType.Element)
6897             MyBase.Columns.Add(Me.columnProductID)
6898             Me.columnQty = New Global.System.Data.DataColumn("Qty", GetType(Integer), Nothing, Global.System.Data.MappingType.Element)
6899             MyBase.Columns.Add(Me.columnQty)
6900             Me.columnPrice = New Global.System.Data.DataColumn("Price", GetType(Decimal), Nothing, Global.System.Data.MappingType.Element)
6901             MyBase.Columns.Add(Me.columnPrice)
6902             Me.columnTotalAmount = New Global.System.Data.DataColumn("TotalAmount", GetType(Decimal), Nothing, Global.System.Data.MappingType.Element)
6903             MyBase.Columns.Add(Me.columnTotalAmount)
6904             Me.Constraints.Add(New Global.System.Data.UniqueConstraint("Constraint1", New Global.System.Data.DataColumn() {Me.columnSP_ID}, true))
6905             Me.columnSP_ID.AutoIncrement = true
6906             Me.columnSP_ID.AutoIncrementSeed = -1
6907             Me.columnSP_ID.AutoIncrementStep = -1
6908             Me.columnSP_ID.AllowDBNull = false
6909             Me.columnSP_ID.ReadOnly = true
6910             Me.columnSP_ID.Unique = true
6911             Me.columnStockID.AllowDBNull = false
6912             Me.columnProductID.AllowDBNull = false
6913             Me.columnQty.AllowDBNull = false
6914             Me.columnPrice.AllowDBNull = false
6915             Me.columnTotalAmount.AllowDBNull = false
6916         End Sub
6917         
6918         <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
6919          Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0")> _
6920         Public Function NewStock_ProductRow() As Stock_ProductRow
6921             Return CType(Me.NewRow,Stock_ProductRow)
6922         End Function
6923         
6924         <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
6925          Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0")> _
6926         Protected Overrides Function NewRowFromBuilder(ByVal builder As Global.System.Data.DataRowBuilder) As Global.System.Data.DataRow
6927             Return New Stock_ProductRow(builder)
6928         End Function
6929         
6930         <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
6931          Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0")> _
6932         Protected Overrides Function GetRowType() As Global.System.Type
6933             Return GetType(Stock_ProductRow)
6934         End Function
6935         
6936         <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
6937          Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0")> _
6938         Protected Overrides Sub OnRowChanged(ByVal e As Global.System.Data.DataRowChangeEventArgs)
6939             MyBase.OnRowChanged(e)
6940             If (Not (Me.Stock_ProductRowChangedEvent) Is Nothing) Then
6941                 RaiseEvent Stock_ProductRowChanged(Me, New Stock_ProductRowChangeEvent(CType(e.Row,Stock_ProductRow), e.Action))
6942             End If
6943         End Sub
6944         
6945         <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
6946          Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0")> _
6947         Protected Overrides Sub OnRowChanging(ByVal e As Global.System.Data.DataRowChangeEventArgs)
6948             MyBase.OnRowChanging(e)
6949             If (Not (Me.Stock_ProductRowChangingEvent) Is Nothing) Then
6950                 RaiseEvent Stock_ProductRowChanging(Me, New Stock_ProductRowChangeEvent(CType(e.Row,Stock_ProductRow), e.Action))
6951             End If
6952         End Sub
6953         
6954         <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
6955          Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0")> _
6956         Protected Overrides Sub OnRowDeleted(ByVal e As Global.System.Data.DataRowChangeEventArgs)
6957             MyBase.OnRowDeleted(e)
6958             If (Not (Me.Stock_ProductRowDeletedEvent) Is Nothing) Then
6959                 RaiseEvent Stock_ProductRowDeleted(Me, New Stock_ProductRowChangeEvent(CType(e.Row,Stock_ProductRow), e.Action))
6960             End If
6961         End Sub
6962         
6963         <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
6964          Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0")> _
6965         Protected Overrides Sub OnRowDeleting(ByVal e As Global.System.Data.DataRowChangeEventArgs)
6966             MyBase.OnRowDeleting(e)
6967             If (Not (Me.Stock_ProductRowDeletingEvent) Is Nothing) Then
6968                 RaiseEvent Stock_ProductRowDeleting(Me, New Stock_ProductRowChangeEvent(CType(e.Row,Stock_ProductRow), e.Action))
6969             End If
6970         End Sub
6971         
6972         <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
6973          Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0")> _
6974         Public Sub RemoveStock_ProductRow(ByVal row As Stock_ProductRow)
6975             Me.Rows.Remove(row)
6976         End Sub
6977         
6978         <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
6979          Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0")> _
6980         Public Shared Function GetTypedTableSchema(ByVal xs As Global.System.Xml.Schema.XmlSchemaSet) As Global.System.Xml.Schema.XmlSchemaComplexType
6981             Dim type As Global.System.Xml.Schema.XmlSchemaComplexType = New Global.System.Xml.Schema.XmlSchemaComplexType()
6982             Dim sequence As Global.System.Xml.Schema.XmlSchemaSequence = New Global.System.Xml.Schema.XmlSchemaSequence()
6983             Dim ds As SIS_DBDataSet = New SIS_DBDataSet()
6984             Dim any1 As Global.System.Xml.Schema.XmlSchemaAny = New Global.System.Xml.Schema.XmlSchemaAny()
6985             any1.Namespace = "http://www.w3.org/2001/XMLSchema"
6986             any1.MinOccurs = New Decimal(0)
6987             any1.MaxOccurs = Decimal.MaxValue
6988             any1.ProcessContents = Global.System.Xml.Schema.XmlSchemaContentProcessing.Lax
6989             sequence.Items.Add(any1)
6990             Dim any2 As Global.System.Xml.Schema.XmlSchemaAny = New Global.System.Xml.Schema.XmlSchemaAny()
6991             any2.Namespace = "urn:schemas-microsoft-com:xml-diffgram-v1"
6992             any2.MinOccurs = New Decimal(1)
6993             any2.ProcessContents = Global.System.Xml.Schema.XmlSchemaContentProcessing.Lax
6994             sequence.Items.Add(any2)
6995             Dim attribute1 As Global.System.Xml.Schema.XmlSchemaAttribute = New Global.System.Xml.Schema.XmlSchemaAttribute()
6996             attribute1.Name = "namespace"
6997             attribute1.FixedValue = ds.Namespace
6998             type.Attributes.Add(attribute1)
6999             Dim attribute2 As Global.System.Xml.Schema.XmlSchemaAttribute = New Global.System.Xml.Schema.XmlSchemaAttribute()
7000             attribute2.Name = "tableTypeName"
7001             attribute2.FixedValue = "Stock_ProductDataTable"
7002             type.Attributes.Add(attribute2)
7003             type.Particle = sequence
7004             Dim dsSchema As Global.System.Xml.Schema.XmlSchema = ds.GetSchemaSerializable
7005             If xs.Contains(dsSchema.TargetNamespace) Then
7006                 Dim s1 As Global.System.IO.MemoryStream = New Global.System.IO.MemoryStream()
7007                 Dim s2 As Global.System.IO.MemoryStream = New Global.System.IO.MemoryStream()
7008                 Try
7009                     Dim schema As Global.System.Xml.Schema.XmlSchema = Nothing
7010                     dsSchema.Write(s1)
7011                     Dim schemas As Global.System.Collections.IEnumerator = xs.Schemas(dsSchema.TargetNamespace).GetEnumerator
7012                     Do While schemas.MoveNext
7013                         schema = CType(schemas.Current,Global.System.Xml.Schema.XmlSchema)
7014                         s2.SetLength(0)
7015                         schema.Write(s2)
7016                         If (s1.Length = s2.Length) Then
7017                             s1.Position = 0
7018                             s2.Position = 0
7019                             
7020                             Do While ((s1.Position <> s1.Length) _
7021                                         AndAlso (s1.ReadByte = s2.ReadByte))
7022                                 
7023                                 
7024                             Loop
7025                             If (s1.Position = s1.Length) Then
7026                                 Return type
7027                             End If
7028                         End If
7029                         
7030                     Loop
7031                 Finally
7032                     If (Not (s1) Is Nothing) Then
7033                         s1.Close
7034                     End If
7035                     If (Not (s2) Is Nothing) Then
7036                         s2.Close
7037                     End If
7038                 End Try
7039             End If
7040             xs.Add(dsSchema)
7041             Return type
7042         End Function
7043     End Class
7044     
7045     '''<summary>
7046     '''Represents the strongly named DataTable class.
7047     '''</summary>
7048     <Global.System.Serializable(), _
7049      Global.System.Xml.Serialization.XmlSchemaProviderAttribute("GetTypedTableSchema")> _
7050     Partial Public Class SubCategoryDataTable
7051         Inherits Global.System.Data.TypedTableBase(Of SubCategoryRow)
7052         
7053         Private columnID As Global.System.Data.DataColumn
7054         
7055         Private columnSubCategoryName As Global.System.Data.DataColumn
7056         
7057         Private columnCategory As Global.System.Data.DataColumn
7058         
7059         <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
7060          Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0")> _
7061         Public Sub New()
7062             MyBase.New
7063             Me.TableName = "SubCategory"
7064             Me.BeginInit
7065             Me.InitClass
7066             Me.EndInit
7067         End Sub
7068         
7069         <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
7070          Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0")> _
7071         Friend Sub New(ByVal table As Global.System.Data.DataTable)
7072             MyBase.New
7073             Me.TableName = table.TableName
7074             If (table.CaseSensitive <> table.DataSet.CaseSensitive) Then
7075                 Me.CaseSensitive = table.CaseSensitive
7076             End If
7077             If (table.Locale.ToString <> table.DataSet.Locale.ToString) Then
7078                 Me.Locale = table.Locale
7079             End If
7080             If (table.Namespace <> table.DataSet.Namespace) Then
7081                 Me.Namespace = table.Namespace
7082             End If
7083             Me.Prefix = table.Prefix
7084             Me.MinimumCapacity = table.MinimumCapacity
7085         End Sub
7086         
7087         <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
7088          Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0")> _
7089         Protected Sub New(ByVal info As Global.System.Runtime.Serialization.SerializationInfo, ByVal context As Global.System.Runtime.Serialization.StreamingContext)
7090             MyBase.New(info, context)
7091             Me.InitVars
7092         End Sub
7093         
7094         <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
7095          Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0")> _
7096         Public ReadOnly Property IDColumn() As Global.System.Data.DataColumn
7097             Get
7098                 Return Me.columnID
7099             End Get
7100         End Property
7101         
7102         <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
7103          Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0")> _
7104         Public ReadOnly Property SubCategoryNameColumn() As Global.System.Data.DataColumn
7105             Get
7106                 Return Me.columnSubCategoryName
7107             End Get
7108         End Property
7109         
7110         <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
7111          Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0")> _
7112         Public ReadOnly Property CategoryColumn() As Global.System.Data.DataColumn
7113             Get
7114                 Return Me.columnCategory
7115             End Get
7116         End Property
7117         
7118         <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
7119          Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0"), _
7120          Global.System.ComponentModel.Browsable(false)> _
7121         Public ReadOnly Property Count() As Integer
7122             Get
7123                 Return Me.Rows.Count
7124             End Get
7125         End Property
7126         
7127         <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
7128          Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0")> _
7129         Public Default ReadOnly Property Item(ByVal index As Integer) As SubCategoryRow
7130             Get
7131                 Return CType(Me.Rows(index),SubCategoryRow)
7132             End Get
7133         End Property
7134         
7135         <Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0")> _
7136         Public Event SubCategoryRowChanging As SubCategoryRowChangeEventHandler
7137         
7138         <Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0")> _
7139         Public Event SubCategoryRowChanged As SubCategoryRowChangeEventHandler
7140         
7141         <Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0")> _
7142         Public Event SubCategoryRowDeleting As SubCategoryRowChangeEventHandler
7143         
7144         <Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0")> _
7145         Public Event SubCategoryRowDeleted As SubCategoryRowChangeEventHandler
7146         
7147         <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
7148          Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0")> _
7149         Public Overloads Sub AddSubCategoryRow(ByVal row As SubCategoryRow)
7150             Me.Rows.Add(row)
7151         End Sub
7152         
7153         <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
7154          Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0")> _
7155         Public Overloads Function AddSubCategoryRow(ByVal ID As Integer, ByVal SubCategoryName As String, ByVal parentCategoryRowByFK_SubCategory_Category As CategoryRow) As SubCategoryRow
7156             Dim rowSubCategoryRow As SubCategoryRow = CType(Me.NewRow,SubCategoryRow)
7157             Dim columnValuesArray() As Object = New Object() {ID, SubCategoryName, Nothing}
7158             If (Not (parentCategoryRowByFK_SubCategory_Category) Is Nothing) Then
7159                 columnValuesArray(2) = parentCategoryRowByFK_SubCategory_Category(0)
7160             End If
7161             rowSubCategoryRow.ItemArray = columnValuesArray
7162             Me.Rows.Add(rowSubCategoryRow)
7163             Return rowSubCategoryRow
7164         End Function
7165         
7166         <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
7167          Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0")> _
7168         Public Function FindByID(ByVal ID As Integer) As SubCategoryRow
7169             Return CType(Me.Rows.Find(New Object() {ID}),SubCategoryRow)
7170         End Function
7171         
7172         <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
7173          Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0")> _
7174         Public Overrides Function Clone() As Global.System.Data.DataTable
7175             Dim cln As SubCategoryDataTable = CType(MyBase.Clone,SubCategoryDataTable)
7176             cln.InitVars
7177             Return cln
7178         End Function
7179         
7180         <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
7181          Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0")> _
7182         Protected Overrides Function CreateInstance() As Global.System.Data.DataTable
7183             Return New SubCategoryDataTable()
7184         End Function
7185         
7186         <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
7187          Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0")> _
7188         Friend Sub InitVars()
7189             Me.columnID = MyBase.Columns("ID")
7190             Me.columnSubCategoryName = MyBase.Columns("SubCategoryName")
7191             Me.columnCategory = MyBase.Columns("Category")
7192         End Sub
7193         
7194         <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
7195          Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0")> _
7196         Private Sub InitClass()
7197             Me.columnID = New Global.System.Data.DataColumn("ID", GetType(Integer), Nothing, Global.System.Data.MappingType.Element)
7198             MyBase.Columns.Add(Me.columnID)
7199             Me.columnSubCategoryName = New Global.System.Data.DataColumn("SubCategoryName", GetType(String), Nothing, Global.System.Data.MappingType.Element)
7200             MyBase.Columns.Add(Me.columnSubCategoryName)
7201             Me.columnCategory = New Global.System.Data.DataColumn("Category", GetType(String), Nothing, Global.System.Data.MappingType.Element)
7202             MyBase.Columns.Add(Me.columnCategory)
7203             Me.Constraints.Add(New Global.System.Data.UniqueConstraint("Constraint1", New Global.System.Data.DataColumn() {Me.columnID}, true))
7204             Me.columnID.AllowDBNull = false
7205             Me.columnID.Unique = true
7206             Me.columnSubCategoryName.AllowDBNull = false
7207             Me.columnSubCategoryName.MaxLength = 150
7208             Me.columnCategory.AllowDBNull = false
7209             Me.columnCategory.MaxLength = 150
7210         End Sub
7211         
7212         <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
7213          Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0")> _
7214         Public Function NewSubCategoryRow() As SubCategoryRow
7215             Return CType(Me.NewRow,SubCategoryRow)
7216         End Function
7217         
7218         <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
7219          Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0")> _
7220         Protected Overrides Function NewRowFromBuilder(ByVal builder As Global.System.Data.DataRowBuilder) As Global.System.Data.DataRow
7221             Return New SubCategoryRow(builder)
7222         End Function
7223         
7224         <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
7225          Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0")> _
7226         Protected Overrides Function GetRowType() As Global.System.Type
7227             Return GetType(SubCategoryRow)
7228         End Function
7229         
7230         <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
7231          Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0")> _
7232         Protected Overrides Sub OnRowChanged(ByVal e As Global.System.Data.DataRowChangeEventArgs)
7233             MyBase.OnRowChanged(e)
7234             If (Not (Me.SubCategoryRowChangedEvent) Is Nothing) Then
7235                 RaiseEvent SubCategoryRowChanged(Me, New SubCategoryRowChangeEvent(CType(e.Row,SubCategoryRow), e.Action))
7236             End If
7237         End Sub
7238         
7239         <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
7240          Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0")> _
7241         Protected Overrides Sub OnRowChanging(ByVal e As Global.System.Data.DataRowChangeEventArgs)
7242             MyBase.OnRowChanging(e)
7243             If (Not (Me.SubCategoryRowChangingEvent) Is Nothing) Then
7244                 RaiseEvent SubCategoryRowChanging(Me, New SubCategoryRowChangeEvent(CType(e.Row,SubCategoryRow), e.Action))
7245             End If
7246         End Sub
7247         
7248         <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
7249          Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0")> _
7250         Protected Overrides Sub OnRowDeleted(ByVal e As Global.System.Data.DataRowChangeEventArgs)
7251             MyBase.OnRowDeleted(e)
7252             If (Not (Me.SubCategoryRowDeletedEvent) Is Nothing) Then
7253                 RaiseEvent SubCategoryRowDeleted(Me, New SubCategoryRowChangeEvent(CType(e.Row,SubCategoryRow), e.Action))
7254             End If
7255         End Sub
7256         
7257         <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
7258          Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0")> _
7259         Protected Overrides Sub OnRowDeleting(ByVal e As Global.System.Data.DataRowChangeEventArgs)
7260             MyBase.OnRowDeleting(e)
7261             If (Not (Me.SubCategoryRowDeletingEvent) Is Nothing) Then
7262                 RaiseEvent SubCategoryRowDeleting(Me, New SubCategoryRowChangeEvent(CType(e.Row,SubCategoryRow), e.Action))
7263             End If
7264         End Sub
7265         
7266         <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
7267          Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0")> _
7268         Public Sub RemoveSubCategoryRow(ByVal row As SubCategoryRow)
7269             Me.Rows.Remove(row)
7270         End Sub
7271         
7272         <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
7273          Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0")> _
7274         Public Shared Function GetTypedTableSchema(ByVal xs As Global.System.Xml.Schema.XmlSchemaSet) As Global.System.Xml.Schema.XmlSchemaComplexType
7275             Dim type As Global.System.Xml.Schema.XmlSchemaComplexType = New Global.System.Xml.Schema.XmlSchemaComplexType()
7276             Dim sequence As Global.System.Xml.Schema.XmlSchemaSequence = New Global.System.Xml.Schema.XmlSchemaSequence()
7277             Dim ds As SIS_DBDataSet = New SIS_DBDataSet()
7278             Dim any1 As Global.System.Xml.Schema.XmlSchemaAny = New Global.System.Xml.Schema.XmlSchemaAny()
7279             any1.Namespace = "http://www.w3.org/2001/XMLSchema"
7280             any1.MinOccurs = New Decimal(0)
7281             any1.MaxOccurs = Decimal.MaxValue
7282             any1.ProcessContents = Global.System.Xml.Schema.XmlSchemaContentProcessing.Lax
7283             sequence.Items.Add(any1)
7284             Dim any2 As Global.System.Xml.Schema.XmlSchemaAny = New Global.System.Xml.Schema.XmlSchemaAny()
7285             any2.Namespace = "urn:schemas-microsoft-com:xml-diffgram-v1"
7286             any2.MinOccurs = New Decimal(1)
7287             any2.ProcessContents = Global.System.Xml.Schema.XmlSchemaContentProcessing.Lax
7288             sequence.Items.Add(any2)
7289             Dim attribute1 As Global.System.Xml.Schema.XmlSchemaAttribute = New Global.System.Xml.Schema.XmlSchemaAttribute()
7290             attribute1.Name = "namespace"
7291             attribute1.FixedValue = ds.Namespace
7292             type.Attributes.Add(attribute1)
7293             Dim attribute2 As Global.System.Xml.Schema.XmlSchemaAttribute = New Global.System.Xml.Schema.XmlSchemaAttribute()
7294             attribute2.Name = "tableTypeName"
7295             attribute2.FixedValue = "SubCategoryDataTable"
7296             type.Attributes.Add(attribute2)
7297             type.Particle = sequence
7298             Dim dsSchema As Global.System.Xml.Schema.XmlSchema = ds.GetSchemaSerializable
7299             If xs.Contains(dsSchema.TargetNamespace) Then
7300                 Dim s1 As Global.System.IO.MemoryStream = New Global.System.IO.MemoryStream()
7301                 Dim s2 As Global.System.IO.MemoryStream = New Global.System.IO.MemoryStream()
7302                 Try
7303                     Dim schema As Global.System.Xml.Schema.XmlSchema = Nothing
7304                     dsSchema.Write(s1)
7305                     Dim schemas As Global.System.Collections.IEnumerator = xs.Schemas(dsSchema.TargetNamespace).GetEnumerator
7306                     Do While schemas.MoveNext
7307                         schema = CType(schemas.Current,Global.System.Xml.Schema.XmlSchema)
7308                         s2.SetLength(0)
7309                         schema.Write(s2)
7310                         If (s1.Length = s2.Length) Then
7311                             s1.Position = 0
7312                             s2.Position = 0
7313                             
7314                             Do While ((s1.Position <> s1.Length) _
7315                                         AndAlso (s1.ReadByte = s2.ReadByte))
7316                                 
7317                                 
7318                             Loop
7319                             If (s1.Position = s1.Length) Then
7320                                 Return type
7321                             End If
7322                         End If
7323                         
7324                     Loop
7325                 Finally
7326                     If (Not (s1) Is Nothing) Then
7327                         s1.Close
7328                     End If
7329                     If (Not (s2) Is Nothing) Then
7330                         s2.Close
7331                     End If
7332                 End Try
7333             End If
7334             xs.Add(dsSchema)
7335             Return type
7336         End Function
7337     End Class
7338     
7339     '''<summary>
7340     '''Represents the strongly named DataTable class.
7341     '''</summary>
7342     <Global.System.Serializable(), _
7343      Global.System.Xml.Serialization.XmlSchemaProviderAttribute("GetTypedTableSchema")> _
7344     Partial Public Class SupplierDataTable
7345         Inherits Global.System.Data.TypedTableBase(Of SupplierRow)
7346         
7347         Private columnID As Global.System.Data.DataColumn
7348         
7349         Private columnSupplierID As Global.System.Data.DataColumn
7350         
7351         Private columnName As Global.System.Data.DataColumn
7352         
7353         Private columnAddress As Global.System.Data.DataColumn
7354         
7355         Private columnCity As Global.System.Data.DataColumn
7356         
7357         Private columnState As Global.System.Data.DataColumn
7358         
7359         Private columnZipCode As Global.System.Data.DataColumn
7360         
7361         Private columnContactNo As Global.System.Data.DataColumn
7362         
7363         Private columnEmailID As Global.System.Data.DataColumn
7364         
7365         Private columnRemarks As Global.System.Data.DataColumn
7366         
7367         <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
7368          Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0")> _
7369         Public Sub New()
7370             MyBase.New
7371             Me.TableName = "Supplier"
7372             Me.BeginInit
7373             Me.InitClass
7374             Me.EndInit
7375         End Sub
7376         
7377         <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
7378          Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0")> _
7379         Friend Sub New(ByVal table As Global.System.Data.DataTable)
7380             MyBase.New
7381             Me.TableName = table.TableName
7382             If (table.CaseSensitive <> table.DataSet.CaseSensitive) Then
7383                 Me.CaseSensitive = table.CaseSensitive
7384             End If
7385             If (table.Locale.ToString <> table.DataSet.Locale.ToString) Then
7386                 Me.Locale = table.Locale
7387             End If
7388             If (table.Namespace <> table.DataSet.Namespace) Then
7389                 Me.Namespace = table.Namespace
7390             End If
7391             Me.Prefix = table.Prefix
7392             Me.MinimumCapacity = table.MinimumCapacity
7393         End Sub
7394         
7395         <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
7396          Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0")> _
7397         Protected Sub New(ByVal info As Global.System.Runtime.Serialization.SerializationInfo, ByVal context As Global.System.Runtime.Serialization.StreamingContext)
7398             MyBase.New(info, context)
7399             Me.InitVars
7400         End Sub
7401         
7402         <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
7403          Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0")> _
7404         Public ReadOnly Property IDColumn() As Global.System.Data.DataColumn
7405             Get
7406                 Return Me.columnID
7407             End Get
7408         End Property
7409         
7410         <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
7411          Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0")> _
7412         Public ReadOnly Property SupplierIDColumn() As Global.System.Data.DataColumn
7413             Get
7414                 Return Me.columnSupplierID
7415             End Get
7416         End Property
7417         
7418         <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
7419          Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0")> _
7420         Public ReadOnly Property NameColumn() As Global.System.Data.DataColumn
7421             Get
7422                 Return Me.columnName
7423             End Get
7424         End Property
7425         
7426         <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
7427          Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0")> _
7428         Public ReadOnly Property AddressColumn() As Global.System.Data.DataColumn
7429             Get
7430                 Return Me.columnAddress
7431             End Get
7432         End Property
7433         
7434         <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
7435          Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0")> _
7436         Public ReadOnly Property CityColumn() As Global.System.Data.DataColumn
7437             Get
7438                 Return Me.columnCity
7439             End Get
7440         End Property
7441         
7442         <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
7443          Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0")> _
7444         Public ReadOnly Property StateColumn() As Global.System.Data.DataColumn
7445             Get
7446                 Return Me.columnState
7447             End Get
7448         End Property
7449         
7450         <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
7451          Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0")> _
7452         Public ReadOnly Property ZipCodeColumn() As Global.System.Data.DataColumn
7453             Get
7454                 Return Me.columnZipCode
7455             End Get
7456         End Property
7457         
7458         <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
7459          Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0")> _
7460         Public ReadOnly Property ContactNoColumn() As Global.System.Data.DataColumn
7461             Get
7462                 Return Me.columnContactNo
7463             End Get
7464         End Property
7465         
7466         <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
7467          Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0")> _
7468         Public ReadOnly Property EmailIDColumn() As Global.System.Data.DataColumn
7469             Get
7470                 Return Me.columnEmailID
7471             End Get
7472         End Property
7473         
7474         <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
7475          Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0")> _
7476         Public ReadOnly Property RemarksColumn() As Global.System.Data.DataColumn
7477             Get
7478                 Return Me.columnRemarks
7479             End Get
7480         End Property
7481         
7482         <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
7483          Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0"), _
7484          Global.System.ComponentModel.Browsable(false)> _
7485         Public ReadOnly Property Count() As Integer
7486             Get
7487                 Return Me.Rows.Count
7488             End Get
7489         End Property
7490         
7491         <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
7492          Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0")> _
7493         Public Default ReadOnly Property Item(ByVal index As Integer) As SupplierRow
7494             Get
7495                 Return CType(Me.Rows(index),SupplierRow)
7496             End Get
7497         End Property
7498         
7499         <Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0")> _
7500         Public Event SupplierRowChanging As SupplierRowChangeEventHandler
7501         
7502         <Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0")> _
7503         Public Event SupplierRowChanged As SupplierRowChangeEventHandler
7504         
7505         <Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0")> _
7506         Public Event SupplierRowDeleting As SupplierRowChangeEventHandler
7507         
7508         <Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0")> _
7509         Public Event SupplierRowDeleted As SupplierRowChangeEventHandler
7510         
7511         <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
7512          Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0")> _
7513         Public Overloads Sub AddSupplierRow(ByVal row As SupplierRow)
7514             Me.Rows.Add(row)
7515         End Sub
7516         
7517         <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
7518          Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0")> _
7519         Public Overloads Function AddSupplierRow(ByVal ID As Integer, ByVal SupplierID As String, ByVal Name As String, ByVal Address As String, ByVal City As String, ByVal State As String, ByVal ZipCode As String, ByVal ContactNo As String, ByVal EmailID As String, ByVal Remarks As String) As SupplierRow
7520             Dim rowSupplierRow As SupplierRow = CType(Me.NewRow,SupplierRow)
7521             Dim columnValuesArray() As Object = New Object() {ID, SupplierID, Name, Address, City, State, ZipCode, ContactNo, EmailID, Remarks}
7522             rowSupplierRow.ItemArray = columnValuesArray
7523             Me.Rows.Add(rowSupplierRow)
7524             Return rowSupplierRow
7525         End Function
7526         
7527         <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
7528          Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0")> _
7529         Public Function FindByID(ByVal ID As Integer) As SupplierRow
7530             Return CType(Me.Rows.Find(New Object() {ID}),SupplierRow)
7531         End Function
7532         
7533         <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
7534          Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0")> _
7535         Public Overrides Function Clone() As Global.System.Data.DataTable
7536             Dim cln As SupplierDataTable = CType(MyBase.Clone,SupplierDataTable)
7537             cln.InitVars
7538             Return cln
7539         End Function
7540         
7541         <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
7542          Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0")> _
7543         Protected Overrides Function CreateInstance() As Global.System.Data.DataTable
7544             Return New SupplierDataTable()
7545         End Function
7546         
7547         <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
7548          Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0")> _
7549         Friend Sub InitVars()
7550             Me.columnID = MyBase.Columns("ID")
7551             Me.columnSupplierID = MyBase.Columns("SupplierID")
7552             Me.columnName = MyBase.Columns("Name")
7553             Me.columnAddress = MyBase.Columns("Address")
7554             Me.columnCity = MyBase.Columns("City")
7555             Me.columnState = MyBase.Columns("State")
7556             Me.columnZipCode = MyBase.Columns("ZipCode")
7557             Me.columnContactNo = MyBase.Columns("ContactNo")
7558             Me.columnEmailID = MyBase.Columns("EmailID")
7559             Me.columnRemarks = MyBase.Columns("Remarks")
7560         End Sub
7561         
7562         <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
7563          Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0")> _
7564         Private Sub InitClass()
7565             Me.columnID = New Global.System.Data.DataColumn("ID", GetType(Integer), Nothing, Global.System.Data.MappingType.Element)
7566             MyBase.Columns.Add(Me.columnID)
7567             Me.columnSupplierID = New Global.System.Data.DataColumn("SupplierID", GetType(String), Nothing, Global.System.Data.MappingType.Element)
7568             MyBase.Columns.Add(Me.columnSupplierID)
7569             Me.columnName = New Global.System.Data.DataColumn("Name", GetType(String), Nothing, Global.System.Data.MappingType.Element)
7570             MyBase.Columns.Add(Me.columnName)
7571             Me.columnAddress = New Global.System.Data.DataColumn("Address", GetType(String), Nothing, Global.System.Data.MappingType.Element)
7572             MyBase.Columns.Add(Me.columnAddress)
7573             Me.columnCity = New Global.System.Data.DataColumn("City", GetType(String), Nothing, Global.System.Data.MappingType.Element)
7574             MyBase.Columns.Add(Me.columnCity)
7575             Me.columnState = New Global.System.Data.DataColumn("State", GetType(String), Nothing, Global.System.Data.MappingType.Element)
7576             MyBase.Columns.Add(Me.columnState)
7577             Me.columnZipCode = New Global.System.Data.DataColumn("ZipCode", GetType(String), Nothing, Global.System.Data.MappingType.Element)
7578             MyBase.Columns.Add(Me.columnZipCode)
7579             Me.columnContactNo = New Global.System.Data.DataColumn("ContactNo", GetType(String), Nothing, Global.System.Data.MappingType.Element)
7580             MyBase.Columns.Add(Me.columnContactNo)
7581             Me.columnEmailID = New Global.System.Data.DataColumn("EmailID", GetType(String), Nothing, Global.System.Data.MappingType.Element)
7582             MyBase.Columns.Add(Me.columnEmailID)
7583             Me.columnRemarks = New Global.System.Data.DataColumn("Remarks", GetType(String), Nothing, Global.System.Data.MappingType.Element)
7584             MyBase.Columns.Add(Me.columnRemarks)
7585             Me.Constraints.Add(New Global.System.Data.UniqueConstraint("Constraint1", New Global.System.Data.DataColumn() {Me.columnID}, true))
7586             Me.columnID.AllowDBNull = false
7587             Me.columnID.Unique = true
7588             Me.columnSupplierID.AllowDBNull = false
7589             Me.columnSupplierID.MaxLength = 30
7590             Me.columnName.AllowDBNull = false
7591             Me.columnName.MaxLength = 200
7592             Me.columnAddress.AllowDBNull = false
7593             Me.columnAddress.MaxLength = 250
7594             Me.columnCity.AllowDBNull = false
7595             Me.columnCity.MaxLength = 200
7596             Me.columnState.AllowDBNull = false
7597             Me.columnState.MaxLength = 150
7598             Me.columnZipCode.MaxLength = 15
7599             Me.columnContactNo.AllowDBNull = false
7600             Me.columnContactNo.MaxLength = 150
7601             Me.columnEmailID.MaxLength = 200
7602             Me.columnRemarks.MaxLength = 2147483647
7603         End Sub
7604         
7605         <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
7606          Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0")> _
7607         Public Function NewSupplierRow() As SupplierRow
7608             Return CType(Me.NewRow,SupplierRow)
7609         End Function
7610         
7611         <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
7612          Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0")> _
7613         Protected Overrides Function NewRowFromBuilder(ByVal builder As Global.System.Data.DataRowBuilder) As Global.System.Data.DataRow
7614             Return New SupplierRow(builder)
7615         End Function
7616         
7617         <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
7618          Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0")> _
7619         Protected Overrides Function GetRowType() As Global.System.Type
7620             Return GetType(SupplierRow)
7621         End Function
7622         
7623         <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
7624          Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0")> _
7625         Protected Overrides Sub OnRowChanged(ByVal e As Global.System.Data.DataRowChangeEventArgs)
7626             MyBase.OnRowChanged(e)
7627             If (Not (Me.SupplierRowChangedEvent) Is Nothing) Then
7628                 RaiseEvent SupplierRowChanged(Me, New SupplierRowChangeEvent(CType(e.Row,SupplierRow), e.Action))
7629             End If
7630         End Sub
7631         
7632         <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
7633          Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0")> _
7634         Protected Overrides Sub OnRowChanging(ByVal e As Global.System.Data.DataRowChangeEventArgs)
7635             MyBase.OnRowChanging(e)
7636             If (Not (Me.SupplierRowChangingEvent) Is Nothing) Then
7637                 RaiseEvent SupplierRowChanging(Me, New SupplierRowChangeEvent(CType(e.Row,SupplierRow), e.Action))
7638             End If
7639         End Sub
7640         
7641         <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
7642          Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0")> _
7643         Protected Overrides Sub OnRowDeleted(ByVal e As Global.System.Data.DataRowChangeEventArgs)
7644             MyBase.OnRowDeleted(e)
7645             If (Not (Me.SupplierRowDeletedEvent) Is Nothing) Then
7646                 RaiseEvent SupplierRowDeleted(Me, New SupplierRowChangeEvent(CType(e.Row,SupplierRow), e.Action))
7647             End If
7648         End Sub
7649         
7650         <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
7651          Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0")> _
7652         Protected Overrides Sub OnRowDeleting(ByVal e As Global.System.Data.DataRowChangeEventArgs)
7653             MyBase.OnRowDeleting(e)
7654             If (Not (Me.SupplierRowDeletingEvent) Is Nothing) Then
7655                 RaiseEvent SupplierRowDeleting(Me, New SupplierRowChangeEvent(CType(e.Row,SupplierRow), e.Action))
7656             End If
7657         End Sub
7658         
7659         <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
7660          Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0")> _
7661         Public Sub RemoveSupplierRow(ByVal row As SupplierRow)
7662             Me.Rows.Remove(row)
7663         End Sub
7664         
7665         <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
7666          Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0")> _
7667         Public Shared Function GetTypedTableSchema(ByVal xs As Global.System.Xml.Schema.XmlSchemaSet) As Global.System.Xml.Schema.XmlSchemaComplexType
7668             Dim type As Global.System.Xml.Schema.XmlSchemaComplexType = New Global.System.Xml.Schema.XmlSchemaComplexType()
7669             Dim sequence As Global.System.Xml.Schema.XmlSchemaSequence = New Global.System.Xml.Schema.XmlSchemaSequence()
7670             Dim ds As SIS_DBDataSet = New SIS_DBDataSet()
7671             Dim any1 As Global.System.Xml.Schema.XmlSchemaAny = New Global.System.Xml.Schema.XmlSchemaAny()
7672             any1.Namespace = "http://www.w3.org/2001/XMLSchema"
7673             any1.MinOccurs = New Decimal(0)
7674             any1.MaxOccurs = Decimal.MaxValue
7675             any1.ProcessContents = Global.System.Xml.Schema.XmlSchemaContentProcessing.Lax
7676             sequence.Items.Add(any1)
7677             Dim any2 As Global.System.Xml.Schema.XmlSchemaAny = New Global.System.Xml.Schema.XmlSchemaAny()
7678             any2.Namespace = "urn:schemas-microsoft-com:xml-diffgram-v1"
7679             any2.MinOccurs = New Decimal(1)
7680             any2.ProcessContents = Global.System.Xml.Schema.XmlSchemaContentProcessing.Lax
7681             sequence.Items.Add(any2)
7682             Dim attribute1 As Global.System.Xml.Schema.XmlSchemaAttribute = New Global.System.Xml.Schema.XmlSchemaAttribute()
7683             attribute1.Name = "namespace"
7684             attribute1.FixedValue = ds.Namespace
7685             type.Attributes.Add(attribute1)
7686             Dim attribute2 As Global.System.Xml.Schema.XmlSchemaAttribute = New Global.System.Xml.Schema.XmlSchemaAttribute()
7687             attribute2.Name = "tableTypeName"
7688             attribute2.FixedValue = "SupplierDataTable"
7689             type.Attributes.Add(attribute2)
7690             type.Particle = sequence
7691             Dim dsSchema As Global.System.Xml.Schema.XmlSchema = ds.GetSchemaSerializable
7692             If xs.Contains(dsSchema.TargetNamespace) Then
7693                 Dim s1 As Global.System.IO.MemoryStream = New Global.System.IO.MemoryStream()
7694                 Dim s2 As Global.System.IO.MemoryStream = New Global.System.IO.MemoryStream()
7695                 Try
7696                     Dim schema As Global.System.Xml.Schema.XmlSchema = Nothing
7697                     dsSchema.Write(s1)
7698                     Dim schemas As Global.System.Collections.IEnumerator = xs.Schemas(dsSchema.TargetNamespace).GetEnumerator
7699                     Do While schemas.MoveNext
7700                         schema = CType(schemas.Current,Global.System.Xml.Schema.XmlSchema)
7701                         s2.SetLength(0)
7702                         schema.Write(s2)
7703                         If (s1.Length = s2.Length) Then
7704                             s1.Position = 0
7705                             s2.Position = 0
7706                             
7707                             Do While ((s1.Position <> s1.Length) _
7708                                         AndAlso (s1.ReadByte = s2.ReadByte))
7709                                 
7710                                 
7711                             Loop
7712                             If (s1.Position = s1.Length) Then
7713                                 Return type
7714                             End If
7715                         End If
7716                         
7717                     Loop
7718                 Finally
7719                     If (Not (s1) Is Nothing) Then
7720                         s1.Close
7721                     End If
7722                     If (Not (s2) Is Nothing) Then
7723                         s2.Close
7724                     End If
7725                 End Try
7726             End If
7727             xs.Add(dsSchema)
7728             Return type
7729         End Function
7730     End Class
7731     
7732     '''<summary>
7733     '''Represents the strongly named DataTable class.
7734     '''</summary>
7735     <Global.System.Serializable(), _
7736      Global.System.Xml.Serialization.XmlSchemaProviderAttribute("GetTypedTableSchema")> _
7737     Partial Public Class Temp_StockDataTable
7738         Inherits Global.System.Data.TypedTableBase(Of Temp_StockRow)
7739         
7740         Private columnProductID As Global.System.Data.DataColumn
7741         
7742         Private columnQty As Global.System.Data.DataColumn
7743         
7744         <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
7745          Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0")> _
7746         Public Sub New()
7747             MyBase.New
7748             Me.TableName = "Temp_Stock"
7749             Me.BeginInit
7750             Me.InitClass
7751             Me.EndInit
7752         End Sub
7753         
7754         <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
7755          Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0")> _
7756         Friend Sub New(ByVal table As Global.System.Data.DataTable)
7757             MyBase.New
7758             Me.TableName = table.TableName
7759             If (table.CaseSensitive <> table.DataSet.CaseSensitive) Then
7760                 Me.CaseSensitive = table.CaseSensitive
7761             End If
7762             If (table.Locale.ToString <> table.DataSet.Locale.ToString) Then
7763                 Me.Locale = table.Locale
7764             End If
7765             If (table.Namespace <> table.DataSet.Namespace) Then
7766                 Me.Namespace = table.Namespace
7767             End If
7768             Me.Prefix = table.Prefix
7769             Me.MinimumCapacity = table.MinimumCapacity
7770         End Sub
7771         
7772         <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
7773          Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0")> _
7774         Protected Sub New(ByVal info As Global.System.Runtime.Serialization.SerializationInfo, ByVal context As Global.System.Runtime.Serialization.StreamingContext)
7775             MyBase.New(info, context)
7776             Me.InitVars
7777         End Sub
7778         
7779         <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
7780          Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0")> _
7781         Public ReadOnly Property ProductIDColumn() As Global.System.Data.DataColumn
7782             Get
7783                 Return Me.columnProductID
7784             End Get
7785         End Property
7786         
7787         <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
7788          Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0")> _
7789         Public ReadOnly Property QtyColumn() As Global.System.Data.DataColumn
7790             Get
7791                 Return Me.columnQty
7792             End Get
7793         End Property
7794         
7795         <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
7796          Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0"), _
7797          Global.System.ComponentModel.Browsable(false)> _
7798         Public ReadOnly Property Count() As Integer
7799             Get
7800                 Return Me.Rows.Count
7801             End Get
7802         End Property
7803         
7804         <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
7805          Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0")> _
7806         Public Default ReadOnly Property Item(ByVal index As Integer) As Temp_StockRow
7807             Get
7808                 Return CType(Me.Rows(index),Temp_StockRow)
7809             End Get
7810         End Property
7811         
7812         <Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0")> _
7813         Public Event Temp_StockRowChanging As Temp_StockRowChangeEventHandler
7814         
7815         <Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0")> _
7816         Public Event Temp_StockRowChanged As Temp_StockRowChangeEventHandler
7817         
7818         <Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0")> _
7819         Public Event Temp_StockRowDeleting As Temp_StockRowChangeEventHandler
7820         
7821         <Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0")> _
7822         Public Event Temp_StockRowDeleted As Temp_StockRowChangeEventHandler
7823         
7824         <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
7825          Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0")> _
7826         Public Overloads Sub AddTemp_StockRow(ByVal row As Temp_StockRow)
7827             Me.Rows.Add(row)
7828         End Sub
7829         
7830         <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
7831          Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0")> _
7832         Public Overloads Function AddTemp_StockRow(ByVal parentProductRowByFK_Temp_Stock_Product As ProductRow, ByVal Qty As Integer) As Temp_StockRow
7833             Dim rowTemp_StockRow As Temp_StockRow = CType(Me.NewRow,Temp_StockRow)
7834             Dim columnValuesArray() As Object = New Object() {Nothing, Qty}
7835             If (Not (parentProductRowByFK_Temp_Stock_Product) Is Nothing) Then
7836                 columnValuesArray(0) = parentProductRowByFK_Temp_Stock_Product(0)
7837             End If
7838             rowTemp_StockRow.ItemArray = columnValuesArray
7839             Me.Rows.Add(rowTemp_StockRow)
7840             Return rowTemp_StockRow
7841         End Function
7842         
7843         <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
7844          Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0")> _
7845         Public Function FindByProductID(ByVal ProductID As Integer) As Temp_StockRow
7846             Return CType(Me.Rows.Find(New Object() {ProductID}),Temp_StockRow)
7847         End Function
7848         
7849         <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
7850          Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0")> _
7851         Public Overrides Function Clone() As Global.System.Data.DataTable
7852             Dim cln As Temp_StockDataTable = CType(MyBase.Clone,Temp_StockDataTable)
7853             cln.InitVars
7854             Return cln
7855         End Function
7856         
7857         <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
7858          Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0")> _
7859         Protected Overrides Function CreateInstance() As Global.System.Data.DataTable
7860             Return New Temp_StockDataTable()
7861         End Function
7862         
7863         <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
7864          Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0")> _
7865         Friend Sub InitVars()
7866             Me.columnProductID = MyBase.Columns("ProductID")
7867             Me.columnQty = MyBase.Columns("Qty")
7868         End Sub
7869         
7870         <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
7871          Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0")> _
7872         Private Sub InitClass()
7873             Me.columnProductID = New Global.System.Data.DataColumn("ProductID", GetType(Integer), Nothing, Global.System.Data.MappingType.Element)
7874             MyBase.Columns.Add(Me.columnProductID)
7875             Me.columnQty = New Global.System.Data.DataColumn("Qty", GetType(Integer), Nothing, Global.System.Data.MappingType.Element)
7876             MyBase.Columns.Add(Me.columnQty)
7877             Me.Constraints.Add(New Global.System.Data.UniqueConstraint("Constraint1", New Global.System.Data.DataColumn() {Me.columnProductID}, true))
7878             Me.columnProductID.AllowDBNull = false
7879             Me.columnProductID.Unique = true
7880             Me.columnQty.AllowDBNull = false
7881         End Sub
7882         
7883         <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
7884          Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0")> _
7885         Public Function NewTemp_StockRow() As Temp_StockRow
7886             Return CType(Me.NewRow,Temp_StockRow)
7887         End Function
7888         
7889         <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
7890          Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0")> _
7891         Protected Overrides Function NewRowFromBuilder(ByVal builder As Global.System.Data.DataRowBuilder) As Global.System.Data.DataRow
7892             Return New Temp_StockRow(builder)
7893         End Function
7894         
7895         <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
7896          Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0")> _
7897         Protected Overrides Function GetRowType() As Global.System.Type
7898             Return GetType(Temp_StockRow)
7899         End Function
7900         
7901         <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
7902          Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0")> _
7903         Protected Overrides Sub OnRowChanged(ByVal e As Global.System.Data.DataRowChangeEventArgs)
7904             MyBase.OnRowChanged(e)
7905             If (Not (Me.Temp_StockRowChangedEvent) Is Nothing) Then
7906                 RaiseEvent Temp_StockRowChanged(Me, New Temp_StockRowChangeEvent(CType(e.Row,Temp_StockRow), e.Action))
7907             End If
7908         End Sub
7909         
7910         <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
7911          Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0")> _
7912         Protected Overrides Sub OnRowChanging(ByVal e As Global.System.Data.DataRowChangeEventArgs)
7913             MyBase.OnRowChanging(e)
7914             If (Not (Me.Temp_StockRowChangingEvent) Is Nothing) Then
7915                 RaiseEvent Temp_StockRowChanging(Me, New Temp_StockRowChangeEvent(CType(e.Row,Temp_StockRow), e.Action))
7916             End If
7917         End Sub
7918         
7919         <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
7920          Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0")> _
7921         Protected Overrides Sub OnRowDeleted(ByVal e As Global.System.Data.DataRowChangeEventArgs)
7922             MyBase.OnRowDeleted(e)
7923             If (Not (Me.Temp_StockRowDeletedEvent) Is Nothing) Then
7924                 RaiseEvent Temp_StockRowDeleted(Me, New Temp_StockRowChangeEvent(CType(e.Row,Temp_StockRow), e.Action))
7925             End If
7926         End Sub
7927         
7928         <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
7929          Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0")> _
7930         Protected Overrides Sub OnRowDeleting(ByVal e As Global.System.Data.DataRowChangeEventArgs)
7931             MyBase.OnRowDeleting(e)
7932             If (Not (Me.Temp_StockRowDeletingEvent) Is Nothing) Then
7933                 RaiseEvent Temp_StockRowDeleting(Me, New Temp_StockRowChangeEvent(CType(e.Row,Temp_StockRow), e.Action))
7934             End If
7935         End Sub
7936         
7937         <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
7938          Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0")> _
7939         Public Sub RemoveTemp_StockRow(ByVal row As Temp_StockRow)
7940             Me.Rows.Remove(row)
7941         End Sub
7942         
7943         <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
7944          Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0")> _
7945         Public Shared Function GetTypedTableSchema(ByVal xs As Global.System.Xml.Schema.XmlSchemaSet) As Global.System.Xml.Schema.XmlSchemaComplexType
7946             Dim type As Global.System.Xml.Schema.XmlSchemaComplexType = New Global.System.Xml.Schema.XmlSchemaComplexType()
7947             Dim sequence As Global.System.Xml.Schema.XmlSchemaSequence = New Global.System.Xml.Schema.XmlSchemaSequence()
7948             Dim ds As SIS_DBDataSet = New SIS_DBDataSet()
7949             Dim any1 As Global.System.Xml.Schema.XmlSchemaAny = New Global.System.Xml.Schema.XmlSchemaAny()
7950             any1.Namespace = "http://www.w3.org/2001/XMLSchema"
7951             any1.MinOccurs = New Decimal(0)
7952             any1.MaxOccurs = Decimal.MaxValue
7953             any1.ProcessContents = Global.System.Xml.Schema.XmlSchemaContentProcessing.Lax
7954             sequence.Items.Add(any1)
7955             Dim any2 As Global.System.Xml.Schema.XmlSchemaAny = New Global.System.Xml.Schema.XmlSchemaAny()
7956             any2.Namespace = "urn:schemas-microsoft-com:xml-diffgram-v1"
7957             any2.MinOccurs = New Decimal(1)
7958             any2.ProcessContents = Global.System.Xml.Schema.XmlSchemaContentProcessing.Lax
7959             sequence.Items.Add(any2)
7960             Dim attribute1 As Global.System.Xml.Schema.XmlSchemaAttribute = New Global.System.Xml.Schema.XmlSchemaAttribute()
7961             attribute1.Name = "namespace"
7962             attribute1.FixedValue = ds.Namespace
7963             type.Attributes.Add(attribute1)
7964             Dim attribute2 As Global.System.Xml.Schema.XmlSchemaAttribute = New Global.System.Xml.Schema.XmlSchemaAttribute()
7965             attribute2.Name = "tableTypeName"
7966             attribute2.FixedValue = "Temp_StockDataTable"
7967             type.Attributes.Add(attribute2)
7968             type.Particle = sequence
7969             Dim dsSchema As Global.System.Xml.Schema.XmlSchema = ds.GetSchemaSerializable
7970             If xs.Contains(dsSchema.TargetNamespace) Then
7971                 Dim s1 As Global.System.IO.MemoryStream = New Global.System.IO.MemoryStream()
7972                 Dim s2 As Global.System.IO.MemoryStream = New Global.System.IO.MemoryStream()
7973                 Try
7974                     Dim schema As Global.System.Xml.Schema.XmlSchema = Nothing
7975                     dsSchema.Write(s1)
7976                     Dim schemas As Global.System.Collections.IEnumerator = xs.Schemas(dsSchema.TargetNamespace).GetEnumerator
7977                     Do While schemas.MoveNext
7978                         schema = CType(schemas.Current,Global.System.Xml.Schema.XmlSchema)
7979                         s2.SetLength(0)
7980                         schema.Write(s2)
7981                         If (s1.Length = s2.Length) Then
7982                             s1.Position = 0
7983                             s2.Position = 0
7984                             
7985                             Do While ((s1.Position <> s1.Length) _
7986                                         AndAlso (s1.ReadByte = s2.ReadByte))
7987                                 
7988                                 
7989                             Loop
7990                             If (s1.Position = s1.Length) Then
7991                                 Return type
7992                             End If
7993                         End If
7994                         
7995                     Loop
7996                 Finally
7997                     If (Not (s1) Is Nothing) Then
7998                         s1.Close
7999                     End If
8000                     If (Not (s2) Is Nothing) Then
8001                         s2.Close
8002                     End If
8003                 End Try
8004             End If
8005             xs.Add(dsSchema)
8006             Return type
8007         End Function
8008     End Class
8009     
8010     '''<summary>
8011     '''Represents strongly named DataRow class.
8012     '''</summary>
8013     Partial Public Class ActivationRow
8014         Inherits Global.System.Data.DataRow
8015         
8016         Private tableActivation As ActivationDataTable
8017         
8018         <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
8019          Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0")> _
8020         Friend Sub New(ByVal rb As Global.System.Data.DataRowBuilder)
8021             MyBase.New(rb)
8022             Me.tableActivation = CType(Me.Table,ActivationDataTable)
8023         End Sub
8024         
8025         <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
8026          Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0")> _
8027         Public Property ID() As Integer
8028             Get
8029                 Return CType(Me(Me.tableActivation.IDColumn),Integer)
8030             End Get
8031             Set
8032                 Me(Me.tableActivation.IDColumn) = value
8033             End Set
8034         End Property
8035         
8036         <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
8037          Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0")> _
8038         Public Property HardwareID() As String
8039             Get
8040                 Return CType(Me(Me.tableActivation.HardwareIDColumn),String)
8041             End Get
8042             Set
8043                 Me(Me.tableActivation.HardwareIDColumn) = value
8044             End Set
8045         End Property
8046         
8047         <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
8048          Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0")> _
8049         Public Property SerialNo() As String
8050             Get
8051                 Return CType(Me(Me.tableActivation.SerialNoColumn),String)
8052             End Get
8053             Set
8054                 Me(Me.tableActivation.SerialNoColumn) = value
8055             End Set
8056         End Property
8057         
8058         <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
8059          Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0")> _
8060         Public Property ActivationID() As String
8061             Get
8062                 Return CType(Me(Me.tableActivation.ActivationIDColumn),String)
8063             End Get
8064             Set
8065                 Me(Me.tableActivation.ActivationIDColumn) = value
8066             End Set
8067         End Property
8068     End Class
8069     
8070     '''<summary>
8071     '''Represents strongly named DataRow class.
8072     '''</summary>
8073     Partial Public Class CategoryRow
8074         Inherits Global.System.Data.DataRow
8075         
8076         Private tableCategory As CategoryDataTable
8077         
8078         <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
8079          Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0")> _
8080         Friend Sub New(ByVal rb As Global.System.Data.DataRowBuilder)
8081             MyBase.New(rb)
8082             Me.tableCategory = CType(Me.Table,CategoryDataTable)
8083         End Sub
8084         
8085         <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
8086          Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0")> _
8087         Public Property CategoryName() As String
8088             Get
8089                 Return CType(Me(Me.tableCategory.CategoryNameColumn),String)
8090             End Get
8091             Set
8092                 Me(Me.tableCategory.CategoryNameColumn) = value
8093             End Set
8094         End Property
8095         
8096         <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
8097          Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0")> _
8098         Public Function GetSubCategoryRows() As SubCategoryRow()
8099             If (Me.Table.ChildRelations("FK_SubCategory_Category") Is Nothing) Then
8100                 Return New SubCategoryRow(-1) {}
8101             Else
8102                 Return CType(MyBase.GetChildRows(Me.Table.ChildRelations("FK_SubCategory_Category")),SubCategoryRow())
8103             End If
8104         End Function
8105     End Class
8106     
8107     '''<summary>
8108     '''Represents strongly named DataRow class.
8109     '''</summary>
8110     Partial Public Class CompanyRow
8111         Inherits Global.System.Data.DataRow
8112         
8113         Private tableCompany As CompanyDataTable
8114         
8115         <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
8116          Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0")> _
8117         Friend Sub New(ByVal rb As Global.System.Data.DataRowBuilder)
8118             MyBase.New(rb)
8119             Me.tableCompany = CType(Me.Table,CompanyDataTable)
8120         End Sub
8121         
8122         <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
8123          Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0")> _
8124         Public Property ID() As Integer
8125             Get
8126                 Return CType(Me(Me.tableCompany.IDColumn),Integer)
8127             End Get
8128             Set
8129                 Me(Me.tableCompany.IDColumn) = value
8130             End Set
8131         End Property
8132         
8133         <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
8134          Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0")> _
8135         Public Property CompanyName() As String
8136             Get
8137                 Return CType(Me(Me.tableCompany.CompanyNameColumn),String)
8138             End Get
8139             Set
8140                 Me(Me.tableCompany.CompanyNameColumn) = value
8141             End Set
8142         End Property
8143         
8144         <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
8145          Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0")> _
8146         Public Property Address() As String
8147             Get
8148                 Return CType(Me(Me.tableCompany.AddressColumn),String)
8149             End Get
8150             Set
8151                 Me(Me.tableCompany.AddressColumn) = value
8152             End Set
8153         End Property
8154         
8155         <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
8156          Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0")> _
8157         Public Property ContactNo() As String
8158             Get
8159                 Return CType(Me(Me.tableCompany.ContactNoColumn),String)
8160             End Get
8161             Set
8162                 Me(Me.tableCompany.ContactNoColumn) = value
8163             End Set
8164         End Property
8165         
8166         <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
8167          Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0")> _
8168         Public Property EmailID() As String
8169             Get
8170                 Return CType(Me(Me.tableCompany.EmailIDColumn),String)
8171             End Get
8172             Set
8173                 Me(Me.tableCompany.EmailIDColumn) = value
8174             End Set
8175         End Property
8176         
8177         <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
8178          Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0")> _
8179         Public Property Logo() As Byte()
8180             Get
8181                 Return CType(Me(Me.tableCompany.LogoColumn),Byte())
8182             End Get
8183             Set
8184                 Me(Me.tableCompany.LogoColumn) = value
8185             End Set
8186         End Property
8187         
8188         <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
8189          Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0")> _
8190         Public Property TIN() As String
8191             Get
8192                 Try
8193                     Return CType(Me(Me.tableCompany.TINColumn),String)
8194                 Catch e As Global.System.InvalidCastException
8195                     Throw New Global.System.Data.StrongTypingException("The value for column 'TIN' in table 'Company' is DBNull.", e)
8196                 End Try
8197             End Get
8198             Set
8199                 Me(Me.tableCompany.TINColumn) = value
8200             End Set
8201         End Property
8202         
8203         <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
8204          Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0")> _
8205         Public Property STNo() As String
8206             Get
8207                 Try
8208                     Return CType(Me(Me.tableCompany.STNoColumn),String)
8209                 Catch e As Global.System.InvalidCastException
8210                     Throw New Global.System.Data.StrongTypingException("The value for column 'STNo' in table 'Company' is DBNull.", e)
8211                 End Try
8212             End Get
8213             Set
8214                 Me(Me.tableCompany.STNoColumn) = value
8215             End Set
8216         End Property
8217         
8218         <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
8219          Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0")> _
8220         Public Property CIN() As String
8221             Get
8222                 Try
8223                     Return CType(Me(Me.tableCompany.CINColumn),String)
8224                 Catch e As Global.System.InvalidCastException
8225                     Throw New Global.System.Data.StrongTypingException("The value for column 'CIN' in table 'Company' is DBNull.", e)
8226                 End Try
8227             End Get
8228             Set
8229                 Me(Me.tableCompany.CINColumn) = value
8230             End Set
8231         End Property
8232         
8233         <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
8234          Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0")> _
8235         Public Function IsTINNull() As Boolean
8236             Return Me.IsNull(Me.tableCompany.TINColumn)
8237         End Function
8238         
8239         <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
8240          Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0")> _
8241         Public Sub SetTINNull()
8242             Me(Me.tableCompany.TINColumn) = Global.System.Convert.DBNull
8243         End Sub
8244         
8245         <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
8246          Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0")> _
8247         Public Function IsSTNoNull() As Boolean
8248             Return Me.IsNull(Me.tableCompany.STNoColumn)
8249         End Function
8250         
8251         <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
8252          Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0")> _
8253         Public Sub SetSTNoNull()
8254             Me(Me.tableCompany.STNoColumn) = Global.System.Convert.DBNull
8255         End Sub
8256         
8257         <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
8258          Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0")> _
8259         Public Function IsCINNull() As Boolean
8260             Return Me.IsNull(Me.tableCompany.CINColumn)
8261         End Function
8262         
8263         <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
8264          Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0")> _
8265         Public Sub SetCINNull()
8266             Me(Me.tableCompany.CINColumn) = Global.System.Convert.DBNull
8267         End Sub
8268     End Class
8269     
8270     '''<summary>
8271     '''Represents strongly named DataRow class.
8272     '''</summary>
8273     Partial Public Class Company_ContactsRow
8274         Inherits Global.System.Data.DataRow
8275         
8276         Private tableCompany_Contacts As Company_ContactsDataTable
8277         
8278         <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
8279          Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0")> _
8280         Friend Sub New(ByVal rb As Global.System.Data.DataRowBuilder)
8281             MyBase.New(rb)
8282             Me.tableCompany_Contacts = CType(Me.Table,Company_ContactsDataTable)
8283         End Sub
8284         
8285         <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
8286          Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0")> _
8287         Public Property Id() As Integer
8288             Get
8289                 Return CType(Me(Me.tableCompany_Contacts.IdColumn),Integer)
8290             End Get
8291             Set
8292                 Me(Me.tableCompany_Contacts.IdColumn) = value
8293             End Set
8294         End Property
8295         
8296         <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
8297          Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0")> _
8298         Public Property ContactPerson() As String
8299             Get
8300                 Return CType(Me(Me.tableCompany_Contacts.ContactPersonColumn),String)
8301             End Get
8302             Set
8303                 Me(Me.tableCompany_Contacts.ContactPersonColumn) = value
8304             End Set
8305         End Property
8306         
8307         <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
8308          Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0")> _
8309         Public Property ContactNo() As String
8310             Get
8311                 Return CType(Me(Me.tableCompany_Contacts.ContactNoColumn),String)
8312             End Get
8313             Set
8314                 Me(Me.tableCompany_Contacts.ContactNoColumn) = value
8315             End Set
8316         End Property
8317     End Class
8318     
8319     '''<summary>
8320     '''Represents strongly named DataRow class.
8321     '''</summary>
8322     Partial Public Class CustomerRow
8323         Inherits Global.System.Data.DataRow
8324         
8325         Private tableCustomer As CustomerDataTable
8326         
8327         <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
8328          Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0")> _
8329         Friend Sub New(ByVal rb As Global.System.Data.DataRowBuilder)
8330             MyBase.New(rb)
8331             Me.tableCustomer = CType(Me.Table,CustomerDataTable)
8332         End Sub
8333         
8334         <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
8335          Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0")> _
8336         Public Property ID() As Integer
8337             Get
8338                 Return CType(Me(Me.tableCustomer.IDColumn),Integer)
8339             End Get
8340             Set
8341                 Me(Me.tableCustomer.IDColumn) = value
8342             End Set
8343         End Property
8344         
8345         <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
8346          Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0")> _
8347         Public Property CustomerID() As String
8348             Get
8349                 Return CType(Me(Me.tableCustomer.CustomerIDColumn),String)
8350             End Get
8351             Set
8352                 Me(Me.tableCustomer.CustomerIDColumn) = value
8353             End Set
8354         End Property
8355         
8356         <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
8357          Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0")> _
8358         Public Property Name() As String
8359             Get
8360                 Return CType(Me(Me.tableCustomer.NameColumn),String)
8361             End Get
8362             Set
8363                 Me(Me.tableCustomer.NameColumn) = value
8364             End Set
8365         End Property
8366         
8367         <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
8368          Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0")> _
8369         Public Property Gender() As String
8370             Get
8371                 Return CType(Me(Me.tableCustomer.GenderColumn),String)
8372             End Get
8373             Set
8374                 Me(Me.tableCustomer.GenderColumn) = value
8375             End Set
8376         End Property
8377         
8378         <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
8379          Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0")> _
8380         Public Property Address() As String
8381             Get
8382                 Return CType(Me(Me.tableCustomer.AddressColumn),String)
8383             End Get
8384             Set
8385                 Me(Me.tableCustomer.AddressColumn) = value
8386             End Set
8387         End Property
8388         
8389         <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
8390          Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0")> _
8391         Public Property City() As String
8392             Get
8393                 Return CType(Me(Me.tableCustomer.CityColumn),String)
8394             End Get
8395             Set
8396                 Me(Me.tableCustomer.CityColumn) = value
8397             End Set
8398         End Property
8399         
8400         <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
8401          Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0")> _
8402         Public Property State() As String
8403             Get
8404                 Return CType(Me(Me.tableCustomer.StateColumn),String)
8405             End Get
8406             Set
8407                 Me(Me.tableCustomer.StateColumn) = value
8408             End Set
8409         End Property
8410         
8411         <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
8412          Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0")> _
8413         Public Property ZipCode() As String
8414             Get
8415                 Try
8416                     Return CType(Me(Me.tableCustomer.ZipCodeColumn),String)
8417                 Catch e As Global.System.InvalidCastException
8418                     Throw New Global.System.Data.StrongTypingException("The value for column 'ZipCode' in table 'Customer' is DBNull.", e)
8419                 End Try
8420             End Get
8421             Set
8422                 Me(Me.tableCustomer.ZipCodeColumn) = value
8423             End Set
8424         End Property
8425         
8426         <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
8427          Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0")> _
8428         Public Property ContactNo() As String
8429             Get
8430                 Return CType(Me(Me.tableCustomer.ContactNoColumn),String)
8431             End Get
8432             Set
8433                 Me(Me.tableCustomer.ContactNoColumn) = value
8434             End Set
8435         End Property
8436         
8437         <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
8438          Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0")> _
8439         Public Property EmailID() As String
8440             Get
8441                 Try
8442                     Return CType(Me(Me.tableCustomer.EmailIDColumn),String)
8443                 Catch e As Global.System.InvalidCastException
8444                     Throw New Global.System.Data.StrongTypingException("The value for column 'EmailID' in table 'Customer' is DBNull.", e)
8445                 End Try
8446             End Get
8447             Set
8448                 Me(Me.tableCustomer.EmailIDColumn) = value
8449             End Set
8450         End Property
8451         
8452         <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
8453          Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0")> _
8454         Public Property Remarks() As String
8455             Get
8456                 Try
8457                     Return CType(Me(Me.tableCustomer.RemarksColumn),String)
8458                 Catch e As Global.System.InvalidCastException
8459                     Throw New Global.System.Data.StrongTypingException("The value for column 'Remarks' in table 'Customer' is DBNull.", e)
8460                 End Try
8461             End Get
8462             Set
8463                 Me(Me.tableCustomer.RemarksColumn) = value
8464             End Set
8465         End Property
8466         
8467         <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
8468          Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0")> _
8469         Public Property Photo() As Byte()
8470             Get
8471                 Return CType(Me(Me.tableCustomer.PhotoColumn),Byte())
8472             End Get
8473             Set
8474                 Me(Me.tableCustomer.PhotoColumn) = value
8475             End Set
8476         End Property
8477         
8478         <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
8479          Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0")> _
8480         Public Function IsZipCodeNull() As Boolean
8481             Return Me.IsNull(Me.tableCustomer.ZipCodeColumn)
8482         End Function
8483         
8484         <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
8485          Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0")> _
8486         Public Sub SetZipCodeNull()
8487             Me(Me.tableCustomer.ZipCodeColumn) = Global.System.Convert.DBNull
8488         End Sub
8489         
8490         <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
8491          Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0")> _
8492         Public Function IsEmailIDNull() As Boolean
8493             Return Me.IsNull(Me.tableCustomer.EmailIDColumn)
8494         End Function
8495         
8496         <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
8497          Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0")> _
8498         Public Sub SetEmailIDNull()
8499             Me(Me.tableCustomer.EmailIDColumn) = Global.System.Convert.DBNull
8500         End Sub
8501         
8502         <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
8503          Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0")> _
8504         Public Function IsRemarksNull() As Boolean
8505             Return Me.IsNull(Me.tableCustomer.RemarksColumn)
8506         End Function
8507         
8508         <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
8509          Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0")> _
8510         Public Sub SetRemarksNull()
8511             Me(Me.tableCustomer.RemarksColumn) = Global.System.Convert.DBNull
8512         End Sub
8513         
8514         <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
8515          Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0")> _
8516         Public Function GetInvoiceInfoRows() As InvoiceInfoRow()
8517             If (Me.Table.ChildRelations("FK_InvoiceInfo_Customer") Is Nothing) Then
8518                 Return New InvoiceInfoRow(-1) {}
8519             Else
8520                 Return CType(MyBase.GetChildRows(Me.Table.ChildRelations("FK_InvoiceInfo_Customer")),InvoiceInfoRow())
8521             End If
8522         End Function
8523         
8524         <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
8525          Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0")> _
8526         Public Function GetQuotationRows() As QuotationRow()
8527             If (Me.Table.ChildRelations("FK_Quotation_Customer") Is Nothing) Then
8528                 Return New QuotationRow(-1) {}
8529             Else
8530                 Return CType(MyBase.GetChildRows(Me.Table.ChildRelations("FK_Quotation_Customer")),QuotationRow())
8531             End If
8532         End Function
8533         
8534         <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
8535          Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0")> _
8536         Public Function GetServiceRows() As ServiceRow()
8537             If (Me.Table.ChildRelations("FK_Service_Customer") Is Nothing) Then
8538                 Return New ServiceRow(-1) {}
8539             Else
8540                 Return CType(MyBase.GetChildRows(Me.Table.ChildRelations("FK_Service_Customer")),ServiceRow())
8541             End If
8542         End Function
8543     End Class
8544     
8545     '''<summary>
8546     '''Represents strongly named DataRow class.
8547     '''</summary>
8548     Partial Public Class Invoice_PaymentRow
8549         Inherits Global.System.Data.DataRow
8550         
8551         Private tableInvoice_Payment As Invoice_PaymentDataTable
8552         
8553         <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
8554          Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0")> _
8555         Friend Sub New(ByVal rb As Global.System.Data.DataRowBuilder)
8556             MyBase.New(rb)
8557             Me.tableInvoice_Payment = CType(Me.Table,Invoice_PaymentDataTable)
8558         End Sub
8559         
8560         <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
8561          Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0")> _
8562         Public Property IP_ID() As Integer
8563             Get
8564                 Return CType(Me(Me.tableInvoice_Payment.IP_IDColumn),Integer)
8565             End Get
8566             Set
8567                 Me(Me.tableInvoice_Payment.IP_IDColumn) = value
8568             End Set
8569         End Property
8570         
8571         <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
8572          Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0")> _
8573         Public Property InvoiceID() As Integer
8574             Get
8575                 Return CType(Me(Me.tableInvoice_Payment.InvoiceIDColumn),Integer)
8576             End Get
8577             Set
8578                 Me(Me.tableInvoice_Payment.InvoiceIDColumn) = value
8579             End Set
8580         End Property
8581         
8582         <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
8583          Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0")> _
8584         Public Property PaymentDate() As Date
8585             Get
8586                 Return CType(Me(Me.tableInvoice_Payment.PaymentDateColumn),Date)
8587             End Get
8588             Set
8589                 Me(Me.tableInvoice_Payment.PaymentDateColumn) = value
8590             End Set
8591         End Property
8592         
8593         <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
8594          Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0")> _
8595         Public Property TotalPaid() As Decimal
8596             Get
8597                 Return CType(Me(Me.tableInvoice_Payment.TotalPaidColumn),Decimal)
8598             End Get
8599             Set
8600                 Me(Me.tableInvoice_Payment.TotalPaidColumn) = value
8601             End Set
8602         End Property
8603         
8604         <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
8605          Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0")> _
8606         Public Property PaymentMode() As String
8607             Get
8608                 Return CType(Me(Me.tableInvoice_Payment.PaymentModeColumn),String)
8609             End Get
8610             Set
8611                 Me(Me.tableInvoice_Payment.PaymentModeColumn) = value
8612             End Set
8613         End Property
8614         
8615         <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
8616          Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0")> _
8617         Public Property InvoiceInfoRow() As InvoiceInfoRow
8618             Get
8619                 Return CType(Me.GetParentRow(Me.Table.ParentRelations("FK_Invoice_Payment_InvoiceInfo")),InvoiceInfoRow)
8620             End Get
8621             Set
8622                 Me.SetParentRow(value, Me.Table.ParentRelations("FK_Invoice_Payment_InvoiceInfo"))
8623             End Set
8624         End Property
8625     End Class
8626     
8627     '''<summary>
8628     '''Represents strongly named DataRow class.
8629     '''</summary>
8630     Partial Public Class Invoice_ProductRow
8631         Inherits Global.System.Data.DataRow
8632         
8633         Private tableInvoice_Product As Invoice_ProductDataTable
8634         
8635         <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
8636          Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0")> _
8637         Friend Sub New(ByVal rb As Global.System.Data.DataRowBuilder)
8638             MyBase.New(rb)
8639             Me.tableInvoice_Product = CType(Me.Table,Invoice_ProductDataTable)
8640         End Sub
8641         
8642         <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
8643          Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0")> _
8644         Public Property IPo_ID() As Integer
8645             Get
8646                 Return CType(Me(Me.tableInvoice_Product.IPo_IDColumn),Integer)
8647             End Get
8648             Set
8649                 Me(Me.tableInvoice_Product.IPo_IDColumn) = value
8650             End Set
8651         End Property
8652         
8653         <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
8654          Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0")> _
8655         Public Property InvoiceID() As Integer
8656             Get
8657                 Return CType(Me(Me.tableInvoice_Product.InvoiceIDColumn),Integer)
8658             End Get
8659             Set
8660                 Me(Me.tableInvoice_Product.InvoiceIDColumn) = value
8661             End Set
8662         End Property
8663         
8664         <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
8665          Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0")> _
8666         Public Property ProductID() As Integer
8667             Get
8668                 Return CType(Me(Me.tableInvoice_Product.ProductIDColumn),Integer)
8669             End Get
8670             Set
8671                 Me(Me.tableInvoice_Product.ProductIDColumn) = value
8672             End Set
8673         End Property
8674         
8675         <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
8676          Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0")> _
8677         Public Property CostPrice() As Decimal
8678             Get
8679                 Return CType(Me(Me.tableInvoice_Product.CostPriceColumn),Decimal)
8680             End Get
8681             Set
8682                 Me(Me.tableInvoice_Product.CostPriceColumn) = value
8683             End Set
8684         End Property
8685         
8686         <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
8687          Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0")> _
8688         Public Property SellingPrice() As Decimal
8689             Get
8690                 Return CType(Me(Me.tableInvoice_Product.SellingPriceColumn),Decimal)
8691             End Get
8692             Set
8693                 Me(Me.tableInvoice_Product.SellingPriceColumn) = value
8694             End Set
8695         End Property
8696         
8697         <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
8698          Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0")> _
8699         Public Property Margin() As Decimal
8700             Get
8701                 Return CType(Me(Me.tableInvoice_Product.MarginColumn),Decimal)
8702             End Get
8703             Set
8704                 Me(Me.tableInvoice_Product.MarginColumn) = value
8705             End Set
8706         End Property
8707         
8708         <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
8709          Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0")> _
8710         Public Property Qty() As Integer
8711             Get
8712                 Return CType(Me(Me.tableInvoice_Product.QtyColumn),Integer)
8713             End Get
8714             Set
8715                 Me(Me.tableInvoice_Product.QtyColumn) = value
8716             End Set
8717         End Property
8718         
8719         <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
8720          Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0")> _
8721         Public Property Amount() As Decimal
8722             Get
8723                 Return CType(Me(Me.tableInvoice_Product.AmountColumn),Decimal)
8724             End Get
8725             Set
8726                 Me(Me.tableInvoice_Product.AmountColumn) = value
8727             End Set
8728         End Property
8729         
8730         <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
8731          Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0")> _
8732         Public Property DiscountPer() As Decimal
8733             Get
8734                 Return CType(Me(Me.tableInvoice_Product.DiscountPerColumn),Decimal)
8735             End Get
8736             Set
8737                 Me(Me.tableInvoice_Product.DiscountPerColumn) = value
8738             End Set
8739         End Property
8740         
8741         <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
8742          Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0")> _
8743         Public Property Discount() As Decimal
8744             Get
8745                 Return CType(Me(Me.tableInvoice_Product.DiscountColumn),Decimal)
8746             End Get
8747             Set
8748                 Me(Me.tableInvoice_Product.DiscountColumn) = value
8749             End Set
8750         End Property
8751         
8752         <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
8753          Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0")> _
8754         Public Property VATPer() As Decimal
8755             Get
8756                 Return CType(Me(Me.tableInvoice_Product.VATPerColumn),Decimal)
8757             End Get
8758             Set
8759                 Me(Me.tableInvoice_Product.VATPerColumn) = value
8760             End Set
8761         End Property
8762         
8763         <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
8764          Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0")> _
8765         Public Property VAT() As Decimal
8766             Get
8767                 Return CType(Me(Me.tableInvoice_Product.VATColumn),Decimal)
8768             End Get
8769             Set
8770                 Me(Me.tableInvoice_Product.VATColumn) = value
8771             End Set
8772         End Property
8773         
8774         <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
8775          Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0")> _
8776         Public Property TotalAmount() As Decimal
8777             Get
8778                 Return CType(Me(Me.tableInvoice_Product.TotalAmountColumn),Decimal)
8779             End Get
8780             Set
8781                 Me(Me.tableInvoice_Product.TotalAmountColumn) = value
8782             End Set
8783         End Property
8784         
8785         <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
8786          Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0")> _
8787         Public Property InvoiceInfoRow() As InvoiceInfoRow
8788             Get
8789                 Return CType(Me.GetParentRow(Me.Table.ParentRelations("FK_Invoice_Product_InvoiceInfo")),InvoiceInfoRow)
8790             End Get
8791             Set
8792                 Me.SetParentRow(value, Me.Table.ParentRelations("FK_Invoice_Product_InvoiceInfo"))
8793             End Set
8794         End Property
8795         
8796         <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
8797          Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0")> _
8798         Public Property ProductRow() As ProductRow
8799             Get
8800                 Return CType(Me.GetParentRow(Me.Table.ParentRelations("FK_Invoice_Product_Product")),ProductRow)
8801             End Get
8802             Set
8803                 Me.SetParentRow(value, Me.Table.ParentRelations("FK_Invoice_Product_Product"))
8804             End Set
8805         End Property
8806     End Class
8807     
8808     '''<summary>
8809     '''Represents strongly named DataRow class.
8810     '''</summary>
8811     Partial Public Class InvoiceInfoRow
8812         Inherits Global.System.Data.DataRow
8813         
8814         Private tableInvoiceInfo As InvoiceInfoDataTable
8815         
8816         <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
8817          Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0")> _
8818         Friend Sub New(ByVal rb As Global.System.Data.DataRowBuilder)
8819             MyBase.New(rb)
8820             Me.tableInvoiceInfo = CType(Me.Table,InvoiceInfoDataTable)
8821         End Sub
8822         
8823         <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
8824          Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0")> _
8825         Public Property Inv_ID() As Integer
8826             Get
8827                 Return CType(Me(Me.tableInvoiceInfo.Inv_IDColumn),Integer)
8828             End Get
8829             Set
8830                 Me(Me.tableInvoiceInfo.Inv_IDColumn) = value
8831             End Set
8832         End Property
8833         
8834         <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
8835          Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0")> _
8836         Public Property InvoiceNo() As String
8837             Get
8838                 Return CType(Me(Me.tableInvoiceInfo.InvoiceNoColumn),String)
8839             End Get
8840             Set
8841                 Me(Me.tableInvoiceInfo.InvoiceNoColumn) = value
8842             End Set
8843         End Property
8844         
8845         <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
8846          Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0")> _
8847         Public Property InvoiceDate() As Date
8848             Get
8849                 Return CType(Me(Me.tableInvoiceInfo.InvoiceDateColumn),Date)
8850             End Get
8851             Set
8852                 Me(Me.tableInvoiceInfo.InvoiceDateColumn) = value
8853             End Set
8854         End Property
8855         
8856         <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
8857          Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0")> _
8858         Public Property CustomerID() As Integer
8859             Get
8860                 Return CType(Me(Me.tableInvoiceInfo.CustomerIDColumn),Integer)
8861             End Get
8862             Set
8863                 Me(Me.tableInvoiceInfo.CustomerIDColumn) = value
8864             End Set
8865         End Property
8866         
8867         <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
8868          Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0")> _
8869         Public Property GrandTotal() As Decimal
8870             Get
8871                 Return CType(Me(Me.tableInvoiceInfo.GrandTotalColumn),Decimal)
8872             End Get
8873             Set
8874                 Me(Me.tableInvoiceInfo.GrandTotalColumn) = value
8875             End Set
8876         End Property
8877         
8878         <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
8879          Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0")> _
8880         Public Property TotalPaid() As Decimal
8881             Get
8882                 Return CType(Me(Me.tableInvoiceInfo.TotalPaidColumn),Decimal)
8883             End Get
8884             Set
8885                 Me(Me.tableInvoiceInfo.TotalPaidColumn) = value
8886             End Set
8887         End Property
8888         
8889         <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
8890          Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0")> _
8891         Public Property Balance() As Decimal
8892             Get
8893                 Return CType(Me(Me.tableInvoiceInfo.BalanceColumn),Decimal)
8894             End Get
8895             Set
8896                 Me(Me.tableInvoiceInfo.BalanceColumn) = value
8897             End Set
8898         End Property
8899         
8900         <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
8901          Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0")> _
8902         Public Property Remarks() As String
8903             Get
8904                 Try
8905                     Return CType(Me(Me.tableInvoiceInfo.RemarksColumn),String)
8906                 Catch e As Global.System.InvalidCastException
8907                     Throw New Global.System.Data.StrongTypingException("The value for column 'Remarks' in table 'InvoiceInfo' is DBNull.", e)
8908                 End Try
8909             End Get
8910             Set
8911                 Me(Me.tableInvoiceInfo.RemarksColumn) = value
8912             End Set
8913         End Property
8914         
8915         <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
8916          Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0")> _
8917         Public Property CustomerRow() As CustomerRow
8918             Get
8919                 Return CType(Me.GetParentRow(Me.Table.ParentRelations("FK_InvoiceInfo_Customer")),CustomerRow)
8920             End Get
8921             Set
8922                 Me.SetParentRow(value, Me.Table.ParentRelations("FK_InvoiceInfo_Customer"))
8923             End Set
8924         End Property
8925         
8926         <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
8927          Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0")> _
8928         Public Function IsRemarksNull() As Boolean
8929             Return Me.IsNull(Me.tableInvoiceInfo.RemarksColumn)
8930         End Function
8931         
8932         <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
8933          Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0")> _
8934         Public Sub SetRemarksNull()
8935             Me(Me.tableInvoiceInfo.RemarksColumn) = Global.System.Convert.DBNull
8936         End Sub
8937         
8938         <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
8939          Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0")> _
8940         Public Function GetInvoice_PaymentRows() As Invoice_PaymentRow()
8941             If (Me.Table.ChildRelations("FK_Invoice_Payment_InvoiceInfo") Is Nothing) Then
8942                 Return New Invoice_PaymentRow(-1) {}
8943             Else
8944                 Return CType(MyBase.GetChildRows(Me.Table.ChildRelations("FK_Invoice_Payment_InvoiceInfo")),Invoice_PaymentRow())
8945             End If
8946         End Function
8947         
8948         <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
8949          Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0")> _
8950         Public Function GetInvoice_ProductRows() As Invoice_ProductRow()
8951             If (Me.Table.ChildRelations("FK_Invoice_Product_InvoiceInfo") Is Nothing) Then
8952                 Return New Invoice_ProductRow(-1) {}
8953             Else
8954                 Return CType(MyBase.GetChildRows(Me.Table.ChildRelations("FK_Invoice_Product_InvoiceInfo")),Invoice_ProductRow())
8955             End If
8956         End Function
8957     End Class
8958     
8959     '''<summary>
8960     '''Represents strongly named DataRow class.
8961     '''</summary>
8962     Partial Public Class LogsRow
8963         Inherits Global.System.Data.DataRow
8964         
8965         Private tableLogs As LogsDataTable
8966         
8967         <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
8968          Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0")> _
8969         Friend Sub New(ByVal rb As Global.System.Data.DataRowBuilder)
8970             MyBase.New(rb)
8971             Me.tableLogs = CType(Me.Table,LogsDataTable)
8972         End Sub
8973         
8974         <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
8975          Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0")> _
8976         Public Property ID() As Integer
8977             Get
8978                 Return CType(Me(Me.tableLogs.IDColumn),Integer)
8979             End Get
8980             Set
8981                 Me(Me.tableLogs.IDColumn) = value
8982             End Set
8983         End Property
8984         
8985         <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
8986          Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0")> _
8987         Public Property UserID() As String
8988             Get
8989                 Return CType(Me(Me.tableLogs.UserIDColumn),String)
8990             End Get
8991             Set
8992                 Me(Me.tableLogs.UserIDColumn) = value
8993             End Set
8994         End Property
8995         
8996         <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
8997          Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0")> _
8998         Public Property Operation() As String
8999             Get
9000                 Return CType(Me(Me.tableLogs.OperationColumn),String)
9001             End Get
9002             Set
9003                 Me(Me.tableLogs.OperationColumn) = value
9004             End Set
9005         End Property
9006         
9007         <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
9008          Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0")> _
9009         Public Property _Date() As Date
9010             Get
9011                 Return CType(Me(Me.tableLogs.DateColumn),Date)
9012             End Get
9013             Set
9014                 Me(Me.tableLogs.DateColumn) = value
9015             End Set
9016         End Property
9017         
9018         <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
9019          Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0")> _
9020         Public Property RegistrationRow() As RegistrationRow
9021             Get
9022                 Return CType(Me.GetParentRow(Me.Table.ParentRelations("FK_Logs_Registration")),RegistrationRow)
9023             End Get
9024             Set
9025                 Me.SetParentRow(value, Me.Table.ParentRelations("FK_Logs_Registration"))
9026             End Set
9027         End Property
9028     End Class
9029     
9030     '''<summary>
9031     '''Represents strongly named DataRow class.
9032     '''</summary>
9033     Partial Public Class ProductRow
9034         Inherits Global.System.Data.DataRow
9035         
9036         Private tableProduct As ProductDataTable
9037         
9038         <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
9039          Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0")> _
9040         Friend Sub New(ByVal rb As Global.System.Data.DataRowBuilder)
9041             MyBase.New(rb)
9042             Me.tableProduct = CType(Me.Table,ProductDataTable)
9043         End Sub
9044         
9045         <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
9046          Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0")> _
9047         Public Property PID() As Integer
9048             Get
9049                 Return CType(Me(Me.tableProduct.PIDColumn),Integer)
9050             End Get
9051             Set
9052                 Me(Me.tableProduct.PIDColumn) = value
9053             End Set
9054         End Property
9055         
9056         <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
9057          Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0")> _
9058         Public Property ProductCode() As String
9059             Get
9060                 Return CType(Me(Me.tableProduct.ProductCodeColumn),String)
9061             End Get
9062             Set
9063                 Me(Me.tableProduct.ProductCodeColumn) = value
9064             End Set
9065         End Property
9066         
9067         <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
9068          Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0")> _
9069         Public Property ProductName() As String
9070             Get
9071                 Return CType(Me(Me.tableProduct.ProductNameColumn),String)
9072             End Get
9073             Set
9074                 Me(Me.tableProduct.ProductNameColumn) = value
9075             End Set
9076         End Property
9077         
9078         <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
9079          Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0")> _
9080         Public Property SubCategoryID() As Integer
9081             Get
9082                 Return CType(Me(Me.tableProduct.SubCategoryIDColumn),Integer)
9083             End Get
9084             Set
9085                 Me(Me.tableProduct.SubCategoryIDColumn) = value
9086             End Set
9087         End Property
9088         
9089         <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
9090          Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0")> _
9091         Public Property Description() As String
9092             Get
9093                 Try
9094                     Return CType(Me(Me.tableProduct.DescriptionColumn),String)
9095                 Catch e As Global.System.InvalidCastException
9096                     Throw New Global.System.Data.StrongTypingException("The value for column 'Description' in table 'Product' is DBNull.", e)
9097                 End Try
9098             End Get
9099             Set
9100                 Me(Me.tableProduct.DescriptionColumn) = value
9101             End Set
9102         End Property
9103         
9104         <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
9105          Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0")> _
9106         Public Property CostPrice() As Decimal
9107             Get
9108                 Return CType(Me(Me.tableProduct.CostPriceColumn),Decimal)
9109             End Get
9110             Set
9111                 Me(Me.tableProduct.CostPriceColumn) = value
9112             End Set
9113         End Property
9114         
9115         <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
9116          Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0")> _
9117         Public Property SellingPrice() As Decimal
9118             Get
9119                 Return CType(Me(Me.tableProduct.SellingPriceColumn),Decimal)
9120             End Get
9121             Set
9122                 Me(Me.tableProduct.SellingPriceColumn) = value
9123             End Set
9124         End Property
9125         
9126         <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
9127          Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0")> _
9128         Public Property Discount() As Decimal
9129             Get
9130                 Return CType(Me(Me.tableProduct.DiscountColumn),Decimal)
9131             End Get
9132             Set
9133                 Me(Me.tableProduct.DiscountColumn) = value
9134             End Set
9135         End Property
9136         
9137         <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
9138          Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0")> _
9139         Public Property VAT() As Decimal
9140             Get
9141                 Return CType(Me(Me.tableProduct.VATColumn),Decimal)
9142             End Get
9143             Set
9144                 Me(Me.tableProduct.VATColumn) = value
9145             End Set
9146         End Property
9147         
9148         <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
9149          Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0")> _
9150         Public Property ReorderPoint() As Integer
9151             Get
9152                 Return CType(Me(Me.tableProduct.ReorderPointColumn),Integer)
9153             End Get
9154             Set
9155                 Me(Me.tableProduct.ReorderPointColumn) = value
9156             End Set
9157         End Property
9158         
9159         <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
9160          Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0")> _
9161         Public Property SubCategoryRow() As SubCategoryRow
9162             Get
9163                 Return CType(Me.GetParentRow(Me.Table.ParentRelations("FK_Product_SubCategory")),SubCategoryRow)
9164             End Get
9165             Set
9166                 Me.SetParentRow(value, Me.Table.ParentRelations("FK_Product_SubCategory"))
9167             End Set
9168         End Property
9169         
9170         <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
9171          Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0")> _
9172         Public Function IsDescriptionNull() As Boolean
9173             Return Me.IsNull(Me.tableProduct.DescriptionColumn)
9174         End Function
9175         
9176         <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
9177          Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0")> _
9178         Public Sub SetDescriptionNull()
9179             Me(Me.tableProduct.DescriptionColumn) = Global.System.Convert.DBNull
9180         End Sub
9181         
9182         <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
9183          Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0")> _
9184         Public Function GetInvoice_ProductRows() As Invoice_ProductRow()
9185             If (Me.Table.ChildRelations("FK_Invoice_Product_Product") Is Nothing) Then
9186                 Return New Invoice_ProductRow(-1) {}
9187             Else
9188                 Return CType(MyBase.GetChildRows(Me.Table.ChildRelations("FK_Invoice_Product_Product")),Invoice_ProductRow())
9189             End If
9190         End Function
9191         
9192         <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
9193          Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0")> _
9194         Public Function GetProduct_JoinRows() As Product_JoinRow()
9195             If (Me.Table.ChildRelations("FK_Product_Join_Product") Is Nothing) Then
9196                 Return New Product_JoinRow(-1) {}
9197             Else
9198                 Return CType(MyBase.GetChildRows(Me.Table.ChildRelations("FK_Product_Join_Product")),Product_JoinRow())
9199             End If
9200         End Function
9201         
9202         <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
9203          Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0")> _
9204         Public Function GetQuotation_JoinRows() As Quotation_JoinRow()
9205             If (Me.Table.ChildRelations("FK_Quotation_Join_Product") Is Nothing) Then
9206                 Return New Quotation_JoinRow(-1) {}
9207             Else
9208                 Return CType(MyBase.GetChildRows(Me.Table.ChildRelations("FK_Quotation_Join_Product")),Quotation_JoinRow())
9209             End If
9210         End Function
9211         
9212         <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
9213          Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0")> _
9214         Public Function GetStock_ProductRows() As Stock_ProductRow()
9215             If (Me.Table.ChildRelations("FK_Stock_Product_Product") Is Nothing) Then
9216                 Return New Stock_ProductRow(-1) {}
9217             Else
9218                 Return CType(MyBase.GetChildRows(Me.Table.ChildRelations("FK_Stock_Product_Product")),Stock_ProductRow())
9219             End If
9220         End Function
9221         
9222         <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
9223          Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0")> _
9224         Public Function GetTemp_StockRows() As Temp_StockRow()
9225             If (Me.Table.ChildRelations("FK_Temp_Stock_Product") Is Nothing) Then
9226                 Return New Temp_StockRow(-1) {}
9227             Else
9228                 Return CType(MyBase.GetChildRows(Me.Table.ChildRelations("FK_Temp_Stock_Product")),Temp_StockRow())
9229             End If
9230         End Function
9231     End Class
9232     
9233     '''<summary>
9234     '''Represents strongly named DataRow class.
9235     '''</summary>
9236     Partial Public Class Product_JoinRow
9237         Inherits Global.System.Data.DataRow
9238         
9239         Private tableProduct_Join As Product_JoinDataTable
9240         
9241         <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
9242          Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0")> _
9243         Friend Sub New(ByVal rb As Global.System.Data.DataRowBuilder)
9244             MyBase.New(rb)
9245             Me.tableProduct_Join = CType(Me.Table,Product_JoinDataTable)
9246         End Sub
9247         
9248         <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
9249          Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0")> _
9250         Public Property Id() As Integer
9251             Get
9252                 Return CType(Me(Me.tableProduct_Join.IdColumn),Integer)
9253             End Get
9254             Set
9255                 Me(Me.tableProduct_Join.IdColumn) = value
9256             End Set
9257         End Property
9258         
9259         <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
9260          Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0")> _
9261         Public Property ProductID() As Integer
9262             Get
9263                 Return CType(Me(Me.tableProduct_Join.ProductIDColumn),Integer)
9264             End Get
9265             Set
9266                 Me(Me.tableProduct_Join.ProductIDColumn) = value
9267             End Set
9268         End Property
9269         
9270         <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
9271          Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0")> _
9272         Public Property Photo() As Byte()
9273             Get
9274                 Return CType(Me(Me.tableProduct_Join.PhotoColumn),Byte())
9275             End Get
9276             Set
9277                 Me(Me.tableProduct_Join.PhotoColumn) = value
9278             End Set
9279         End Property
9280         
9281         <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
9282          Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0")> _
9283         Public Property ProductRow() As ProductRow
9284             Get
9285                 Return CType(Me.GetParentRow(Me.Table.ParentRelations("FK_Product_Join_Product")),ProductRow)
9286             End Get
9287             Set
9288                 Me.SetParentRow(value, Me.Table.ParentRelations("FK_Product_Join_Product"))
9289             End Set
9290         End Property
9291     End Class
9292     
9293     '''<summary>
9294     '''Represents strongly named DataRow class.
9295     '''</summary>
9296     Partial Public Class QuotationRow
9297         Inherits Global.System.Data.DataRow
9298         
9299         Private tableQuotation As QuotationDataTable
9300         
9301         <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
9302          Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0")> _
9303         Friend Sub New(ByVal rb As Global.System.Data.DataRowBuilder)
9304             MyBase.New(rb)
9305             Me.tableQuotation = CType(Me.Table,QuotationDataTable)
9306         End Sub
9307         
9308         <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
9309          Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0")> _
9310         Public Property Q_ID() As Integer
9311             Get
9312                 Return CType(Me(Me.tableQuotation.Q_IDColumn),Integer)
9313             End Get
9314             Set
9315                 Me(Me.tableQuotation.Q_IDColumn) = value
9316             End Set
9317         End Property
9318         
9319         <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
9320          Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0")> _
9321         Public Property QuotationNo() As String
9322             Get
9323                 Return CType(Me(Me.tableQuotation.QuotationNoColumn),String)
9324             End Get
9325             Set
9326                 Me(Me.tableQuotation.QuotationNoColumn) = value
9327             End Set
9328         End Property
9329         
9330         <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
9331          Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0")> _
9332         Public Property _Date() As Date
9333             Get
9334                 Return CType(Me(Me.tableQuotation.DateColumn),Date)
9335             End Get
9336             Set
9337                 Me(Me.tableQuotation.DateColumn) = value
9338             End Set
9339         End Property
9340         
9341         <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
9342          Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0")> _
9343         Public Property CustomerID() As Integer
9344             Get
9345                 Return CType(Me(Me.tableQuotation.CustomerIDColumn),Integer)
9346             End Get
9347             Set
9348                 Me(Me.tableQuotation.CustomerIDColumn) = value
9349             End Set
9350         End Property
9351         
9352         <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
9353          Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0")> _
9354         Public Property GrandTotal() As Decimal
9355             Get
9356                 Return CType(Me(Me.tableQuotation.GrandTotalColumn),Decimal)
9357             End Get
9358             Set
9359                 Me(Me.tableQuotation.GrandTotalColumn) = value
9360             End Set
9361         End Property
9362         
9363         <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
9364          Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0")> _
9365         Public Property Remarks() As String
9366             Get
9367                 Try
9368                     Return CType(Me(Me.tableQuotation.RemarksColumn),String)
9369                 Catch e As Global.System.InvalidCastException
9370                     Throw New Global.System.Data.StrongTypingException("The value for column 'Remarks' in table 'Quotation' is DBNull.", e)
9371                 End Try
9372             End Get
9373             Set
9374                 Me(Me.tableQuotation.RemarksColumn) = value
9375             End Set
9376         End Property
9377         
9378         <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
9379          Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0")> _
9380         Public Property CustomerRow() As CustomerRow
9381             Get
9382                 Return CType(Me.GetParentRow(Me.Table.ParentRelations("FK_Quotation_Customer")),CustomerRow)
9383             End Get
9384             Set
9385                 Me.SetParentRow(value, Me.Table.ParentRelations("FK_Quotation_Customer"))
9386             End Set
9387         End Property
9388         
9389         <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
9390          Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0")> _
9391         Public Function IsRemarksNull() As Boolean
9392             Return Me.IsNull(Me.tableQuotation.RemarksColumn)
9393         End Function
9394         
9395         <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
9396          Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0")> _
9397         Public Sub SetRemarksNull()
9398             Me(Me.tableQuotation.RemarksColumn) = Global.System.Convert.DBNull
9399         End Sub
9400         
9401         <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
9402          Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0")> _
9403         Public Function GetQuotation_JoinRows() As Quotation_JoinRow()
9404             If (Me.Table.ChildRelations("FK_Quotation_Join_Quotation") Is Nothing) Then
9405                 Return New Quotation_JoinRow(-1) {}
9406             Else
9407                 Return CType(MyBase.GetChildRows(Me.Table.ChildRelations("FK_Quotation_Join_Quotation")),Quotation_JoinRow())
9408             End If
9409         End Function
9410     End Class
9411     
9412     '''<summary>
9413     '''Represents strongly named DataRow class.
9414     '''</summary>
9415     Partial Public Class Quotation_JoinRow
9416         Inherits Global.System.Data.DataRow
9417         
9418         Private tableQuotation_Join As Quotation_JoinDataTable
9419         
9420         <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
9421          Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0")> _
9422         Friend Sub New(ByVal rb As Global.System.Data.DataRowBuilder)
9423             MyBase.New(rb)
9424             Me.tableQuotation_Join = CType(Me.Table,Quotation_JoinDataTable)
9425         End Sub
9426         
9427         <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
9428          Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0")> _
9429         Public Property QJ_ID() As Integer
9430             Get
9431                 Return CType(Me(Me.tableQuotation_Join.QJ_IDColumn),Integer)
9432             End Get
9433             Set
9434                 Me(Me.tableQuotation_Join.QJ_IDColumn) = value
9435             End Set
9436         End Property
9437         
9438         <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
9439          Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0")> _
9440         Public Property QuotationID() As Integer
9441             Get
9442                 Return CType(Me(Me.tableQuotation_Join.QuotationIDColumn),Integer)
9443             End Get
9444             Set
9445                 Me(Me.tableQuotation_Join.QuotationIDColumn) = value
9446             End Set
9447         End Property
9448         
9449         <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
9450          Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0")> _
9451         Public Property ProductID() As Integer
9452             Get
9453                 Return CType(Me(Me.tableQuotation_Join.ProductIDColumn),Integer)
9454             End Get
9455             Set
9456                 Me(Me.tableQuotation_Join.ProductIDColumn) = value
9457             End Set
9458         End Property
9459         
9460         <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
9461          Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0")> _
9462         Public Property Cost() As Decimal
9463             Get
9464                 Return CType(Me(Me.tableQuotation_Join.CostColumn),Decimal)
9465             End Get
9466             Set
9467                 Me(Me.tableQuotation_Join.CostColumn) = value
9468             End Set
9469         End Property
9470         
9471         <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
9472          Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0")> _
9473         Public Property Qty() As Integer
9474             Get
9475                 Return CType(Me(Me.tableQuotation_Join.QtyColumn),Integer)
9476             End Get
9477             Set
9478                 Me(Me.tableQuotation_Join.QtyColumn) = value
9479             End Set
9480         End Property
9481         
9482         <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
9483          Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0")> _
9484         Public Property Amount() As Decimal
9485             Get
9486                 Return CType(Me(Me.tableQuotation_Join.AmountColumn),Decimal)
9487             End Get
9488             Set
9489                 Me(Me.tableQuotation_Join.AmountColumn) = value
9490             End Set
9491         End Property
9492         
9493         <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
9494          Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0")> _
9495         Public Property DiscountPer() As Decimal
9496             Get
9497                 Return CType(Me(Me.tableQuotation_Join.DiscountPerColumn),Decimal)
9498             End Get
9499             Set
9500                 Me(Me.tableQuotation_Join.DiscountPerColumn) = value
9501             End Set
9502         End Property
9503         
9504         <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
9505          Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0")> _
9506         Public Property Discount() As Decimal
9507             Get
9508                 Return CType(Me(Me.tableQuotation_Join.DiscountColumn),Decimal)
9509             End Get
9510             Set
9511                 Me(Me.tableQuotation_Join.DiscountColumn) = value
9512             End Set
9513         End Property
9514         
9515         <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
9516          Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0")> _
9517         Public Property VATPer() As Decimal
9518             Get
9519                 Return CType(Me(Me.tableQuotation_Join.VATPerColumn),Decimal)
9520             End Get
9521             Set
9522                 Me(Me.tableQuotation_Join.VATPerColumn) = value
9523             End Set
9524         End Property
9525         
9526         <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
9527          Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0")> _
9528         Public Property VAT() As Decimal
9529             Get
9530                 Return CType(Me(Me.tableQuotation_Join.VATColumn),Decimal)
9531             End Get
9532             Set
9533                 Me(Me.tableQuotation_Join.VATColumn) = value
9534             End Set
9535         End Property
9536         
9537         <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
9538          Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0")> _
9539         Public Property TotalAmount() As Decimal
9540             Get
9541                 Return CType(Me(Me.tableQuotation_Join.TotalAmountColumn),Decimal)
9542             End Get
9543             Set
9544                 Me(Me.tableQuotation_Join.TotalAmountColumn) = value
9545             End Set
9546         End Property
9547         
9548         <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
9549          Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0")> _
9550         Public Property ProductRow() As ProductRow
9551             Get
9552                 Return CType(Me.GetParentRow(Me.Table.ParentRelations("FK_Quotation_Join_Product")),ProductRow)
9553             End Get
9554             Set
9555                 Me.SetParentRow(value, Me.Table.ParentRelations("FK_Quotation_Join_Product"))
9556             End Set
9557         End Property
9558         
9559         <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
9560          Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0")> _
9561         Public Property QuotationRow() As QuotationRow
9562             Get
9563                 Return CType(Me.GetParentRow(Me.Table.ParentRelations("FK_Quotation_Join_Quotation")),QuotationRow)
9564             End Get
9565             Set
9566                 Me.SetParentRow(value, Me.Table.ParentRelations("FK_Quotation_Join_Quotation"))
9567             End Set
9568         End Property
9569     End Class
9570     
9571     '''<summary>
9572     '''Represents strongly named DataRow class.
9573     '''</summary>
9574     Partial Public Class RegistrationRow
9575         Inherits Global.System.Data.DataRow
9576         
9577         Private tableRegistration As RegistrationDataTable
9578         
9579         <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
9580          Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0")> _
9581         Friend Sub New(ByVal rb As Global.System.Data.DataRowBuilder)
9582             MyBase.New(rb)
9583             Me.tableRegistration = CType(Me.Table,RegistrationDataTable)
9584         End Sub
9585         
9586         <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
9587          Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0")> _
9588         Public Property UserID() As String
9589             Get
9590                 Return CType(Me(Me.tableRegistration.UserIDColumn),String)
9591             End Get
9592             Set
9593                 Me(Me.tableRegistration.UserIDColumn) = value
9594             End Set
9595         End Property
9596         
9597         <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
9598          Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0")> _
9599         Public Property UserType() As String
9600             Get
9601                 Return CType(Me(Me.tableRegistration.UserTypeColumn),String)
9602             End Get
9603             Set
9604                 Me(Me.tableRegistration.UserTypeColumn) = value
9605             End Set
9606         End Property
9607         
9608         <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
9609          Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0")> _
9610         Public Property Password() As String
9611             Get
9612                 Return CType(Me(Me.tableRegistration.PasswordColumn),String)
9613             End Get
9614             Set
9615                 Me(Me.tableRegistration.PasswordColumn) = value
9616             End Set
9617         End Property
9618         
9619         <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
9620          Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0")> _
9621         Public Property Name() As String
9622             Get
9623                 Return CType(Me(Me.tableRegistration.NameColumn),String)
9624             End Get
9625             Set
9626                 Me(Me.tableRegistration.NameColumn) = value
9627             End Set
9628         End Property
9629         
9630         <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
9631          Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0")> _
9632         Public Property ContactNo() As String
9633             Get
9634                 Return CType(Me(Me.tableRegistration.ContactNoColumn),String)
9635             End Get
9636             Set
9637                 Me(Me.tableRegistration.ContactNoColumn) = value
9638             End Set
9639         End Property
9640         
9641         <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
9642          Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0")> _
9643         Public Property EmailID() As String
9644             Get
9645                 Try
9646                     Return CType(Me(Me.tableRegistration.EmailIDColumn),String)
9647                 Catch e As Global.System.InvalidCastException
9648                     Throw New Global.System.Data.StrongTypingException("The value for column 'EmailID' in table 'Registration' is DBNull.", e)
9649                 End Try
9650             End Get
9651             Set
9652                 Me(Me.tableRegistration.EmailIDColumn) = value
9653             End Set
9654         End Property
9655         
9656         <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
9657          Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0")> _
9658         Public Property JoiningDate() As Date
9659             Get
9660                 Try
9661                     Return CType(Me(Me.tableRegistration.JoiningDateColumn),Date)
9662                 Catch e As Global.System.InvalidCastException
9663                     Throw New Global.System.Data.StrongTypingException("The value for column 'JoiningDate' in table 'Registration' is DBNull.", e)
9664                 End Try
9665             End Get
9666             Set
9667                 Me(Me.tableRegistration.JoiningDateColumn) = value
9668             End Set
9669         End Property
9670         
9671         <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
9672          Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0")> _
9673         Public Function IsEmailIDNull() As Boolean
9674             Return Me.IsNull(Me.tableRegistration.EmailIDColumn)
9675         End Function
9676         
9677         <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
9678          Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0")> _
9679         Public Sub SetEmailIDNull()
9680             Me(Me.tableRegistration.EmailIDColumn) = Global.System.Convert.DBNull
9681         End Sub
9682         
9683         <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
9684          Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0")> _
9685         Public Function IsJoiningDateNull() As Boolean
9686             Return Me.IsNull(Me.tableRegistration.JoiningDateColumn)
9687         End Function
9688         
9689         <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
9690          Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0")> _
9691         Public Sub SetJoiningDateNull()
9692             Me(Me.tableRegistration.JoiningDateColumn) = Global.System.Convert.DBNull
9693         End Sub
9694         
9695         <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
9696          Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0")> _
9697         Public Function GetLogsRows() As LogsRow()
9698             If (Me.Table.ChildRelations("FK_Logs_Registration") Is Nothing) Then
9699                 Return New LogsRow(-1) {}
9700             Else
9701                 Return CType(MyBase.GetChildRows(Me.Table.ChildRelations("FK_Logs_Registration")),LogsRow())
9702             End If
9703         End Function
9704     End Class
9705     
9706     '''<summary>
9707     '''Represents strongly named DataRow class.
9708     '''</summary>
9709     Partial Public Class ServiceRow
9710         Inherits Global.System.Data.DataRow
9711         
9712         Private tableService As ServiceDataTable
9713         
9714         <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
9715          Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0")> _
9716         Friend Sub New(ByVal rb As Global.System.Data.DataRowBuilder)
9717             MyBase.New(rb)
9718             Me.tableService = CType(Me.Table,ServiceDataTable)
9719         End Sub
9720         
9721         <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
9722          Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0")> _
9723         Public Property S_ID() As Integer
9724             Get
9725                 Return CType(Me(Me.tableService.S_IDColumn),Integer)
9726             End Get
9727             Set
9728                 Me(Me.tableService.S_IDColumn) = value
9729             End Set
9730         End Property
9731         
9732         <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
9733          Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0")> _
9734         Public Property ServiceCode() As String
9735             Get
9736                 Return CType(Me(Me.tableService.ServiceCodeColumn),String)
9737             End Get
9738             Set
9739                 Me(Me.tableService.ServiceCodeColumn) = value
9740             End Set
9741         End Property
9742         
9743         <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
9744          Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0")> _
9745         Public Property CustomerID() As Integer
9746             Get
9747                 Return CType(Me(Me.tableService.CustomerIDColumn),Integer)
9748             End Get
9749             Set
9750                 Me(Me.tableService.CustomerIDColumn) = value
9751             End Set
9752         End Property
9753         
9754         <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
9755          Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0")> _
9756         Public Property ServiceType() As String
9757             Get
9758                 Try
9759                     Return CType(Me(Me.tableService.ServiceTypeColumn),String)
9760                 Catch e As Global.System.InvalidCastException
9761                     Throw New Global.System.Data.StrongTypingException("The value for column 'ServiceType' in table 'Service' is DBNull.", e)
9762                 End Try
9763             End Get
9764             Set
9765                 Me(Me.tableService.ServiceTypeColumn) = value
9766             End Set
9767         End Property
9768         
9769         <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
9770          Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0")> _
9771         Public Property ServiceCreationDate() As Date
9772             Get
9773                 Return CType(Me(Me.tableService.ServiceCreationDateColumn),Date)
9774             End Get
9775             Set
9776                 Me(Me.tableService.ServiceCreationDateColumn) = value
9777             End Set
9778         End Property
9779         
9780         <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
9781          Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0")> _
9782         Public Property ItemDescription() As String
9783             Get
9784                 Return CType(Me(Me.tableService.ItemDescriptionColumn),String)
9785             End Get
9786             Set
9787                 Me(Me.tableService.ItemDescriptionColumn) = value
9788             End Set
9789         End Property
9790         
9791         <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
9792          Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0")> _
9793         Public Property ProblemDescription() As String
9794             Get
9795                 Try
9796                     Return CType(Me(Me.tableService.ProblemDescriptionColumn),String)
9797                 Catch e As Global.System.InvalidCastException
9798                     Throw New Global.System.Data.StrongTypingException("The value for column 'ProblemDescription' in table 'Service' is DBNull.", e)
9799                 End Try
9800             End Get
9801             Set
9802                 Me(Me.tableService.ProblemDescriptionColumn) = value
9803             End Set
9804         End Property
9805         
9806         <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
9807          Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0")> _
9808         Public Property ChargesQuote() As Decimal
9809             Get
9810                 Return CType(Me(Me.tableService.ChargesQuoteColumn),Decimal)
9811             End Get
9812             Set
9813                 Me(Me.tableService.ChargesQuoteColumn) = value
9814             End Set
9815         End Property
9816         
9817         <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
9818          Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0")> _
9819         Public Property AdvanceDeposit() As Decimal
9820             Get
9821                 Return CType(Me(Me.tableService.AdvanceDepositColumn),Decimal)
9822             End Get
9823             Set
9824                 Me(Me.tableService.AdvanceDepositColumn) = value
9825             End Set
9826         End Property
9827         
9828         <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
9829          Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0")> _
9830         Public Property EstimatedRepairDate() As Date
9831             Get
9832                 Return CType(Me(Me.tableService.EstimatedRepairDateColumn),Date)
9833             End Get
9834             Set
9835                 Me(Me.tableService.EstimatedRepairDateColumn) = value
9836             End Set
9837         End Property
9838         
9839         <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
9840          Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0")> _
9841         Public Property Remarks() As String
9842             Get
9843                 Try
9844                     Return CType(Me(Me.tableService.RemarksColumn),String)
9845                 Catch e As Global.System.InvalidCastException
9846                     Throw New Global.System.Data.StrongTypingException("The value for column 'Remarks' in table 'Service' is DBNull.", e)
9847                 End Try
9848             End Get
9849             Set
9850                 Me(Me.tableService.RemarksColumn) = value
9851             End Set
9852         End Property
9853         
9854         <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
9855          Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0")> _
9856         Public Property Status() As String
9857             Get
9858                 Return CType(Me(Me.tableService.StatusColumn),String)
9859             End Get
9860             Set
9861                 Me(Me.tableService.StatusColumn) = value
9862             End Set
9863         End Property
9864         
9865         <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
9866          Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0")> _
9867         Public Property CustomerRow() As CustomerRow
9868             Get
9869                 Return CType(Me.GetParentRow(Me.Table.ParentRelations("FK_Service_Customer")),CustomerRow)
9870             End Get
9871             Set
9872                 Me.SetParentRow(value, Me.Table.ParentRelations("FK_Service_Customer"))
9873             End Set
9874         End Property
9875         
9876         <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
9877          Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0")> _
9878         Public Function IsServiceTypeNull() As Boolean
9879             Return Me.IsNull(Me.tableService.ServiceTypeColumn)
9880         End Function
9881         
9882         <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
9883          Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0")> _
9884         Public Sub SetServiceTypeNull()
9885             Me(Me.tableService.ServiceTypeColumn) = Global.System.Convert.DBNull
9886         End Sub
9887         
9888         <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
9889          Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0")> _
9890         Public Function IsProblemDescriptionNull() As Boolean
9891             Return Me.IsNull(Me.tableService.ProblemDescriptionColumn)
9892         End Function
9893         
9894         <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
9895          Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0")> _
9896         Public Sub SetProblemDescriptionNull()
9897             Me(Me.tableService.ProblemDescriptionColumn) = Global.System.Convert.DBNull
9898         End Sub
9899         
9900         <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
9901          Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0")> _
9902         Public Function IsRemarksNull() As Boolean
9903             Return Me.IsNull(Me.tableService.RemarksColumn)
9904         End Function
9905         
9906         <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
9907          Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0")> _
9908         Public Sub SetRemarksNull()
9909             Me(Me.tableService.RemarksColumn) = Global.System.Convert.DBNull
9910         End Sub
9911     End Class
9912     
9913     '''<summary>
9914     '''Represents strongly named DataRow class.
9915     '''</summary>
9916     Partial Public Class StockRow
9917         Inherits Global.System.Data.DataRow
9918         
9919         Private tableStock As StockDataTable
9920         
9921         <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
9922          Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0")> _
9923         Friend Sub New(ByVal rb As Global.System.Data.DataRowBuilder)
9924             MyBase.New(rb)
9925             Me.tableStock = CType(Me.Table,StockDataTable)
9926         End Sub
9927         
9928         <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
9929          Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0")> _
9930         Public Property ST_ID() As Integer
9931             Get
9932                 Return CType(Me(Me.tableStock.ST_IDColumn),Integer)
9933             End Get
9934             Set
9935                 Me(Me.tableStock.ST_IDColumn) = value
9936             End Set
9937         End Property
9938         
9939         <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
9940          Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0")> _
9941         Public Property Stock_ID() As String
9942             Get
9943                 Return CType(Me(Me.tableStock.Stock_IDColumn),String)
9944             End Get
9945             Set
9946                 Me(Me.tableStock.Stock_IDColumn) = value
9947             End Set
9948         End Property
9949         
9950         <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
9951          Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0")> _
9952         Public Property _Date() As Date
9953             Get
9954                 Return CType(Me(Me.tableStock.DateColumn),Date)
9955             End Get
9956             Set
9957                 Me(Me.tableStock.DateColumn) = value
9958             End Set
9959         End Property
9960         
9961         <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
9962          Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0")> _
9963         Public Property SupplierID() As Integer
9964             Get
9965                 Return CType(Me(Me.tableStock.SupplierIDColumn),Integer)
9966             End Get
9967             Set
9968                 Me(Me.tableStock.SupplierIDColumn) = value
9969             End Set
9970         End Property
9971         
9972         <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
9973          Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0")> _
9974         Public Property GrandTotal() As Decimal
9975             Get
9976                 Return CType(Me(Me.tableStock.GrandTotalColumn),Decimal)
9977             End Get
9978             Set
9979                 Me(Me.tableStock.GrandTotalColumn) = value
9980             End Set
9981         End Property
9982         
9983         <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
9984          Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0")> _
9985         Public Property TotalPayment() As Decimal
9986             Get
9987                 Return CType(Me(Me.tableStock.TotalPaymentColumn),Decimal)
9988             End Get
9989             Set
9990                 Me(Me.tableStock.TotalPaymentColumn) = value
9991             End Set
9992         End Property
9993         
9994         <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
9995          Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0")> _
9996         Public Property PaymentDue() As Decimal
9997             Get
9998                 Return CType(Me(Me.tableStock.PaymentDueColumn),Decimal)
9999             End Get
10000             Set
10001                 Me(Me.tableStock.PaymentDueColumn) = value
10002             End Set
10003         End Property
10004         
10005         <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
10006          Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0")> _
10007         Public Property Remarks() As String
10008             Get
10009                 Try
10010                     Return CType(Me(Me.tableStock.RemarksColumn),String)
10011                 Catch e As Global.System.InvalidCastException
10012                     Throw New Global.System.Data.StrongTypingException("The value for column 'Remarks' in table 'Stock' is DBNull.", e)
10013                 End Try
10014             End Get
10015             Set
10016                 Me(Me.tableStock.RemarksColumn) = value
10017             End Set
10018         End Property
10019         
10020         <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
10021          Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0")> _
10022         Public Property SupplierRow() As SupplierRow
10023             Get
10024                 Return CType(Me.GetParentRow(Me.Table.ParentRelations("FK_Stock_Supplier")),SupplierRow)
10025             End Get
10026             Set
10027                 Me.SetParentRow(value, Me.Table.ParentRelations("FK_Stock_Supplier"))
10028             End Set
10029         End Property
10030         
10031         <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
10032          Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0")> _
10033         Public Function IsRemarksNull() As Boolean
10034             Return Me.IsNull(Me.tableStock.RemarksColumn)
10035         End Function
10036         
10037         <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
10038          Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0")> _
10039         Public Sub SetRemarksNull()
10040             Me(Me.tableStock.RemarksColumn) = Global.System.Convert.DBNull
10041         End Sub
10042         
10043         <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
10044          Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0")> _
10045         Public Function GetStock_ProductRows() As Stock_ProductRow()
10046             If (Me.Table.ChildRelations("FK_Stock_Product_Stock") Is Nothing) Then
10047                 Return New Stock_ProductRow(-1) {}
10048             Else
10049                 Return CType(MyBase.GetChildRows(Me.Table.ChildRelations("FK_Stock_Product_Stock")),Stock_ProductRow())
10050             End If
10051         End Function
10052     End Class
10053     
10054     '''<summary>
10055     '''Represents strongly named DataRow class.
10056     '''</summary>
10057     Partial Public Class Stock_ProductRow
10058         Inherits Global.System.Data.DataRow
10059         
10060         Private tableStock_Product As Stock_ProductDataTable
10061         
10062         <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
10063          Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0")> _
10064         Friend Sub New(ByVal rb As Global.System.Data.DataRowBuilder)
10065             MyBase.New(rb)
10066             Me.tableStock_Product = CType(Me.Table,Stock_ProductDataTable)
10067         End Sub
10068         
10069         <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
10070          Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0")> _
10071         Public Property SP_ID() As Integer
10072             Get
10073                 Return CType(Me(Me.tableStock_Product.SP_IDColumn),Integer)
10074             End Get
10075             Set
10076                 Me(Me.tableStock_Product.SP_IDColumn) = value
10077             End Set
10078         End Property
10079         
10080         <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
10081          Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0")> _
10082         Public Property StockID() As Integer
10083             Get
10084                 Return CType(Me(Me.tableStock_Product.StockIDColumn),Integer)
10085             End Get
10086             Set
10087                 Me(Me.tableStock_Product.StockIDColumn) = value
10088             End Set
10089         End Property
10090         
10091         <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
10092          Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0")> _
10093         Public Property ProductID() As Integer
10094             Get
10095                 Return CType(Me(Me.tableStock_Product.ProductIDColumn),Integer)
10096             End Get
10097             Set
10098                 Me(Me.tableStock_Product.ProductIDColumn) = value
10099             End Set
10100         End Property
10101         
10102         <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
10103          Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0")> _
10104         Public Property Qty() As Integer
10105             Get
10106                 Return CType(Me(Me.tableStock_Product.QtyColumn),Integer)
10107             End Get
10108             Set
10109                 Me(Me.tableStock_Product.QtyColumn) = value
10110             End Set
10111         End Property
10112         
10113         <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
10114          Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0")> _
10115         Public Property Price() As Decimal
10116             Get
10117                 Return CType(Me(Me.tableStock_Product.PriceColumn),Decimal)
10118             End Get
10119             Set
10120                 Me(Me.tableStock_Product.PriceColumn) = value
10121             End Set
10122         End Property
10123         
10124         <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
10125          Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0")> _
10126         Public Property TotalAmount() As Decimal
10127             Get
10128                 Return CType(Me(Me.tableStock_Product.TotalAmountColumn),Decimal)
10129             End Get
10130             Set
10131                 Me(Me.tableStock_Product.TotalAmountColumn) = value
10132             End Set
10133         End Property
10134         
10135         <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
10136          Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0")> _
10137         Public Property ProductRow() As ProductRow
10138             Get
10139                 Return CType(Me.GetParentRow(Me.Table.ParentRelations("FK_Stock_Product_Product")),ProductRow)
10140             End Get
10141             Set
10142                 Me.SetParentRow(value, Me.Table.ParentRelations("FK_Stock_Product_Product"))
10143             End Set
10144         End Property
10145         
10146         <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
10147          Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0")> _
10148         Public Property StockRow() As StockRow
10149             Get
10150                 Return CType(Me.GetParentRow(Me.Table.ParentRelations("FK_Stock_Product_Stock")),StockRow)
10151             End Get
10152             Set
10153                 Me.SetParentRow(value, Me.Table.ParentRelations("FK_Stock_Product_Stock"))
10154             End Set
10155         End Property
10156     End Class
10157     
10158     '''<summary>
10159     '''Represents strongly named DataRow class.
10160     '''</summary>
10161     Partial Public Class SubCategoryRow
10162         Inherits Global.System.Data.DataRow
10163         
10164         Private tableSubCategory As SubCategoryDataTable
10165         
10166         <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
10167          Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0")> _
10168         Friend Sub New(ByVal rb As Global.System.Data.DataRowBuilder)
10169             MyBase.New(rb)
10170             Me.tableSubCategory = CType(Me.Table,SubCategoryDataTable)
10171         End Sub
10172         
10173         <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
10174          Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0")> _
10175         Public Property ID() As Integer
10176             Get
10177                 Return CType(Me(Me.tableSubCategory.IDColumn),Integer)
10178             End Get
10179             Set
10180                 Me(Me.tableSubCategory.IDColumn) = value
10181             End Set
10182         End Property
10183         
10184         <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
10185          Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0")> _
10186         Public Property SubCategoryName() As String
10187             Get
10188                 Return CType(Me(Me.tableSubCategory.SubCategoryNameColumn),String)
10189             End Get
10190             Set
10191                 Me(Me.tableSubCategory.SubCategoryNameColumn) = value
10192             End Set
10193         End Property
10194         
10195         <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
10196          Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0")> _
10197         Public Property Category() As String
10198             Get
10199                 Return CType(Me(Me.tableSubCategory.CategoryColumn),String)
10200             End Get
10201             Set
10202                 Me(Me.tableSubCategory.CategoryColumn) = value
10203             End Set
10204         End Property
10205         
10206         <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
10207          Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0")> _
10208         Public Property CategoryRow() As CategoryRow
10209             Get
10210                 Return CType(Me.GetParentRow(Me.Table.ParentRelations("FK_SubCategory_Category")),CategoryRow)
10211             End Get
10212             Set
10213                 Me.SetParentRow(value, Me.Table.ParentRelations("FK_SubCategory_Category"))
10214             End Set
10215         End Property
10216         
10217         <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
10218          Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0")> _
10219         Public Function GetProductRows() As ProductRow()
10220             If (Me.Table.ChildRelations("FK_Product_SubCategory") Is Nothing) Then
10221                 Return New ProductRow(-1) {}
10222             Else
10223                 Return CType(MyBase.GetChildRows(Me.Table.ChildRelations("FK_Product_SubCategory")),ProductRow())
10224             End If
10225         End Function
10226     End Class
10227     
10228     '''<summary>
10229     '''Represents strongly named DataRow class.
10230     '''</summary>
10231     Partial Public Class SupplierRow
10232         Inherits Global.System.Data.DataRow
10233         
10234         Private tableSupplier As SupplierDataTable
10235         
10236         <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
10237          Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0")> _
10238         Friend Sub New(ByVal rb As Global.System.Data.DataRowBuilder)
10239             MyBase.New(rb)
10240             Me.tableSupplier = CType(Me.Table,SupplierDataTable)
10241         End Sub
10242         
10243         <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
10244          Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0")> _
10245         Public Property ID() As Integer
10246             Get
10247                 Return CType(Me(Me.tableSupplier.IDColumn),Integer)
10248             End Get
10249             Set
10250                 Me(Me.tableSupplier.IDColumn) = value
10251             End Set
10252         End Property
10253         
10254         <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
10255          Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0")> _
10256         Public Property SupplierID() As String
10257             Get
10258                 Return CType(Me(Me.tableSupplier.SupplierIDColumn),String)
10259             End Get
10260             Set
10261                 Me(Me.tableSupplier.SupplierIDColumn) = value
10262             End Set
10263         End Property
10264         
10265         <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
10266          Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0")> _
10267         Public Property Name() As String
10268             Get
10269                 Return CType(Me(Me.tableSupplier.NameColumn),String)
10270             End Get
10271             Set
10272                 Me(Me.tableSupplier.NameColumn) = value
10273             End Set
10274         End Property
10275         
10276         <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
10277          Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0")> _
10278         Public Property Address() As String
10279             Get
10280                 Return CType(Me(Me.tableSupplier.AddressColumn),String)
10281             End Get
10282             Set
10283                 Me(Me.tableSupplier.AddressColumn) = value
10284             End Set
10285         End Property
10286         
10287         <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
10288          Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0")> _
10289         Public Property City() As String
10290             Get
10291                 Return CType(Me(Me.tableSupplier.CityColumn),String)
10292             End Get
10293             Set
10294                 Me(Me.tableSupplier.CityColumn) = value
10295             End Set
10296         End Property
10297         
10298         <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
10299          Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0")> _
10300         Public Property State() As String
10301             Get
10302                 Return CType(Me(Me.tableSupplier.StateColumn),String)
10303             End Get
10304             Set
10305                 Me(Me.tableSupplier.StateColumn) = value
10306             End Set
10307         End Property
10308         
10309         <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
10310          Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0")> _
10311         Public Property ZipCode() As String
10312             Get
10313                 Try
10314                     Return CType(Me(Me.tableSupplier.ZipCodeColumn),String)
10315                 Catch e As Global.System.InvalidCastException
10316                     Throw New Global.System.Data.StrongTypingException("The value for column 'ZipCode' in table 'Supplier' is DBNull.", e)
10317                 End Try
10318             End Get
10319             Set
10320                 Me(Me.tableSupplier.ZipCodeColumn) = value
10321             End Set
10322         End Property
10323         
10324         <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
10325          Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0")> _
10326         Public Property ContactNo() As String
10327             Get
10328                 Return CType(Me(Me.tableSupplier.ContactNoColumn),String)
10329             End Get
10330             Set
10331                 Me(Me.tableSupplier.ContactNoColumn) = value
10332             End Set
10333         End Property
10334         
10335         <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
10336          Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0")> _
10337         Public Property EmailID() As String
10338             Get
10339                 Try
10340                     Return CType(Me(Me.tableSupplier.EmailIDColumn),String)
10341                 Catch e As Global.System.InvalidCastException
10342                     Throw New Global.System.Data.StrongTypingException("The value for column 'EmailID' in table 'Supplier' is DBNull.", e)
10343                 End Try
10344             End Get
10345             Set
10346                 Me(Me.tableSupplier.EmailIDColumn) = value
10347             End Set
10348         End Property
10349         
10350         <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
10351          Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0")> _
10352         Public Property Remarks() As String
10353             Get
10354                 Try
10355                     Return CType(Me(Me.tableSupplier.RemarksColumn),String)
10356                 Catch e As Global.System.InvalidCastException
10357                     Throw New Global.System.Data.StrongTypingException("The value for column 'Remarks' in table 'Supplier' is DBNull.", e)
10358                 End Try
10359             End Get
10360             Set
10361                 Me(Me.tableSupplier.RemarksColumn) = value
10362             End Set
10363         End Property
10364         
10365         <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
10366          Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0")> _
10367         Public Function IsZipCodeNull() As Boolean
10368             Return Me.IsNull(Me.tableSupplier.ZipCodeColumn)
10369         End Function
10370         
10371         <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
10372          Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0")> _
10373         Public Sub SetZipCodeNull()
10374             Me(Me.tableSupplier.ZipCodeColumn) = Global.System.Convert.DBNull
10375         End Sub
10376         
10377         <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
10378          Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0")> _
10379         Public Function IsEmailIDNull() As Boolean
10380             Return Me.IsNull(Me.tableSupplier.EmailIDColumn)
10381         End Function
10382         
10383         <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
10384          Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0")> _
10385         Public Sub SetEmailIDNull()
10386             Me(Me.tableSupplier.EmailIDColumn) = Global.System.Convert.DBNull
10387         End Sub
10388         
10389         <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
10390          Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0")> _
10391         Public Function IsRemarksNull() As Boolean
10392             Return Me.IsNull(Me.tableSupplier.RemarksColumn)
10393         End Function
10394         
10395         <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
10396          Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0")> _
10397         Public Sub SetRemarksNull()
10398             Me(Me.tableSupplier.RemarksColumn) = Global.System.Convert.DBNull
10399         End Sub
10400         
10401         <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
10402          Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0")> _
10403         Public Function GetStockRows() As StockRow()
10404             If (Me.Table.ChildRelations("FK_Stock_Supplier") Is Nothing) Then
10405                 Return New StockRow(-1) {}
10406             Else
10407                 Return CType(MyBase.GetChildRows(Me.Table.ChildRelations("FK_Stock_Supplier")),StockRow())
10408             End If
10409         End Function
10410     End Class
10411     
10412     '''<summary>
10413     '''Represents strongly named DataRow class.
10414     '''</summary>
10415     Partial Public Class Temp_StockRow
10416         Inherits Global.System.Data.DataRow
10417         
10418         Private tableTemp_Stock As Temp_StockDataTable
10419         
10420         <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
10421          Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0")> _
10422         Friend Sub New(ByVal rb As Global.System.Data.DataRowBuilder)
10423             MyBase.New(rb)
10424             Me.tableTemp_Stock = CType(Me.Table,Temp_StockDataTable)
10425         End Sub
10426         
10427         <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
10428          Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0")> _
10429         Public Property ProductID() As Integer
10430             Get
10431                 Return CType(Me(Me.tableTemp_Stock.ProductIDColumn),Integer)
10432             End Get
10433             Set
10434                 Me(Me.tableTemp_Stock.ProductIDColumn) = value
10435             End Set
10436         End Property
10437         
10438         <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
10439          Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0")> _
10440         Public Property Qty() As Integer
10441             Get
10442                 Return CType(Me(Me.tableTemp_Stock.QtyColumn),Integer)
10443             End Get
10444             Set
10445                 Me(Me.tableTemp_Stock.QtyColumn) = value
10446             End Set
10447         End Property
10448         
10449         <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
10450          Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0")> _
10451         Public Property ProductRow() As ProductRow
10452             Get
10453                 Return CType(Me.GetParentRow(Me.Table.ParentRelations("FK_Temp_Stock_Product")),ProductRow)
10454             End Get
10455             Set
10456                 Me.SetParentRow(value, Me.Table.ParentRelations("FK_Temp_Stock_Product"))
10457             End Set
10458         End Property
10459     End Class
10460     
10461     '''<summary>
10462     '''Row event argument class
10463     '''</summary>
10464     <Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0")> _
10465     Public Class ActivationRowChangeEvent
10466         Inherits Global.System.EventArgs
10467         
10468         Private eventRow As ActivationRow
10469         
10470         Private eventAction As Global.System.Data.DataRowAction
10471         
10472         <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
10473          Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0")> _
10474         Public Sub New(ByVal row As ActivationRow, ByVal action As Global.System.Data.DataRowAction)
10475             MyBase.New
10476             Me.eventRow = row
10477             Me.eventAction = action
10478         End Sub
10479         
10480         <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
10481          Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0")> _
10482         Public ReadOnly Property Row() As ActivationRow
10483             Get
10484                 Return Me.eventRow
10485             End Get
10486         End Property
10487         
10488         <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
10489          Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0")> _
10490         Public ReadOnly Property Action() As Global.System.Data.DataRowAction
10491             Get
10492                 Return Me.eventAction
10493             End Get
10494         End Property
10495     End Class
10496     
10497     '''<summary>
10498     '''Row event argument class
10499     '''</summary>
10500     <Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0")> _
10501     Public Class CategoryRowChangeEvent
10502         Inherits Global.System.EventArgs
10503         
10504         Private eventRow As CategoryRow
10505         
10506         Private eventAction As Global.System.Data.DataRowAction
10507         
10508         <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
10509          Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0")> _
10510         Public Sub New(ByVal row As CategoryRow, ByVal action As Global.System.Data.DataRowAction)
10511             MyBase.New
10512             Me.eventRow = row
10513             Me.eventAction = action
10514         End Sub
10515         
10516         <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
10517          Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0")> _
10518         Public ReadOnly Property Row() As CategoryRow
10519             Get
10520                 Return Me.eventRow
10521             End Get
10522         End Property
10523         
10524         <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
10525          Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0")> _
10526         Public ReadOnly Property Action() As Global.System.Data.DataRowAction
10527             Get
10528                 Return Me.eventAction
10529             End Get
10530         End Property
10531     End Class
10532     
10533     '''<summary>
10534     '''Row event argument class
10535     '''</summary>
10536     <Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0")> _
10537     Public Class CompanyRowChangeEvent
10538         Inherits Global.System.EventArgs
10539         
10540         Private eventRow As CompanyRow
10541         
10542         Private eventAction As Global.System.Data.DataRowAction
10543         
10544         <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
10545          Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0")> _
10546         Public Sub New(ByVal row As CompanyRow, ByVal action As Global.System.Data.DataRowAction)
10547             MyBase.New
10548             Me.eventRow = row
10549             Me.eventAction = action
10550         End Sub
10551         
10552         <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
10553          Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0")> _
10554         Public ReadOnly Property Row() As CompanyRow
10555             Get
10556                 Return Me.eventRow
10557             End Get
10558         End Property
10559         
10560         <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
10561          Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0")> _
10562         Public ReadOnly Property Action() As Global.System.Data.DataRowAction
10563             Get
10564                 Return Me.eventAction
10565             End Get
10566         End Property
10567     End Class
10568     
10569     '''<summary>
10570     '''Row event argument class
10571     '''</summary>
10572     <Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0")> _
10573     Public Class Company_ContactsRowChangeEvent
10574         Inherits Global.System.EventArgs
10575         
10576         Private eventRow As Company_ContactsRow
10577         
10578         Private eventAction As Global.System.Data.DataRowAction
10579         
10580         <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
10581          Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0")> _
10582         Public Sub New(ByVal row As Company_ContactsRow, ByVal action As Global.System.Data.DataRowAction)
10583             MyBase.New
10584             Me.eventRow = row
10585             Me.eventAction = action
10586         End Sub
10587         
10588         <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
10589          Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0")> _
10590         Public ReadOnly Property Row() As Company_ContactsRow
10591             Get
10592                 Return Me.eventRow
10593             End Get
10594         End Property
10595         
10596         <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
10597          Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0")> _
10598         Public ReadOnly Property Action() As Global.System.Data.DataRowAction
10599             Get
10600                 Return Me.eventAction
10601             End Get
10602         End Property
10603     End Class
10604     
10605     '''<summary>
10606     '''Row event argument class
10607     '''</summary>
10608     <Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0")> _
10609     Public Class CustomerRowChangeEvent
10610         Inherits Global.System.EventArgs
10611         
10612         Private eventRow As CustomerRow
10613         
10614         Private eventAction As Global.System.Data.DataRowAction
10615         
10616         <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
10617          Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0")> _
10618         Public Sub New(ByVal row As CustomerRow, ByVal action As Global.System.Data.DataRowAction)
10619             MyBase.New
10620             Me.eventRow = row
10621             Me.eventAction = action
10622         End Sub
10623         
10624         <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
10625          Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0")> _
10626         Public ReadOnly Property Row() As CustomerRow
10627             Get
10628                 Return Me.eventRow
10629             End Get
10630         End Property
10631         
10632         <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
10633          Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0")> _
10634         Public ReadOnly Property Action() As Global.System.Data.DataRowAction
10635             Get
10636                 Return Me.eventAction
10637             End Get
10638         End Property
10639     End Class
10640     
10641     '''<summary>
10642     '''Row event argument class
10643     '''</summary>
10644     <Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0")> _
10645     Public Class Invoice_PaymentRowChangeEvent
10646         Inherits Global.System.EventArgs
10647         
10648         Private eventRow As Invoice_PaymentRow
10649         
10650         Private eventAction As Global.System.Data.DataRowAction
10651         
10652         <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
10653          Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0")> _
10654         Public Sub New(ByVal row As Invoice_PaymentRow, ByVal action As Global.System.Data.DataRowAction)
10655             MyBase.New
10656             Me.eventRow = row
10657             Me.eventAction = action
10658         End Sub
10659         
10660         <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
10661          Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0")> _
10662         Public ReadOnly Property Row() As Invoice_PaymentRow
10663             Get
10664                 Return Me.eventRow
10665             End Get
10666         End Property
10667         
10668         <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
10669          Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0")> _
10670         Public ReadOnly Property Action() As Global.System.Data.DataRowAction
10671             Get
10672                 Return Me.eventAction
10673             End Get
10674         End Property
10675     End Class
10676     
10677     '''<summary>
10678     '''Row event argument class
10679     '''</summary>
10680     <Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0")> _
10681     Public Class Invoice_ProductRowChangeEvent
10682         Inherits Global.System.EventArgs
10683         
10684         Private eventRow As Invoice_ProductRow
10685         
10686         Private eventAction As Global.System.Data.DataRowAction
10687         
10688         <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
10689          Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0")> _
10690         Public Sub New(ByVal row As Invoice_ProductRow, ByVal action As Global.System.Data.DataRowAction)
10691             MyBase.New
10692             Me.eventRow = row
10693             Me.eventAction = action
10694         End Sub
10695         
10696         <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
10697          Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0")> _
10698         Public ReadOnly Property Row() As Invoice_ProductRow
10699             Get
10700                 Return Me.eventRow
10701             End Get
10702         End Property
10703         
10704         <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
10705          Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0")> _
10706         Public ReadOnly Property Action() As Global.System.Data.DataRowAction
10707             Get
10708                 Return Me.eventAction
10709             End Get
10710         End Property
10711     End Class
10712     
10713     '''<summary>
10714     '''Row event argument class
10715     '''</summary>
10716     <Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0")> _
10717     Public Class InvoiceInfoRowChangeEvent
10718         Inherits Global.System.EventArgs
10719         
10720         Private eventRow As InvoiceInfoRow
10721         
10722         Private eventAction As Global.System.Data.DataRowAction
10723         
10724         <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
10725          Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0")> _
10726         Public Sub New(ByVal row As InvoiceInfoRow, ByVal action As Global.System.Data.DataRowAction)
10727             MyBase.New
10728             Me.eventRow = row
10729             Me.eventAction = action
10730         End Sub
10731         
10732         <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
10733          Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0")> _
10734         Public ReadOnly Property Row() As InvoiceInfoRow
10735             Get
10736                 Return Me.eventRow
10737             End Get
10738         End Property
10739         
10740         <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
10741          Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0")> _
10742         Public ReadOnly Property Action() As Global.System.Data.DataRowAction
10743             Get
10744                 Return Me.eventAction
10745             End Get
10746         End Property
10747     End Class
10748     
10749     '''<summary>
10750     '''Row event argument class
10751     '''</summary>
10752     <Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0")> _
10753     Public Class LogsRowChangeEvent
10754         Inherits Global.System.EventArgs
10755         
10756         Private eventRow As LogsRow
10757         
10758         Private eventAction As Global.System.Data.DataRowAction
10759         
10760         <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
10761          Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0")> _
10762         Public Sub New(ByVal row As LogsRow, ByVal action As Global.System.Data.DataRowAction)
10763             MyBase.New
10764             Me.eventRow = row
10765             Me.eventAction = action
10766         End Sub
10767         
10768         <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
10769          Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0")> _
10770         Public ReadOnly Property Row() As LogsRow
10771             Get
10772                 Return Me.eventRow
10773             End Get
10774         End Property
10775         
10776         <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
10777          Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0")> _
10778         Public ReadOnly Property Action() As Global.System.Data.DataRowAction
10779             Get
10780                 Return Me.eventAction
10781             End Get
10782         End Property
10783     End Class
10784     
10785     '''<summary>
10786     '''Row event argument class
10787     '''</summary>
10788     <Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0")> _
10789     Public Class ProductRowChangeEvent
10790         Inherits Global.System.EventArgs
10791         
10792         Private eventRow As ProductRow
10793         
10794         Private eventAction As Global.System.Data.DataRowAction
10795         
10796         <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
10797          Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0")> _
10798         Public Sub New(ByVal row As ProductRow, ByVal action As Global.System.Data.DataRowAction)
10799             MyBase.New
10800             Me.eventRow = row
10801             Me.eventAction = action
10802         End Sub
10803         
10804         <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
10805          Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0")> _
10806         Public ReadOnly Property Row() As ProductRow
10807             Get
10808                 Return Me.eventRow
10809             End Get
10810         End Property
10811         
10812         <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
10813          Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0")> _
10814         Public ReadOnly Property Action() As Global.System.Data.DataRowAction
10815             Get
10816                 Return Me.eventAction
10817             End Get
10818         End Property
10819     End Class
10820     
10821     '''<summary>
10822     '''Row event argument class
10823     '''</summary>
10824     <Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0")> _
10825     Public Class Product_JoinRowChangeEvent
10826         Inherits Global.System.EventArgs
10827         
10828         Private eventRow As Product_JoinRow
10829         
10830         Private eventAction As Global.System.Data.DataRowAction
10831         
10832         <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
10833          Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0")> _
10834         Public Sub New(ByVal row As Product_JoinRow, ByVal action As Global.System.Data.DataRowAction)
10835             MyBase.New
10836             Me.eventRow = row
10837             Me.eventAction = action
10838         End Sub
10839         
10840         <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
10841          Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0")> _
10842         Public ReadOnly Property Row() As Product_JoinRow
10843             Get
10844                 Return Me.eventRow
10845             End Get
10846         End Property
10847         
10848         <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
10849          Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0")> _
10850         Public ReadOnly Property Action() As Global.System.Data.DataRowAction
10851             Get
10852                 Return Me.eventAction
10853             End Get
10854         End Property
10855     End Class
10856     
10857     '''<summary>
10858     '''Row event argument class
10859     '''</summary>
10860     <Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0")> _
10861     Public Class QuotationRowChangeEvent
10862         Inherits Global.System.EventArgs
10863         
10864         Private eventRow As QuotationRow
10865         
10866         Private eventAction As Global.System.Data.DataRowAction
10867         
10868         <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
10869          Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0")> _
10870         Public Sub New(ByVal row As QuotationRow, ByVal action As Global.System.Data.DataRowAction)
10871             MyBase.New
10872             Me.eventRow = row
10873             Me.eventAction = action
10874         End Sub
10875         
10876         <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
10877          Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0")> _
10878         Public ReadOnly Property Row() As QuotationRow
10879             Get
10880                 Return Me.eventRow
10881             End Get
10882         End Property
10883         
10884         <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
10885          Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0")> _
10886         Public ReadOnly Property Action() As Global.System.Data.DataRowAction
10887             Get
10888                 Return Me.eventAction
10889             End Get
10890         End Property
10891     End Class
10892     
10893     '''<summary>
10894     '''Row event argument class
10895     '''</summary>
10896     <Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0")> _
10897     Public Class Quotation_JoinRowChangeEvent
10898         Inherits Global.System.EventArgs
10899         
10900         Private eventRow As Quotation_JoinRow
10901         
10902         Private eventAction As Global.System.Data.DataRowAction
10903         
10904         <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
10905          Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0")> _
10906         Public Sub New(ByVal row As Quotation_JoinRow, ByVal action As Global.System.Data.DataRowAction)
10907             MyBase.New
10908             Me.eventRow = row
10909             Me.eventAction = action
10910         End Sub
10911         
10912         <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
10913          Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0")> _
10914         Public ReadOnly Property Row() As Quotation_JoinRow
10915             Get
10916                 Return Me.eventRow
10917             End Get
10918         End Property
10919         
10920         <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
10921          Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0")> _
10922         Public ReadOnly Property Action() As Global.System.Data.DataRowAction
10923             Get
10924                 Return Me.eventAction
10925             End Get
10926         End Property
10927     End Class
10928     
10929     '''<summary>
10930     '''Row event argument class
10931     '''</summary>
10932     <Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0")> _
10933     Public Class RegistrationRowChangeEvent
10934         Inherits Global.System.EventArgs
10935         
10936         Private eventRow As RegistrationRow
10937         
10938         Private eventAction As Global.System.Data.DataRowAction
10939         
10940         <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
10941          Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0")> _
10942         Public Sub New(ByVal row As RegistrationRow, ByVal action As Global.System.Data.DataRowAction)
10943             MyBase.New
10944             Me.eventRow = row
10945             Me.eventAction = action
10946         End Sub
10947         
10948         <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
10949          Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0")> _
10950         Public ReadOnly Property Row() As RegistrationRow
10951             Get
10952                 Return Me.eventRow
10953             End Get
10954         End Property
10955         
10956         <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
10957          Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0")> _
10958         Public ReadOnly Property Action() As Global.System.Data.DataRowAction
10959             Get
10960                 Return Me.eventAction
10961             End Get
10962         End Property
10963     End Class
10964     
10965     '''<summary>
10966     '''Row event argument class
10967     '''</summary>
10968     <Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0")> _
10969     Public Class ServiceRowChangeEvent
10970         Inherits Global.System.EventArgs
10971         
10972         Private eventRow As ServiceRow
10973         
10974         Private eventAction As Global.System.Data.DataRowAction
10975         
10976         <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
10977          Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0")> _
10978         Public Sub New(ByVal row As ServiceRow, ByVal action As Global.System.Data.DataRowAction)
10979             MyBase.New
10980             Me.eventRow = row
10981             Me.eventAction = action
10982         End Sub
10983         
10984         <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
10985          Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0")> _
10986         Public ReadOnly Property Row() As ServiceRow
10987             Get
10988                 Return Me.eventRow
10989             End Get
10990         End Property
10991         
10992         <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
10993          Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0")> _
10994         Public ReadOnly Property Action() As Global.System.Data.DataRowAction
10995             Get
10996                 Return Me.eventAction
10997             End Get
10998         End Property
10999     End Class
11000     
11001     '''<summary>
11002     '''Row event argument class
11003     '''</summary>
11004     <Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0")> _
11005     Public Class StockRowChangeEvent
11006         Inherits Global.System.EventArgs
11007         
11008         Private eventRow As StockRow
11009         
11010         Private eventAction As Global.System.Data.DataRowAction
11011         
11012         <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
11013          Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0")> _
11014         Public Sub New(ByVal row As StockRow, ByVal action As Global.System.Data.DataRowAction)
11015             MyBase.New
11016             Me.eventRow = row
11017             Me.eventAction = action
11018         End Sub
11019         
11020         <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
11021          Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0")> _
11022         Public ReadOnly Property Row() As StockRow
11023             Get
11024                 Return Me.eventRow
11025             End Get
11026         End Property
11027         
11028         <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
11029          Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0")> _
11030         Public ReadOnly Property Action() As Global.System.Data.DataRowAction
11031             Get
11032                 Return Me.eventAction
11033             End Get
11034         End Property
11035     End Class
11036     
11037     '''<summary>
11038     '''Row event argument class
11039     '''</summary>
11040     <Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0")> _
11041     Public Class Stock_ProductRowChangeEvent
11042         Inherits Global.System.EventArgs
11043         
11044         Private eventRow As Stock_ProductRow
11045         
11046         Private eventAction As Global.System.Data.DataRowAction
11047         
11048         <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
11049          Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0")> _
11050         Public Sub New(ByVal row As Stock_ProductRow, ByVal action As Global.System.Data.DataRowAction)
11051             MyBase.New
11052             Me.eventRow = row
11053             Me.eventAction = action
11054         End Sub
11055         
11056         <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
11057          Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0")> _
11058         Public ReadOnly Property Row() As Stock_ProductRow
11059             Get
11060                 Return Me.eventRow
11061             End Get
11062         End Property
11063         
11064         <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
11065          Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0")> _
11066         Public ReadOnly Property Action() As Global.System.Data.DataRowAction
11067             Get
11068                 Return Me.eventAction
11069             End Get
11070         End Property
11071     End Class
11072     
11073     '''<summary>
11074     '''Row event argument class
11075     '''</summary>
11076     <Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0")> _
11077     Public Class SubCategoryRowChangeEvent
11078         Inherits Global.System.EventArgs
11079         
11080         Private eventRow As SubCategoryRow
11081         
11082         Private eventAction As Global.System.Data.DataRowAction
11083         
11084         <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
11085          Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0")> _
11086         Public Sub New(ByVal row As SubCategoryRow, ByVal action As Global.System.Data.DataRowAction)
11087             MyBase.New
11088             Me.eventRow = row
11089             Me.eventAction = action
11090         End Sub
11091         
11092         <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
11093          Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0")> _
11094         Public ReadOnly Property Row() As SubCategoryRow
11095             Get
11096                 Return Me.eventRow
11097             End Get
11098         End Property
11099         
11100         <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
11101          Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0")> _
11102         Public ReadOnly Property Action() As Global.System.Data.DataRowAction
11103             Get
11104                 Return Me.eventAction
11105             End Get
11106         End Property
11107     End Class
11108     
11109     '''<summary>
11110     '''Row event argument class
11111     '''</summary>
11112     <Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0")> _
11113     Public Class SupplierRowChangeEvent
11114         Inherits Global.System.EventArgs
11115         
11116         Private eventRow As SupplierRow
11117         
11118         Private eventAction As Global.System.Data.DataRowAction
11119         
11120         <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
11121          Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0")> _
11122         Public Sub New(ByVal row As SupplierRow, ByVal action As Global.System.Data.DataRowAction)
11123             MyBase.New
11124             Me.eventRow = row
11125             Me.eventAction = action
11126         End Sub
11127         
11128         <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
11129          Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0")> _
11130         Public ReadOnly Property Row() As SupplierRow
11131             Get
11132                 Return Me.eventRow
11133             End Get
11134         End Property
11135         
11136         <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
11137          Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0")> _
11138         Public ReadOnly Property Action() As Global.System.Data.DataRowAction
11139             Get
11140                 Return Me.eventAction
11141             End Get
11142         End Property
11143     End Class
11144     
11145     '''<summary>
11146     '''Row event argument class
11147     '''</summary>
11148     <Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0")> _
11149     Public Class Temp_StockRowChangeEvent
11150         Inherits Global.System.EventArgs
11151         
11152         Private eventRow As Temp_StockRow
11153         
11154         Private eventAction As Global.System.Data.DataRowAction
11155         
11156         <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
11157          Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0")> _
11158         Public Sub New(ByVal row As Temp_StockRow, ByVal action As Global.System.Data.DataRowAction)
11159             MyBase.New
11160             Me.eventRow = row
11161             Me.eventAction = action
11162         End Sub
11163         
11164         <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
11165          Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0")> _
11166         Public ReadOnly Property Row() As Temp_StockRow
11167             Get
11168                 Return Me.eventRow
11169             End Get
11170         End Property
11171         
11172         <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
11173          Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0")> _
11174         Public ReadOnly Property Action() As Global.System.Data.DataRowAction
11175             Get
11176                 Return Me.eventAction
11177             End Get
11178         End Property
11179     End Class
11180 End Class
11181
11182 Namespace SIS_DBDataSetTableAdapters
11183     
11184     '''<summary>
11185     '''Represents the connection and commands used to retrieve and save data.
11186     '''</summary>
11187     <Global.System.ComponentModel.DesignerCategoryAttribute("code"), _
11188      Global.System.ComponentModel.ToolboxItem(true), _
11189      Global.System.ComponentModel.DataObjectAttribute(true), _
11190      Global.System.ComponentModel.DesignerAttribute("Microsoft.VSDesigner.DataSource.Design.TableAdapterDesigner, Microsoft.VSDesigner"& _
11191         ", Version=10.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a"), _
11192      Global.System.ComponentModel.Design.HelpKeywordAttribute("vs.data.TableAdapter")> _
11193     Partial Public Class ActivationTableAdapter
11194         Inherits Global.System.ComponentModel.Component
11195         
11196         Private WithEvents _adapter As Global.System.Data.SqlClient.SqlDataAdapter
11197         
11198         Private _connection As Global.System.Data.SqlClient.SqlConnection
11199         
11200         Private _transaction As Global.System.Data.SqlClient.SqlTransaction
11201         
11202         Private _commandCollection() As Global.System.Data.SqlClient.SqlCommand
11203         
11204         Private _clearBeforeFill As Boolean
11205         
11206         <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
11207          Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0")> _
11208         Public Sub New()
11209             MyBase.New
11210             Me.ClearBeforeFill = true
11211         End Sub
11212         
11213         <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
11214          Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0")> _
11215         Protected Friend ReadOnly Property Adapter() As Global.System.Data.SqlClient.SqlDataAdapter
11216             Get
11217                 If (Me._adapter Is Nothing) Then
11218                     Me.InitAdapter
11219                 End If
11220                 Return Me._adapter
11221             End Get
11222         End Property
11223         
11224         <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
11225          Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0")> _
11226         Friend Property Connection() As Global.System.Data.SqlClient.SqlConnection
11227             Get
11228                 If (Me._connection Is Nothing) Then
11229                     Me.InitConnection
11230                 End If
11231                 Return Me._connection
11232             End Get
11233             Set
11234                 Me._connection = value
11235                 If (Not (Me.Adapter.InsertCommand) Is Nothing) Then
11236                     Me.Adapter.InsertCommand.Connection = value
11237                 End If
11238                 If (Not (Me.Adapter.DeleteCommand) Is Nothing) Then
11239                     Me.Adapter.DeleteCommand.Connection = value
11240                 End If
11241                 If (Not (Me.Adapter.UpdateCommand) Is Nothing) Then
11242                     Me.Adapter.UpdateCommand.Connection = value
11243                 End If
11244                 Dim i As Integer = 0
11245                 Do While (i < Me.CommandCollection.Length)
11246                     If (Not (Me.CommandCollection(i)) Is Nothing) Then
11247                         CType(Me.CommandCollection(i),Global.System.Data.SqlClient.SqlCommand).Connection = value
11248                     End If
11249                     i = (i + 1)
11250                 Loop
11251             End Set
11252         End Property
11253         
11254         <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
11255          Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0")> _
11256         Friend Property Transaction() As Global.System.Data.SqlClient.SqlTransaction
11257             Get
11258                 Return Me._transaction
11259             End Get
11260             Set
11261                 Me._transaction = value
11262                 Dim i As Integer = 0
11263                 Do While (i < Me.CommandCollection.Length)
11264                     Me.CommandCollection(i).Transaction = Me._transaction
11265                     i = (i + 1)
11266                 Loop
11267                 If ((Not (Me.Adapter) Is Nothing) _
11268                             AndAlso (Not (Me.Adapter.DeleteCommand) Is Nothing)) Then
11269                     Me.Adapter.DeleteCommand.Transaction = Me._transaction
11270                 End If
11271                 If ((Not (Me.Adapter) Is Nothing) _
11272                             AndAlso (Not (Me.Adapter.InsertCommand) Is Nothing)) Then
11273                     Me.Adapter.InsertCommand.Transaction = Me._transaction
11274                 End If
11275                 If ((Not (Me.Adapter) Is Nothing) _
11276                             AndAlso (Not (Me.Adapter.UpdateCommand) Is Nothing)) Then
11277                     Me.Adapter.UpdateCommand.Transaction = Me._transaction
11278                 End If
11279             End Set
11280         End Property
11281         
11282         <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
11283          Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0")> _
11284         Protected ReadOnly Property CommandCollection() As Global.System.Data.SqlClient.SqlCommand()
11285             Get
11286                 If (Me._commandCollection Is Nothing) Then
11287                     Me.InitCommandCollection
11288                 End If
11289                 Return Me._commandCollection
11290             End Get
11291         End Property
11292         
11293         <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
11294          Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0")> _
11295         Public Property ClearBeforeFill() As Boolean
11296             Get
11297                 Return Me._clearBeforeFill
11298             End Get
11299             Set
11300                 Me._clearBeforeFill = value
11301             End Set
11302         End Property
11303         
11304         <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
11305          Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0")> _
11306         Private Sub InitAdapter()
11307             Me._adapter = New Global.System.Data.SqlClient.SqlDataAdapter()
11308             Dim tableMapping As Global.System.Data.Common.DataTableMapping = New Global.System.Data.Common.DataTableMapping()
11309             tableMapping.SourceTable = "Table"
11310             tableMapping.DataSetTable = "Activation"
11311             tableMapping.ColumnMappings.Add("ID", "ID")
11312             tableMapping.ColumnMappings.Add("HardwareID", "HardwareID")
11313             tableMapping.ColumnMappings.Add("SerialNo", "SerialNo")
11314             tableMapping.ColumnMappings.Add("ActivationID", "ActivationID")
11315             Me._adapter.TableMappings.Add(tableMapping)
11316             Me._adapter.DeleteCommand = New Global.System.Data.SqlClient.SqlCommand()
11317             Me._adapter.DeleteCommand.Connection = Me.Connection
11318             Me._adapter.DeleteCommand.CommandText = "DELETE FROM [dbo].[Activation] WHERE (([ID] = @Original_ID) AND ([HardwareID] = @"& _
11319                 "Original_HardwareID) AND ([SerialNo] = @Original_SerialNo) AND ([ActivationID] ="& _
11320                 " @Original_ActivationID))"
11321             Me._adapter.DeleteCommand.CommandType = Global.System.Data.CommandType.Text
11322             Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_ID", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "ID", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", ""))
11323             Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_HardwareID", Global.System.Data.SqlDbType.NChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "HardwareID", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", ""))
11324             Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_SerialNo", Global.System.Data.SqlDbType.NChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "SerialNo", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", ""))
11325             Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_ActivationID", Global.System.Data.SqlDbType.NChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "ActivationID", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", ""))
11326             Me._adapter.InsertCommand = New Global.System.Data.SqlClient.SqlCommand()
11327             Me._adapter.InsertCommand.Connection = Me.Connection
11328             Me._adapter.InsertCommand.CommandText = "INSERT INTO [dbo].[Activation] ([HardwareID], [SerialNo], [ActivationID]) VALUES "& _
11329                 "(@HardwareID, @SerialNo, @ActivationID);"&Global.Microsoft.VisualBasic.ChrW(13)&Global.Microsoft.VisualBasic.ChrW(10)&"SELECT ID, HardwareID, SerialNo, Activ"& _
11330                 "ationID FROM Activation WHERE (ID = SCOPE_IDENTITY())"
11331             Me._adapter.InsertCommand.CommandType = Global.System.Data.CommandType.Text
11332             Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@HardwareID", Global.System.Data.SqlDbType.NChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "HardwareID", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", ""))
11333             Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@SerialNo", Global.System.Data.SqlDbType.NChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "SerialNo", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", ""))
11334             Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@ActivationID", Global.System.Data.SqlDbType.NChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "ActivationID", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", ""))
11335             Me._adapter.UpdateCommand = New Global.System.Data.SqlClient.SqlCommand()
11336             Me._adapter.UpdateCommand.Connection = Me.Connection
11337             Me._adapter.UpdateCommand.CommandText = "UPDATE [dbo].[Activation] SET [HardwareID] = @HardwareID, [SerialNo] = @SerialNo,"& _
11338                 " [ActivationID] = @ActivationID WHERE (([ID] = @Original_ID) AND ([HardwareID] ="& _
11339                 " @Original_HardwareID) AND ([SerialNo] = @Original_SerialNo) AND ([ActivationID]"& _
11340                 " = @Original_ActivationID));"&Global.Microsoft.VisualBasic.ChrW(13)&Global.Microsoft.VisualBasic.ChrW(10)&"SELECT ID, HardwareID, SerialNo, ActivationID FROM"& _
11341                 " Activation WHERE (ID = @ID)"
11342             Me._adapter.UpdateCommand.CommandType = Global.System.Data.CommandType.Text
11343             Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@HardwareID", Global.System.Data.SqlDbType.NChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "HardwareID", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", ""))
11344             Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@SerialNo", Global.System.Data.SqlDbType.NChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "SerialNo", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", ""))
11345             Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@ActivationID", Global.System.Data.SqlDbType.NChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "ActivationID", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", ""))
11346             Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_ID", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "ID", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", ""))
11347             Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_HardwareID", Global.System.Data.SqlDbType.NChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "HardwareID", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", ""))
11348             Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_SerialNo", Global.System.Data.SqlDbType.NChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "SerialNo", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", ""))
11349             Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_ActivationID", Global.System.Data.SqlDbType.NChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "ActivationID", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", ""))
11350             Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@ID", Global.System.Data.SqlDbType.Int, 4, Global.System.Data.ParameterDirection.Input, 0, 0, "ID", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", ""))
11351         End Sub
11352         
11353         <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
11354          Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0")> _
11355         Private Sub InitConnection()
11356             Me._connection = New Global.System.Data.SqlClient.SqlConnection()
11357             Me._connection.ConnectionString = Global.Sales_and_Inventory_System.My.MySettings.Default.SIS_DBConnectionString1
11358         End Sub
11359         
11360         <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
11361          Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0")> _
11362         Private Sub InitCommandCollection()
11363             Me._commandCollection = New Global.System.Data.SqlClient.SqlCommand(0) {}
11364             Me._commandCollection(0) = New Global.System.Data.SqlClient.SqlCommand()
11365             Me._commandCollection(0).Connection = Me.Connection
11366             Me._commandCollection(0).CommandText = "SELECT ID, HardwareID, SerialNo, ActivationID FROM dbo.Activation"
11367             Me._commandCollection(0).CommandType = Global.System.Data.CommandType.Text
11368         End Sub
11369         
11370         <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
11371          Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0"), _
11372          Global.System.ComponentModel.Design.HelpKeywordAttribute("vs.data.TableAdapter"), _
11373          Global.System.ComponentModel.DataObjectMethodAttribute(Global.System.ComponentModel.DataObjectMethodType.Fill, true)> _
11374         Public Overloads Overridable Function Fill(ByVal dataTable As SIS_DBDataSet.ActivationDataTable) As Integer
11375             Me.Adapter.SelectCommand = Me.CommandCollection(0)
11376             If (Me.ClearBeforeFill = true) Then
11377                 dataTable.Clear
11378             End If
11379             Dim returnValue As Integer = Me.Adapter.Fill(dataTable)
11380             Return returnValue
11381         End Function
11382         
11383         <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
11384          Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0"), _
11385          Global.System.ComponentModel.Design.HelpKeywordAttribute("vs.data.TableAdapter"), _
11386          Global.System.ComponentModel.DataObjectMethodAttribute(Global.System.ComponentModel.DataObjectMethodType.[Select], true)> _
11387         Public Overloads Overridable Function GetData() As SIS_DBDataSet.ActivationDataTable
11388             Me.Adapter.SelectCommand = Me.CommandCollection(0)
11389             Dim dataTable As SIS_DBDataSet.ActivationDataTable = New SIS_DBDataSet.ActivationDataTable()
11390             Me.Adapter.Fill(dataTable)
11391             Return dataTable
11392         End Function
11393         
11394         <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
11395          Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0"), _
11396          Global.System.ComponentModel.Design.HelpKeywordAttribute("vs.data.TableAdapter")> _
11397         Public Overloads Overridable Function Update(ByVal dataTable As SIS_DBDataSet.ActivationDataTable) As Integer
11398             Return Me.Adapter.Update(dataTable)
11399         End Function
11400         
11401         <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
11402          Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0"), _
11403          Global.System.ComponentModel.Design.HelpKeywordAttribute("vs.data.TableAdapter")> _
11404         Public Overloads Overridable Function Update(ByVal dataSet As SIS_DBDataSet) As Integer
11405             Return Me.Adapter.Update(dataSet, "Activation")
11406         End Function
11407         
11408         <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
11409          Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0"), _
11410          Global.System.ComponentModel.Design.HelpKeywordAttribute("vs.data.TableAdapter")> _
11411         Public Overloads Overridable Function Update(ByVal dataRow As Global.System.Data.DataRow) As Integer
11412             Return Me.Adapter.Update(New Global.System.Data.DataRow() {dataRow})
11413         End Function
11414         
11415         <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
11416          Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0"), _
11417          Global.System.ComponentModel.Design.HelpKeywordAttribute("vs.data.TableAdapter")> _
11418         Public Overloads Overridable Function Update(ByVal dataRows() As Global.System.Data.DataRow) As Integer
11419             Return Me.Adapter.Update(dataRows)
11420         End Function
11421         
11422         <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
11423          Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0"), _
11424          Global.System.ComponentModel.Design.HelpKeywordAttribute("vs.data.TableAdapter"), _
11425          Global.System.ComponentModel.DataObjectMethodAttribute(Global.System.ComponentModel.DataObjectMethodType.Delete, true)> _
11426         Public Overloads Overridable Function Delete(ByVal Original_ID As Integer, ByVal Original_HardwareID As String, ByVal Original_SerialNo As String, ByVal Original_ActivationID As String) As Integer
11427             Me.Adapter.DeleteCommand.Parameters(0).Value = CType(Original_ID,Integer)
11428             If (Original_HardwareID Is Nothing) Then
11429                 Throw New Global.System.ArgumentNullException("Original_HardwareID")
11430             Else
11431                 Me.Adapter.DeleteCommand.Parameters(1).Value = CType(Original_HardwareID,String)
11432             End If
11433             If (Original_SerialNo Is Nothing) Then
11434                 Throw New Global.System.ArgumentNullException("Original_SerialNo")
11435             Else
11436                 Me.Adapter.DeleteCommand.Parameters(2).Value = CType(Original_SerialNo,String)
11437             End If
11438             If (Original_ActivationID Is Nothing) Then
11439                 Throw New Global.System.ArgumentNullException("Original_ActivationID")
11440             Else
11441                 Me.Adapter.DeleteCommand.Parameters(3).Value = CType(Original_ActivationID,String)
11442             End If
11443             Dim previousConnectionState As Global.System.Data.ConnectionState = Me.Adapter.DeleteCommand.Connection.State
11444             If ((Me.Adapter.DeleteCommand.Connection.State And Global.System.Data.ConnectionState.Open) _
11445                         <> Global.System.Data.ConnectionState.Open) Then
11446                 Me.Adapter.DeleteCommand.Connection.Open
11447             End If
11448             Try
11449                 Dim returnValue As Integer = Me.Adapter.DeleteCommand.ExecuteNonQuery
11450                 Return returnValue
11451             Finally
11452                 If (previousConnectionState = Global.System.Data.ConnectionState.Closed) Then
11453                     Me.Adapter.DeleteCommand.Connection.Close
11454                 End If
11455             End Try
11456         End Function
11457         
11458         <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
11459          Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0"), _
11460          Global.System.ComponentModel.Design.HelpKeywordAttribute("vs.data.TableAdapter"), _
11461          Global.System.ComponentModel.DataObjectMethodAttribute(Global.System.ComponentModel.DataObjectMethodType.Insert, true)> _
11462         Public Overloads Overridable Function Insert(ByVal HardwareID As String, ByVal SerialNo As String, ByVal ActivationID As String) As Integer
11463             If (HardwareID Is Nothing) Then
11464                 Throw New Global.System.ArgumentNullException("HardwareID")
11465             Else
11466                 Me.Adapter.InsertCommand.Parameters(0).Value = CType(HardwareID,String)
11467             End If
11468             If (SerialNo Is Nothing) Then
11469                 Throw New Global.System.ArgumentNullException("SerialNo")
11470             Else
11471                 Me.Adapter.InsertCommand.Parameters(1).Value = CType(SerialNo,String)
11472             End If
11473             If (ActivationID Is Nothing) Then
11474                 Throw New Global.System.ArgumentNullException("ActivationID")
11475             Else
11476                 Me.Adapter.InsertCommand.Parameters(2).Value = CType(ActivationID,String)
11477             End If
11478             Dim previousConnectionState As Global.System.Data.ConnectionState = Me.Adapter.InsertCommand.Connection.State
11479             If ((Me.Adapter.InsertCommand.Connection.State And Global.System.Data.ConnectionState.Open) _
11480                         <> Global.System.Data.ConnectionState.Open) Then
11481                 Me.Adapter.InsertCommand.Connection.Open
11482             End If
11483             Try
11484                 Dim returnValue As Integer = Me.Adapter.InsertCommand.ExecuteNonQuery
11485                 Return returnValue
11486             Finally
11487                 If (previousConnectionState = Global.System.Data.ConnectionState.Closed) Then
11488                     Me.Adapter.InsertCommand.Connection.Close
11489                 End If
11490             End Try
11491         End Function
11492         
11493         <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
11494          Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0"), _
11495          Global.System.ComponentModel.Design.HelpKeywordAttribute("vs.data.TableAdapter"), _
11496          Global.System.ComponentModel.DataObjectMethodAttribute(Global.System.ComponentModel.DataObjectMethodType.Update, true)> _
11497         Public Overloads Overridable Function Update(ByVal HardwareID As String, ByVal SerialNo As String, ByVal ActivationID As String, ByVal Original_ID As Integer, ByVal Original_HardwareID As String, ByVal Original_SerialNo As String, ByVal Original_ActivationID As String, ByVal ID As Integer) As Integer
11498             If (HardwareID Is Nothing) Then
11499                 Throw New Global.System.ArgumentNullException("HardwareID")
11500             Else
11501                 Me.Adapter.UpdateCommand.Parameters(0).Value = CType(HardwareID,String)
11502             End If
11503             If (SerialNo Is Nothing) Then
11504                 Throw New Global.System.ArgumentNullException("SerialNo")
11505             Else
11506                 Me.Adapter.UpdateCommand.Parameters(1).Value = CType(SerialNo,String)
11507             End If
11508             If (ActivationID Is Nothing) Then
11509                 Throw New Global.System.ArgumentNullException("ActivationID")
11510             Else
11511                 Me.Adapter.UpdateCommand.Parameters(2).Value = CType(ActivationID,String)
11512             End If
11513             Me.Adapter.UpdateCommand.Parameters(3).Value = CType(Original_ID,Integer)
11514             If (Original_HardwareID Is Nothing) Then
11515                 Throw New Global.System.ArgumentNullException("Original_HardwareID")
11516             Else
11517                 Me.Adapter.UpdateCommand.Parameters(4).Value = CType(Original_HardwareID,String)
11518             End If
11519             If (Original_SerialNo Is Nothing) Then
11520                 Throw New Global.System.ArgumentNullException("Original_SerialNo")
11521             Else
11522                 Me.Adapter.UpdateCommand.Parameters(5).Value = CType(Original_SerialNo,String)
11523             End If
11524             If (Original_ActivationID Is Nothing) Then
11525                 Throw New Global.System.ArgumentNullException("Original_ActivationID")
11526             Else
11527                 Me.Adapter.UpdateCommand.Parameters(6).Value = CType(Original_ActivationID,String)
11528             End If
11529             Me.Adapter.UpdateCommand.Parameters(7).Value = CType(ID,Integer)
11530             Dim previousConnectionState As Global.System.Data.ConnectionState = Me.Adapter.UpdateCommand.Connection.State
11531             If ((Me.Adapter.UpdateCommand.Connection.State And Global.System.Data.ConnectionState.Open) _
11532                         <> Global.System.Data.ConnectionState.Open) Then
11533                 Me.Adapter.UpdateCommand.Connection.Open
11534             End If
11535             Try
11536                 Dim returnValue As Integer = Me.Adapter.UpdateCommand.ExecuteNonQuery
11537                 Return returnValue
11538             Finally
11539                 If (previousConnectionState = Global.System.Data.ConnectionState.Closed) Then
11540                     Me.Adapter.UpdateCommand.Connection.Close
11541                 End If
11542             End Try
11543         End Function
11544         
11545         <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
11546          Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0"), _
11547          Global.System.ComponentModel.Design.HelpKeywordAttribute("vs.data.TableAdapter"), _
11548          Global.System.ComponentModel.DataObjectMethodAttribute(Global.System.ComponentModel.DataObjectMethodType.Update, true)> _
11549         Public Overloads Overridable Function Update(ByVal HardwareID As String, ByVal SerialNo As String, ByVal ActivationID As String, ByVal Original_ID As Integer, ByVal Original_HardwareID As String, ByVal Original_SerialNo As String, ByVal Original_ActivationID As String) As Integer
11550             Return Me.Update(HardwareID, SerialNo, ActivationID, Original_ID, Original_HardwareID, Original_SerialNo, Original_ActivationID, Original_ID)
11551         End Function
11552     End Class
11553     
11554     '''<summary>
11555     '''Represents the connection and commands used to retrieve and save data.
11556     '''</summary>
11557     <Global.System.ComponentModel.DesignerCategoryAttribute("code"), _
11558      Global.System.ComponentModel.ToolboxItem(true), _
11559      Global.System.ComponentModel.DataObjectAttribute(true), _
11560      Global.System.ComponentModel.DesignerAttribute("Microsoft.VSDesigner.DataSource.Design.TableAdapterDesigner, Microsoft.VSDesigner"& _
11561         ", Version=10.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a"), _
11562      Global.System.ComponentModel.Design.HelpKeywordAttribute("vs.data.TableAdapter")> _
11563     Partial Public Class CategoryTableAdapter
11564         Inherits Global.System.ComponentModel.Component
11565         
11566         Private WithEvents _adapter As Global.System.Data.SqlClient.SqlDataAdapter
11567         
11568         Private _connection As Global.System.Data.SqlClient.SqlConnection
11569         
11570         Private _transaction As Global.System.Data.SqlClient.SqlTransaction
11571         
11572         Private _commandCollection() As Global.System.Data.SqlClient.SqlCommand
11573         
11574         Private _clearBeforeFill As Boolean
11575         
11576         <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
11577          Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0")> _
11578         Public Sub New()
11579             MyBase.New
11580             Me.ClearBeforeFill = true
11581         End Sub
11582         
11583         <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
11584          Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0")> _
11585         Protected Friend ReadOnly Property Adapter() As Global.System.Data.SqlClient.SqlDataAdapter
11586             Get
11587                 If (Me._adapter Is Nothing) Then
11588                     Me.InitAdapter
11589                 End If
11590                 Return Me._adapter
11591             End Get
11592         End Property
11593         
11594         <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
11595          Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0")> _
11596         Friend Property Connection() As Global.System.Data.SqlClient.SqlConnection
11597             Get
11598                 If (Me._connection Is Nothing) Then
11599                     Me.InitConnection
11600                 End If
11601                 Return Me._connection
11602             End Get
11603             Set
11604                 Me._connection = value
11605                 If (Not (Me.Adapter.InsertCommand) Is Nothing) Then
11606                     Me.Adapter.InsertCommand.Connection = value
11607                 End If
11608                 If (Not (Me.Adapter.DeleteCommand) Is Nothing) Then
11609                     Me.Adapter.DeleteCommand.Connection = value
11610                 End If
11611                 If (Not (Me.Adapter.UpdateCommand) Is Nothing) Then
11612                     Me.Adapter.UpdateCommand.Connection = value
11613                 End If
11614                 Dim i As Integer = 0
11615                 Do While (i < Me.CommandCollection.Length)
11616                     If (Not (Me.CommandCollection(i)) Is Nothing) Then
11617                         CType(Me.CommandCollection(i),Global.System.Data.SqlClient.SqlCommand).Connection = value
11618                     End If
11619                     i = (i + 1)
11620                 Loop
11621             End Set
11622         End Property
11623         
11624         <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
11625          Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0")> _
11626         Friend Property Transaction() As Global.System.Data.SqlClient.SqlTransaction
11627             Get
11628                 Return Me._transaction
11629             End Get
11630             Set
11631                 Me._transaction = value
11632                 Dim i As Integer = 0
11633                 Do While (i < Me.CommandCollection.Length)
11634                     Me.CommandCollection(i).Transaction = Me._transaction
11635                     i = (i + 1)
11636                 Loop
11637                 If ((Not (Me.Adapter) Is Nothing) _
11638                             AndAlso (Not (Me.Adapter.DeleteCommand) Is Nothing)) Then
11639                     Me.Adapter.DeleteCommand.Transaction = Me._transaction
11640                 End If
11641                 If ((Not (Me.Adapter) Is Nothing) _
11642                             AndAlso (Not (Me.Adapter.InsertCommand) Is Nothing)) Then
11643                     Me.Adapter.InsertCommand.Transaction = Me._transaction
11644                 End If
11645                 If ((Not (Me.Adapter) Is Nothing) _
11646                             AndAlso (Not (Me.Adapter.UpdateCommand) Is Nothing)) Then
11647                     Me.Adapter.UpdateCommand.Transaction = Me._transaction
11648                 End If
11649             End Set
11650         End Property
11651         
11652         <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
11653          Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0")> _
11654         Protected ReadOnly Property CommandCollection() As Global.System.Data.SqlClient.SqlCommand()
11655             Get
11656                 If (Me._commandCollection Is Nothing) Then
11657                     Me.InitCommandCollection
11658                 End If
11659                 Return Me._commandCollection
11660             End Get
11661         End Property
11662         
11663         <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
11664          Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0")> _
11665         Public Property ClearBeforeFill() As Boolean
11666             Get
11667                 Return Me._clearBeforeFill
11668             End Get
11669             Set
11670                 Me._clearBeforeFill = value
11671             End Set
11672         End Property
11673         
11674         <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
11675          Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0")> _
11676         Private Sub InitAdapter()
11677             Me._adapter = New Global.System.Data.SqlClient.SqlDataAdapter()
11678             Dim tableMapping As Global.System.Data.Common.DataTableMapping = New Global.System.Data.Common.DataTableMapping()
11679             tableMapping.SourceTable = "Table"
11680             tableMapping.DataSetTable = "Category"
11681             tableMapping.ColumnMappings.Add("CategoryName", "CategoryName")
11682             Me._adapter.TableMappings.Add(tableMapping)
11683             Me._adapter.DeleteCommand = New Global.System.Data.SqlClient.SqlCommand()
11684             Me._adapter.DeleteCommand.Connection = Me.Connection
11685             Me._adapter.DeleteCommand.CommandText = "DELETE FROM [dbo].[Category] WHERE (([CategoryName] = @Original_CategoryName))"
11686             Me._adapter.DeleteCommand.CommandType = Global.System.Data.CommandType.Text
11687             Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_CategoryName", Global.System.Data.SqlDbType.NChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "CategoryName", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", ""))
11688             Me._adapter.InsertCommand = New Global.System.Data.SqlClient.SqlCommand()
11689             Me._adapter.InsertCommand.Connection = Me.Connection
11690             Me._adapter.InsertCommand.CommandText = "INSERT INTO [dbo].[Category] ([CategoryName]) VALUES (@CategoryName);"&Global.Microsoft.VisualBasic.ChrW(13)&Global.Microsoft.VisualBasic.ChrW(10)&"SELECT Cat"& _
11691                 "egoryName FROM Category WHERE (CategoryName = @CategoryName)"
11692             Me._adapter.InsertCommand.CommandType = Global.System.Data.CommandType.Text
11693             Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@CategoryName", Global.System.Data.SqlDbType.NChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "CategoryName", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", ""))
11694             Me._adapter.UpdateCommand = New Global.System.Data.SqlClient.SqlCommand()
11695             Me._adapter.UpdateCommand.Connection = Me.Connection
11696             Me._adapter.UpdateCommand.CommandText = "UPDATE [dbo].[Category] SET [CategoryName] = @CategoryName WHERE (([CategoryName]"& _
11697                 " = @Original_CategoryName));"&Global.Microsoft.VisualBasic.ChrW(13)&Global.Microsoft.VisualBasic.ChrW(10)&"SELECT CategoryName FROM Category WHERE (CategoryN"& _
11698                 "ame = @CategoryName)"
11699             Me._adapter.UpdateCommand.CommandType = Global.System.Data.CommandType.Text
11700             Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@CategoryName", Global.System.Data.SqlDbType.NChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "CategoryName", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", ""))
11701             Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_CategoryName", Global.System.Data.SqlDbType.NChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "CategoryName", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", ""))
11702         End Sub
11703         
11704         <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
11705          Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0")> _
11706         Private Sub InitConnection()
11707             Me._connection = New Global.System.Data.SqlClient.SqlConnection()
11708             Me._connection.ConnectionString = Global.Sales_and_Inventory_System.My.MySettings.Default.SIS_DBConnectionString1
11709         End Sub
11710         
11711         <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
11712          Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0")> _
11713         Private Sub InitCommandCollection()
11714             Me._commandCollection = New Global.System.Data.SqlClient.SqlCommand(0) {}
11715             Me._commandCollection(0) = New Global.System.Data.SqlClient.SqlCommand()
11716             Me._commandCollection(0).Connection = Me.Connection
11717             Me._commandCollection(0).CommandText = "SELECT CategoryName FROM dbo.Category"
11718             Me._commandCollection(0).CommandType = Global.System.Data.CommandType.Text
11719         End Sub
11720         
11721         <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
11722          Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0"), _
11723          Global.System.ComponentModel.Design.HelpKeywordAttribute("vs.data.TableAdapter"), _
11724          Global.System.ComponentModel.DataObjectMethodAttribute(Global.System.ComponentModel.DataObjectMethodType.Fill, true)> _
11725         Public Overloads Overridable Function Fill(ByVal dataTable As SIS_DBDataSet.CategoryDataTable) As Integer
11726             Me.Adapter.SelectCommand = Me.CommandCollection(0)
11727             If (Me.ClearBeforeFill = true) Then
11728                 dataTable.Clear
11729             End If
11730             Dim returnValue As Integer = Me.Adapter.Fill(dataTable)
11731             Return returnValue
11732         End Function
11733         
11734         <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
11735          Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0"), _
11736          Global.System.ComponentModel.Design.HelpKeywordAttribute("vs.data.TableAdapter"), _
11737          Global.System.ComponentModel.DataObjectMethodAttribute(Global.System.ComponentModel.DataObjectMethodType.[Select], true)> _
11738         Public Overloads Overridable Function GetData() As SIS_DBDataSet.CategoryDataTable
11739             Me.Adapter.SelectCommand = Me.CommandCollection(0)
11740             Dim dataTable As SIS_DBDataSet.CategoryDataTable = New SIS_DBDataSet.CategoryDataTable()
11741             Me.Adapter.Fill(dataTable)
11742             Return dataTable
11743         End Function
11744         
11745         <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
11746          Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0"), _
11747          Global.System.ComponentModel.Design.HelpKeywordAttribute("vs.data.TableAdapter")> _
11748         Public Overloads Overridable Function Update(ByVal dataTable As SIS_DBDataSet.CategoryDataTable) As Integer
11749             Return Me.Adapter.Update(dataTable)
11750         End Function
11751         
11752         <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
11753          Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0"), _
11754          Global.System.ComponentModel.Design.HelpKeywordAttribute("vs.data.TableAdapter")> _
11755         Public Overloads Overridable Function Update(ByVal dataSet As SIS_DBDataSet) As Integer
11756             Return Me.Adapter.Update(dataSet, "Category")
11757         End Function
11758         
11759         <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
11760          Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0"), _
11761          Global.System.ComponentModel.Design.HelpKeywordAttribute("vs.data.TableAdapter")> _
11762         Public Overloads Overridable Function Update(ByVal dataRow As Global.System.Data.DataRow) As Integer
11763             Return Me.Adapter.Update(New Global.System.Data.DataRow() {dataRow})
11764         End Function
11765         
11766         <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
11767          Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0"), _
11768          Global.System.ComponentModel.Design.HelpKeywordAttribute("vs.data.TableAdapter")> _
11769         Public Overloads Overridable Function Update(ByVal dataRows() As Global.System.Data.DataRow) As Integer
11770             Return Me.Adapter.Update(dataRows)
11771         End Function
11772         
11773         <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
11774          Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0"), _
11775          Global.System.ComponentModel.Design.HelpKeywordAttribute("vs.data.TableAdapter"), _
11776          Global.System.ComponentModel.DataObjectMethodAttribute(Global.System.ComponentModel.DataObjectMethodType.Delete, true)> _
11777         Public Overloads Overridable Function Delete(ByVal Original_CategoryName As String) As Integer
11778             If (Original_CategoryName Is Nothing) Then
11779                 Throw New Global.System.ArgumentNullException("Original_CategoryName")
11780             Else
11781                 Me.Adapter.DeleteCommand.Parameters(0).Value = CType(Original_CategoryName,String)
11782             End If
11783             Dim previousConnectionState As Global.System.Data.ConnectionState = Me.Adapter.DeleteCommand.Connection.State
11784             If ((Me.Adapter.DeleteCommand.Connection.State And Global.System.Data.ConnectionState.Open) _
11785                         <> Global.System.Data.ConnectionState.Open) Then
11786                 Me.Adapter.DeleteCommand.Connection.Open
11787             End If
11788             Try
11789                 Dim returnValue As Integer = Me.Adapter.DeleteCommand.ExecuteNonQuery
11790                 Return returnValue
11791             Finally
11792                 If (previousConnectionState = Global.System.Data.ConnectionState.Closed) Then
11793                     Me.Adapter.DeleteCommand.Connection.Close
11794                 End If
11795             End Try
11796         End Function
11797         
11798         <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
11799          Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0"), _
11800          Global.System.ComponentModel.Design.HelpKeywordAttribute("vs.data.TableAdapter"), _
11801          Global.System.ComponentModel.DataObjectMethodAttribute(Global.System.ComponentModel.DataObjectMethodType.Insert, true)> _
11802         Public Overloads Overridable Function Insert(ByVal CategoryName As String) As Integer
11803             If (CategoryName Is Nothing) Then
11804                 Throw New Global.System.ArgumentNullException("CategoryName")
11805             Else
11806                 Me.Adapter.InsertCommand.Parameters(0).Value = CType(CategoryName,String)
11807             End If
11808             Dim previousConnectionState As Global.System.Data.ConnectionState = Me.Adapter.InsertCommand.Connection.State
11809             If ((Me.Adapter.InsertCommand.Connection.State And Global.System.Data.ConnectionState.Open) _
11810                         <> Global.System.Data.ConnectionState.Open) Then
11811                 Me.Adapter.InsertCommand.Connection.Open
11812             End If
11813             Try
11814                 Dim returnValue As Integer = Me.Adapter.InsertCommand.ExecuteNonQuery
11815                 Return returnValue
11816             Finally
11817                 If (previousConnectionState = Global.System.Data.ConnectionState.Closed) Then
11818                     Me.Adapter.InsertCommand.Connection.Close
11819                 End If
11820             End Try
11821         End Function
11822         
11823         <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
11824          Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0"), _
11825          Global.System.ComponentModel.Design.HelpKeywordAttribute("vs.data.TableAdapter"), _
11826          Global.System.ComponentModel.DataObjectMethodAttribute(Global.System.ComponentModel.DataObjectMethodType.Update, true)> _
11827         Public Overloads Overridable Function Update(ByVal CategoryName As String, ByVal Original_CategoryName As String) As Integer
11828             If (CategoryName Is Nothing) Then
11829                 Throw New Global.System.ArgumentNullException("CategoryName")
11830             Else
11831                 Me.Adapter.UpdateCommand.Parameters(0).Value = CType(CategoryName,String)
11832             End If
11833             If (Original_CategoryName Is Nothing) Then
11834                 Throw New Global.System.ArgumentNullException("Original_CategoryName")
11835             Else
11836                 Me.Adapter.UpdateCommand.Parameters(1).Value = CType(Original_CategoryName,String)
11837             End If
11838             Dim previousConnectionState As Global.System.Data.ConnectionState = Me.Adapter.UpdateCommand.Connection.State
11839             If ((Me.Adapter.UpdateCommand.Connection.State And Global.System.Data.ConnectionState.Open) _
11840                         <> Global.System.Data.ConnectionState.Open) Then
11841                 Me.Adapter.UpdateCommand.Connection.Open
11842             End If
11843             Try
11844                 Dim returnValue As Integer = Me.Adapter.UpdateCommand.ExecuteNonQuery
11845                 Return returnValue
11846             Finally
11847                 If (previousConnectionState = Global.System.Data.ConnectionState.Closed) Then
11848                     Me.Adapter.UpdateCommand.Connection.Close
11849                 End If
11850             End Try
11851         End Function
11852         
11853         <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
11854          Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0"), _
11855          Global.System.ComponentModel.Design.HelpKeywordAttribute("vs.data.TableAdapter"), _
11856          Global.System.ComponentModel.DataObjectMethodAttribute(Global.System.ComponentModel.DataObjectMethodType.Update, true)> _
11857         Public Overloads Overridable Function Update(ByVal Original_CategoryName As String) As Integer
11858             Return Me.Update(Original_CategoryName, Original_CategoryName)
11859         End Function
11860     End Class
11861     
11862     '''<summary>
11863     '''Represents the connection and commands used to retrieve and save data.
11864     '''</summary>
11865     <Global.System.ComponentModel.DesignerCategoryAttribute("code"), _
11866      Global.System.ComponentModel.ToolboxItem(true), _
11867      Global.System.ComponentModel.DataObjectAttribute(true), _
11868      Global.System.ComponentModel.DesignerAttribute("Microsoft.VSDesigner.DataSource.Design.TableAdapterDesigner, Microsoft.VSDesigner"& _
11869         ", Version=10.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a"), _
11870      Global.System.ComponentModel.Design.HelpKeywordAttribute("vs.data.TableAdapter")> _
11871     Partial Public Class CompanyTableAdapter
11872         Inherits Global.System.ComponentModel.Component
11873         
11874         Private WithEvents _adapter As Global.System.Data.SqlClient.SqlDataAdapter
11875         
11876         Private _connection As Global.System.Data.SqlClient.SqlConnection
11877         
11878         Private _transaction As Global.System.Data.SqlClient.SqlTransaction
11879         
11880         Private _commandCollection() As Global.System.Data.SqlClient.SqlCommand
11881         
11882         Private _clearBeforeFill As Boolean
11883         
11884         <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
11885          Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0")> _
11886         Public Sub New()
11887             MyBase.New
11888             Me.ClearBeforeFill = true
11889         End Sub
11890         
11891         <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
11892          Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0")> _
11893         Protected Friend ReadOnly Property Adapter() As Global.System.Data.SqlClient.SqlDataAdapter
11894             Get
11895                 If (Me._adapter Is Nothing) Then
11896                     Me.InitAdapter
11897                 End If
11898                 Return Me._adapter
11899             End Get
11900         End Property
11901         
11902         <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
11903          Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0")> _
11904         Friend Property Connection() As Global.System.Data.SqlClient.SqlConnection
11905             Get
11906                 If (Me._connection Is Nothing) Then
11907                     Me.InitConnection
11908                 End If
11909                 Return Me._connection
11910             End Get
11911             Set
11912                 Me._connection = value
11913                 If (Not (Me.Adapter.InsertCommand) Is Nothing) Then
11914                     Me.Adapter.InsertCommand.Connection = value
11915                 End If
11916                 If (Not (Me.Adapter.DeleteCommand) Is Nothing) Then
11917                     Me.Adapter.DeleteCommand.Connection = value
11918                 End If
11919                 If (Not (Me.Adapter.UpdateCommand) Is Nothing) Then
11920                     Me.Adapter.UpdateCommand.Connection = value
11921                 End If
11922                 Dim i As Integer = 0
11923                 Do While (i < Me.CommandCollection.Length)
11924                     If (Not (Me.CommandCollection(i)) Is Nothing) Then
11925                         CType(Me.CommandCollection(i),Global.System.Data.SqlClient.SqlCommand).Connection = value
11926                     End If
11927                     i = (i + 1)
11928                 Loop
11929             End Set
11930         End Property
11931         
11932         <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
11933          Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0")> _
11934         Friend Property Transaction() As Global.System.Data.SqlClient.SqlTransaction
11935             Get
11936                 Return Me._transaction
11937             End Get
11938             Set
11939                 Me._transaction = value
11940                 Dim i As Integer = 0
11941                 Do While (i < Me.CommandCollection.Length)
11942                     Me.CommandCollection(i).Transaction = Me._transaction
11943                     i = (i + 1)
11944                 Loop
11945                 If ((Not (Me.Adapter) Is Nothing) _
11946                             AndAlso (Not (Me.Adapter.DeleteCommand) Is Nothing)) Then
11947                     Me.Adapter.DeleteCommand.Transaction = Me._transaction
11948                 End If
11949                 If ((Not (Me.Adapter) Is Nothing) _
11950                             AndAlso (Not (Me.Adapter.InsertCommand) Is Nothing)) Then
11951                     Me.Adapter.InsertCommand.Transaction = Me._transaction
11952                 End If
11953                 If ((Not (Me.Adapter) Is Nothing) _
11954                             AndAlso (Not (Me.Adapter.UpdateCommand) Is Nothing)) Then
11955                     Me.Adapter.UpdateCommand.Transaction = Me._transaction
11956                 End If
11957             End Set
11958         End Property
11959         
11960         <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
11961          Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0")> _
11962         Protected ReadOnly Property CommandCollection() As Global.System.Data.SqlClient.SqlCommand()
11963             Get
11964                 If (Me._commandCollection Is Nothing) Then
11965                     Me.InitCommandCollection
11966                 End If
11967                 Return Me._commandCollection
11968             End Get
11969         End Property
11970         
11971         <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
11972          Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0")> _
11973         Public Property ClearBeforeFill() As Boolean
11974             Get
11975                 Return Me._clearBeforeFill
11976             End Get
11977             Set
11978                 Me._clearBeforeFill = value
11979             End Set
11980         End Property
11981         
11982         <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
11983          Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0")> _
11984         Private Sub InitAdapter()
11985             Me._adapter = New Global.System.Data.SqlClient.SqlDataAdapter()
11986             Dim tableMapping As Global.System.Data.Common.DataTableMapping = New Global.System.Data.Common.DataTableMapping()
11987             tableMapping.SourceTable = "Table"
11988             tableMapping.DataSetTable = "Company"
11989             tableMapping.ColumnMappings.Add("ID", "ID")
11990             tableMapping.ColumnMappings.Add("CompanyName", "CompanyName")
11991             tableMapping.ColumnMappings.Add("Address", "Address")
11992             tableMapping.ColumnMappings.Add("ContactNo", "ContactNo")
11993             tableMapping.ColumnMappings.Add("EmailID", "EmailID")
11994             tableMapping.ColumnMappings.Add("Logo", "Logo")
11995             tableMapping.ColumnMappings.Add("TIN", "TIN")
11996             tableMapping.ColumnMappings.Add("STNo", "STNo")
11997             tableMapping.ColumnMappings.Add("CIN", "CIN")
11998             Me._adapter.TableMappings.Add(tableMapping)
11999             Me._adapter.DeleteCommand = New Global.System.Data.SqlClient.SqlCommand()
12000             Me._adapter.DeleteCommand.Connection = Me.Connection
12001             Me._adapter.DeleteCommand.CommandText = "DELETE FROM [dbo].[Company] WHERE (([ID] = @Original_ID) AND ([CompanyName] = @Or"& _
12002                 "iginal_CompanyName) AND ([Address] = @Original_Address) AND ([ContactNo] = @Orig"& _
12003                 "inal_ContactNo) AND ([EmailID] = @Original_EmailID) AND ((@IsNull_TIN = 1 AND [T"& _
12004                 "IN] IS NULL) OR ([TIN] = @Original_TIN)) AND ((@IsNull_STNo = 1 AND [STNo] IS NU"& _
12005                 "LL) OR ([STNo] = @Original_STNo)) AND ((@IsNull_CIN = 1 AND [CIN] IS NULL) OR (["& _
12006                 "CIN] = @Original_CIN)))"
12007             Me._adapter.DeleteCommand.CommandType = Global.System.Data.CommandType.Text
12008             Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_ID", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "ID", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", ""))
12009             Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_CompanyName", Global.System.Data.SqlDbType.NChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "CompanyName", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", ""))
12010             Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_Address", Global.System.Data.SqlDbType.NVarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "Address", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", ""))
12011             Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_ContactNo", Global.System.Data.SqlDbType.NChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "ContactNo", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", ""))
12012             Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_EmailID", Global.System.Data.SqlDbType.NChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "EmailID", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", ""))
12013             Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@IsNull_TIN", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "TIN", Global.System.Data.DataRowVersion.Original, true, Nothing, "", "", ""))
12014             Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_TIN", Global.System.Data.SqlDbType.NChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "TIN", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", ""))
12015             Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@IsNull_STNo", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "STNo", Global.System.Data.DataRowVersion.Original, true, Nothing, "", "", ""))
12016             Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_STNo", Global.System.Data.SqlDbType.NChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "STNo", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", ""))
12017             Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@IsNull_CIN", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "CIN", Global.System.Data.DataRowVersion.Original, true, Nothing, "", "", ""))
12018             Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_CIN", Global.System.Data.SqlDbType.NChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "CIN", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", ""))
12019             Me._adapter.InsertCommand = New Global.System.Data.SqlClient.SqlCommand()
12020             Me._adapter.InsertCommand.Connection = Me.Connection
12021             Me._adapter.InsertCommand.CommandText = "INSERT INTO [dbo].[Company] ([CompanyName], [Address], [ContactNo], [EmailID], [L"& _
12022                 "ogo], [TIN], [STNo], [CIN]) VALUES (@CompanyName, @Address, @ContactNo, @EmailID"& _
12023                 ", @Logo, @TIN, @STNo, @CIN);"&Global.Microsoft.VisualBasic.ChrW(13)&Global.Microsoft.VisualBasic.ChrW(10)&"SELECT ID, CompanyName, Address, ContactNo, EmailI"& _
12024                 "D, Logo, TIN, STNo, CIN FROM Company WHERE (ID = SCOPE_IDENTITY())"
12025             Me._adapter.InsertCommand.CommandType = Global.System.Data.CommandType.Text
12026             Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@CompanyName", Global.System.Data.SqlDbType.NChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "CompanyName", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", ""))
12027             Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Address", Global.System.Data.SqlDbType.NVarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "Address", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", ""))
12028             Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@ContactNo", Global.System.Data.SqlDbType.NChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "ContactNo", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", ""))
12029             Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@EmailID", Global.System.Data.SqlDbType.NChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "EmailID", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", ""))
12030             Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Logo", Global.System.Data.SqlDbType.Image, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "Logo", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", ""))
12031             Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@TIN", Global.System.Data.SqlDbType.NChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "TIN", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", ""))
12032             Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@STNo", Global.System.Data.SqlDbType.NChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "STNo", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", ""))
12033             Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@CIN", Global.System.Data.SqlDbType.NChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "CIN", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", ""))
12034             Me._adapter.UpdateCommand = New Global.System.Data.SqlClient.SqlCommand()
12035             Me._adapter.UpdateCommand.Connection = Me.Connection
12036             Me._adapter.UpdateCommand.CommandText = "UPDATE [dbo].[Company] SET [CompanyName] = @CompanyName, [Address] = @Address, [C"& _
12037                 "ontactNo] = @ContactNo, [EmailID] = @EmailID, [Logo] = @Logo, [TIN] = @TIN, [STN"& _
12038                 "o] = @STNo, [CIN] = @CIN WHERE (([ID] = @Original_ID) AND ([CompanyName] = @Orig"& _
12039                 "inal_CompanyName) AND ([Address] = @Original_Address) AND ([ContactNo] = @Origin"& _
12040                 "al_ContactNo) AND ([EmailID] = @Original_EmailID) AND ((@IsNull_TIN = 1 AND [TIN"& _
12041                 "] IS NULL) OR ([TIN] = @Original_TIN)) AND ((@IsNull_STNo = 1 AND [STNo] IS NULL"& _
12042                 ") OR ([STNo] = @Original_STNo)) AND ((@IsNull_CIN = 1 AND [CIN] IS NULL) OR ([CI"& _
12043                 "N] = @Original_CIN)));"&Global.Microsoft.VisualBasic.ChrW(13)&Global.Microsoft.VisualBasic.ChrW(10)&"SELECT ID, CompanyName, Address, ContactNo, EmailID, Log"& _
12044                 "o, TIN, STNo, CIN FROM Company WHERE (ID = @ID)"
12045             Me._adapter.UpdateCommand.CommandType = Global.System.Data.CommandType.Text
12046             Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@CompanyName", Global.System.Data.SqlDbType.NChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "CompanyName", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", ""))
12047             Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Address", Global.System.Data.SqlDbType.NVarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "Address", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", ""))
12048             Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@ContactNo", Global.System.Data.SqlDbType.NChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "ContactNo", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", ""))
12049             Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@EmailID", Global.System.Data.SqlDbType.NChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "EmailID", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", ""))
12050             Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Logo", Global.System.Data.SqlDbType.Image, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "Logo", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", ""))
12051             Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@TIN", Global.System.Data.SqlDbType.NChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "TIN", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", ""))
12052             Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@STNo", Global.System.Data.SqlDbType.NChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "STNo", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", ""))
12053             Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@CIN", Global.System.Data.SqlDbType.NChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "CIN", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", ""))
12054             Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_ID", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "ID", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", ""))
12055             Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_CompanyName", Global.System.Data.SqlDbType.NChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "CompanyName", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", ""))
12056             Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_Address", Global.System.Data.SqlDbType.NVarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "Address", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", ""))
12057             Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_ContactNo", Global.System.Data.SqlDbType.NChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "ContactNo", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", ""))
12058             Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_EmailID", Global.System.Data.SqlDbType.NChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "EmailID", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", ""))
12059             Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@IsNull_TIN", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "TIN", Global.System.Data.DataRowVersion.Original, true, Nothing, "", "", ""))
12060             Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_TIN", Global.System.Data.SqlDbType.NChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "TIN", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", ""))
12061             Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@IsNull_STNo", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "STNo", Global.System.Data.DataRowVersion.Original, true, Nothing, "", "", ""))
12062             Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_STNo", Global.System.Data.SqlDbType.NChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "STNo", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", ""))
12063             Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@IsNull_CIN", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "CIN", Global.System.Data.DataRowVersion.Original, true, Nothing, "", "", ""))
12064             Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_CIN", Global.System.Data.SqlDbType.NChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "CIN", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", ""))
12065             Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@ID", Global.System.Data.SqlDbType.Int, 4, Global.System.Data.ParameterDirection.Input, 0, 0, "ID", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", ""))
12066         End Sub
12067         
12068         <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
12069          Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0")> _
12070         Private Sub InitConnection()
12071             Me._connection = New Global.System.Data.SqlClient.SqlConnection()
12072             Me._connection.ConnectionString = Global.Sales_and_Inventory_System.My.MySettings.Default.SIS_DBConnectionString1
12073         End Sub
12074         
12075         <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
12076          Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0")> _
12077         Private Sub InitCommandCollection()
12078             Me._commandCollection = New Global.System.Data.SqlClient.SqlCommand(0) {}
12079             Me._commandCollection(0) = New Global.System.Data.SqlClient.SqlCommand()
12080             Me._commandCollection(0).Connection = Me.Connection
12081             Me._commandCollection(0).CommandText = "SELECT ID, CompanyName, Address, ContactNo, EmailID, Logo, TIN, STNo, CIN FROM db"& _
12082                 "o.Company"
12083             Me._commandCollection(0).CommandType = Global.System.Data.CommandType.Text
12084         End Sub
12085         
12086         <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
12087          Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0"), _
12088          Global.System.ComponentModel.Design.HelpKeywordAttribute("vs.data.TableAdapter"), _
12089          Global.System.ComponentModel.DataObjectMethodAttribute(Global.System.ComponentModel.DataObjectMethodType.Fill, true)> _
12090         Public Overloads Overridable Function Fill(ByVal dataTable As SIS_DBDataSet.CompanyDataTable) As Integer
12091             Me.Adapter.SelectCommand = Me.CommandCollection(0)
12092             If (Me.ClearBeforeFill = true) Then
12093                 dataTable.Clear
12094             End If
12095             Dim returnValue As Integer = Me.Adapter.Fill(dataTable)
12096             Return returnValue
12097         End Function
12098         
12099         <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
12100          Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0"), _
12101          Global.System.ComponentModel.Design.HelpKeywordAttribute("vs.data.TableAdapter"), _
12102          Global.System.ComponentModel.DataObjectMethodAttribute(Global.System.ComponentModel.DataObjectMethodType.[Select], true)> _
12103         Public Overloads Overridable Function GetData() As SIS_DBDataSet.CompanyDataTable
12104             Me.Adapter.SelectCommand = Me.CommandCollection(0)
12105             Dim dataTable As SIS_DBDataSet.CompanyDataTable = New SIS_DBDataSet.CompanyDataTable()
12106             Me.Adapter.Fill(dataTable)
12107             Return dataTable
12108         End Function
12109         
12110         <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
12111          Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0"), _
12112          Global.System.ComponentModel.Design.HelpKeywordAttribute("vs.data.TableAdapter")> _
12113         Public Overloads Overridable Function Update(ByVal dataTable As SIS_DBDataSet.CompanyDataTable) As Integer
12114             Return Me.Adapter.Update(dataTable)
12115         End Function
12116         
12117         <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
12118          Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0"), _
12119          Global.System.ComponentModel.Design.HelpKeywordAttribute("vs.data.TableAdapter")> _
12120         Public Overloads Overridable Function Update(ByVal dataSet As SIS_DBDataSet) As Integer
12121             Return Me.Adapter.Update(dataSet, "Company")
12122         End Function
12123         
12124         <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
12125          Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0"), _
12126          Global.System.ComponentModel.Design.HelpKeywordAttribute("vs.data.TableAdapter")> _
12127         Public Overloads Overridable Function Update(ByVal dataRow As Global.System.Data.DataRow) As Integer
12128             Return Me.Adapter.Update(New Global.System.Data.DataRow() {dataRow})
12129         End Function
12130         
12131         <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
12132          Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0"), _
12133          Global.System.ComponentModel.Design.HelpKeywordAttribute("vs.data.TableAdapter")> _
12134         Public Overloads Overridable Function Update(ByVal dataRows() As Global.System.Data.DataRow) As Integer
12135             Return Me.Adapter.Update(dataRows)
12136         End Function
12137         
12138         <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
12139          Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0"), _
12140          Global.System.ComponentModel.Design.HelpKeywordAttribute("vs.data.TableAdapter"), _
12141          Global.System.ComponentModel.DataObjectMethodAttribute(Global.System.ComponentModel.DataObjectMethodType.Delete, true)> _
12142         Public Overloads Overridable Function Delete(ByVal Original_ID As Integer, ByVal Original_CompanyName As String, ByVal Original_Address As String, ByVal Original_ContactNo As String, ByVal Original_EmailID As String, ByVal Original_TIN As String, ByVal Original_STNo As String, ByVal Original_CIN As String) As Integer
12143             Me.Adapter.DeleteCommand.Parameters(0).Value = CType(Original_ID,Integer)
12144             If (Original_CompanyName Is Nothing) Then
12145                 Throw New Global.System.ArgumentNullException("Original_CompanyName")
12146             Else
12147                 Me.Adapter.DeleteCommand.Parameters(1).Value = CType(Original_CompanyName,String)
12148             End If
12149             If (Original_Address Is Nothing) Then
12150                 Throw New Global.System.ArgumentNullException("Original_Address")
12151             Else
12152                 Me.Adapter.DeleteCommand.Parameters(2).Value = CType(Original_Address,String)
12153             End If
12154             If (Original_ContactNo Is Nothing) Then
12155                 Throw New Global.System.ArgumentNullException("Original_ContactNo")
12156             Else
12157                 Me.Adapter.DeleteCommand.Parameters(3).Value = CType(Original_ContactNo,String)
12158             End If
12159             If (Original_EmailID Is Nothing) Then
12160                 Throw New Global.System.ArgumentNullException("Original_EmailID")
12161             Else
12162                 Me.Adapter.DeleteCommand.Parameters(4).Value = CType(Original_EmailID,String)
12163             End If
12164             If (Original_TIN Is Nothing) Then
12165                 Me.Adapter.DeleteCommand.Parameters(5).Value = CType(1,Object)
12166                 Me.Adapter.DeleteCommand.Parameters(6).Value = Global.System.DBNull.Value
12167             Else
12168                 Me.Adapter.DeleteCommand.Parameters(5).Value = CType(0,Object)
12169                 Me.Adapter.DeleteCommand.Parameters(6).Value = CType(Original_TIN,String)
12170             End If
12171             If (Original_STNo Is Nothing) Then
12172                 Me.Adapter.DeleteCommand.Parameters(7).Value = CType(1,Object)
12173                 Me.Adapter.DeleteCommand.Parameters(8).Value = Global.System.DBNull.Value
12174             Else
12175                 Me.Adapter.DeleteCommand.Parameters(7).Value = CType(0,Object)
12176                 Me.Adapter.DeleteCommand.Parameters(8).Value = CType(Original_STNo,String)
12177             End If
12178             If (Original_CIN Is Nothing) Then
12179                 Me.Adapter.DeleteCommand.Parameters(9).Value = CType(1,Object)
12180                 Me.Adapter.DeleteCommand.Parameters(10).Value = Global.System.DBNull.Value
12181             Else
12182                 Me.Adapter.DeleteCommand.Parameters(9).Value = CType(0,Object)
12183                 Me.Adapter.DeleteCommand.Parameters(10).Value = CType(Original_CIN,String)
12184             End If
12185             Dim previousConnectionState As Global.System.Data.ConnectionState = Me.Adapter.DeleteCommand.Connection.State
12186             If ((Me.Adapter.DeleteCommand.Connection.State And Global.System.Data.ConnectionState.Open) _
12187                         <> Global.System.Data.ConnectionState.Open) Then
12188                 Me.Adapter.DeleteCommand.Connection.Open
12189             End If
12190             Try
12191                 Dim returnValue As Integer = Me.Adapter.DeleteCommand.ExecuteNonQuery
12192                 Return returnValue
12193             Finally
12194                 If (previousConnectionState = Global.System.Data.ConnectionState.Closed) Then
12195                     Me.Adapter.DeleteCommand.Connection.Close
12196                 End If
12197             End Try
12198         End Function
12199         
12200         <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
12201          Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0"), _
12202          Global.System.ComponentModel.Design.HelpKeywordAttribute("vs.data.TableAdapter"), _
12203          Global.System.ComponentModel.DataObjectMethodAttribute(Global.System.ComponentModel.DataObjectMethodType.Insert, true)> _
12204         Public Overloads Overridable Function Insert(ByVal CompanyName As String, ByVal Address As String, ByVal ContactNo As String, ByVal EmailID As String, ByVal Logo() As Byte, ByVal TIN As String, ByVal STNo As String, ByVal CIN As String) As Integer
12205             If (CompanyName Is Nothing) Then
12206                 Throw New Global.System.ArgumentNullException("CompanyName")
12207             Else
12208                 Me.Adapter.InsertCommand.Parameters(0).Value = CType(CompanyName,String)
12209             End If
12210             If (Address Is Nothing) Then
12211                 Throw New Global.System.ArgumentNullException("Address")
12212             Else
12213                 Me.Adapter.InsertCommand.Parameters(1).Value = CType(Address,String)
12214             End If
12215             If (ContactNo Is Nothing) Then
12216                 Throw New Global.System.ArgumentNullException("ContactNo")
12217             Else
12218                 Me.Adapter.InsertCommand.Parameters(2).Value = CType(ContactNo,String)
12219             End If
12220             If (EmailID Is Nothing) Then
12221                 Throw New Global.System.ArgumentNullException("EmailID")
12222             Else
12223                 Me.Adapter.InsertCommand.Parameters(3).Value = CType(EmailID,String)
12224             End If
12225             If (Logo Is Nothing) Then
12226                 Throw New Global.System.ArgumentNullException("Logo")
12227             Else
12228                 Me.Adapter.InsertCommand.Parameters(4).Value = CType(Logo,Byte())
12229             End If
12230             If (TIN Is Nothing) Then
12231                 Me.Adapter.InsertCommand.Parameters(5).Value = Global.System.DBNull.Value
12232             Else
12233                 Me.Adapter.InsertCommand.Parameters(5).Value = CType(TIN,String)
12234             End If
12235             If (STNo Is Nothing) Then
12236                 Me.Adapter.InsertCommand.Parameters(6).Value = Global.System.DBNull.Value
12237             Else
12238                 Me.Adapter.InsertCommand.Parameters(6).Value = CType(STNo,String)
12239             End If
12240             If (CIN Is Nothing) Then
12241                 Me.Adapter.InsertCommand.Parameters(7).Value = Global.System.DBNull.Value
12242             Else
12243                 Me.Adapter.InsertCommand.Parameters(7).Value = CType(CIN,String)
12244             End If
12245             Dim previousConnectionState As Global.System.Data.ConnectionState = Me.Adapter.InsertCommand.Connection.State
12246             If ((Me.Adapter.InsertCommand.Connection.State And Global.System.Data.ConnectionState.Open) _
12247                         <> Global.System.Data.ConnectionState.Open) Then
12248                 Me.Adapter.InsertCommand.Connection.Open
12249             End If
12250             Try
12251                 Dim returnValue As Integer = Me.Adapter.InsertCommand.ExecuteNonQuery
12252                 Return returnValue
12253             Finally
12254                 If (previousConnectionState = Global.System.Data.ConnectionState.Closed) Then
12255                     Me.Adapter.InsertCommand.Connection.Close
12256                 End If
12257             End Try
12258         End Function
12259         
12260         <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
12261          Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0"), _
12262          Global.System.ComponentModel.Design.HelpKeywordAttribute("vs.data.TableAdapter"), _
12263          Global.System.ComponentModel.DataObjectMethodAttribute(Global.System.ComponentModel.DataObjectMethodType.Update, true)> _
12264         Public Overloads Overridable Function Update( _
12265                     ByVal CompanyName As String, _
12266                     ByVal Address As String, _
12267                     ByVal ContactNo As String, _
12268                     ByVal EmailID As String, _
12269                     ByVal Logo() As Byte, _
12270                     ByVal TIN As String, _
12271                     ByVal STNo As String, _
12272                     ByVal CIN As String, _
12273                     ByVal Original_ID As Integer, _
12274                     ByVal Original_CompanyName As String, _
12275                     ByVal Original_Address As String, _
12276                     ByVal Original_ContactNo As String, _
12277                     ByVal Original_EmailID As String, _
12278                     ByVal Original_TIN As String, _
12279                     ByVal Original_STNo As String, _
12280                     ByVal Original_CIN As String, _
12281                     ByVal ID As Integer) As Integer
12282             If (CompanyName Is Nothing) Then
12283                 Throw New Global.System.ArgumentNullException("CompanyName")
12284             Else
12285                 Me.Adapter.UpdateCommand.Parameters(0).Value = CType(CompanyName,String)
12286             End If
12287             If (Address Is Nothing) Then
12288                 Throw New Global.System.ArgumentNullException("Address")
12289             Else
12290                 Me.Adapter.UpdateCommand.Parameters(1).Value = CType(Address,String)
12291             End If
12292             If (ContactNo Is Nothing) Then
12293                 Throw New Global.System.ArgumentNullException("ContactNo")
12294             Else
12295                 Me.Adapter.UpdateCommand.Parameters(2).Value = CType(ContactNo,String)
12296             End If
12297             If (EmailID Is Nothing) Then
12298                 Throw New Global.System.ArgumentNullException("EmailID")
12299             Else
12300                 Me.Adapter.UpdateCommand.Parameters(3).Value = CType(EmailID,String)
12301             End If
12302             If (Logo Is Nothing) Then
12303                 Throw New Global.System.ArgumentNullException("Logo")
12304             Else
12305                 Me.Adapter.UpdateCommand.Parameters(4).Value = CType(Logo,Byte())
12306             End If
12307             If (TIN Is Nothing) Then
12308                 Me.Adapter.UpdateCommand.Parameters(5).Value = Global.System.DBNull.Value
12309             Else
12310                 Me.Adapter.UpdateCommand.Parameters(5).Value = CType(TIN,String)
12311             End If
12312             If (STNo Is Nothing) Then
12313                 Me.Adapter.UpdateCommand.Parameters(6).Value = Global.System.DBNull.Value
12314             Else
12315                 Me.Adapter.UpdateCommand.Parameters(6).Value = CType(STNo,String)
12316             End If
12317             If (CIN Is Nothing) Then
12318                 Me.Adapter.UpdateCommand.Parameters(7).Value = Global.System.DBNull.Value
12319             Else
12320                 Me.Adapter.UpdateCommand.Parameters(7).Value = CType(CIN,String)
12321             End If
12322             Me.Adapter.UpdateCommand.Parameters(8).Value = CType(Original_ID,Integer)
12323             If (Original_CompanyName Is Nothing) Then
12324                 Throw New Global.System.ArgumentNullException("Original_CompanyName")
12325             Else
12326                 Me.Adapter.UpdateCommand.Parameters(9).Value = CType(Original_CompanyName,String)
12327             End If
12328             If (Original_Address Is Nothing) Then
12329                 Throw New Global.System.ArgumentNullException("Original_Address")
12330             Else
12331                 Me.Adapter.UpdateCommand.Parameters(10).Value = CType(Original_Address,String)
12332             End If
12333             If (Original_ContactNo Is Nothing) Then
12334                 Throw New Global.System.ArgumentNullException("Original_ContactNo")
12335             Else
12336                 Me.Adapter.UpdateCommand.Parameters(11).Value = CType(Original_ContactNo,String)
12337             End If
12338             If (Original_EmailID Is Nothing) Then
12339                 Throw New Global.System.ArgumentNullException("Original_EmailID")
12340             Else
12341                 Me.Adapter.UpdateCommand.Parameters(12).Value = CType(Original_EmailID,String)
12342             End If
12343             If (Original_TIN Is Nothing) Then
12344                 Me.Adapter.UpdateCommand.Parameters(13).Value = CType(1,Object)
12345                 Me.Adapter.UpdateCommand.Parameters(14).Value = Global.System.DBNull.Value
12346             Else
12347                 Me.Adapter.UpdateCommand.Parameters(13).Value = CType(0,Object)
12348                 Me.Adapter.UpdateCommand.Parameters(14).Value = CType(Original_TIN,String)
12349             End If
12350             If (Original_STNo Is Nothing) Then
12351                 Me.Adapter.UpdateCommand.Parameters(15).Value = CType(1,Object)
12352                 Me.Adapter.UpdateCommand.Parameters(16).Value = Global.System.DBNull.Value
12353             Else
12354                 Me.Adapter.UpdateCommand.Parameters(15).Value = CType(0,Object)
12355                 Me.Adapter.UpdateCommand.Parameters(16).Value = CType(Original_STNo,String)
12356             End If
12357             If (Original_CIN Is Nothing) Then
12358                 Me.Adapter.UpdateCommand.Parameters(17).Value = CType(1,Object)
12359                 Me.Adapter.UpdateCommand.Parameters(18).Value = Global.System.DBNull.Value
12360             Else
12361                 Me.Adapter.UpdateCommand.Parameters(17).Value = CType(0,Object)
12362                 Me.Adapter.UpdateCommand.Parameters(18).Value = CType(Original_CIN,String)
12363             End If
12364             Me.Adapter.UpdateCommand.Parameters(19).Value = CType(ID,Integer)
12365             Dim previousConnectionState As Global.System.Data.ConnectionState = Me.Adapter.UpdateCommand.Connection.State
12366             If ((Me.Adapter.UpdateCommand.Connection.State And Global.System.Data.ConnectionState.Open) _
12367                         <> Global.System.Data.ConnectionState.Open) Then
12368                 Me.Adapter.UpdateCommand.Connection.Open
12369             End If
12370             Try
12371                 Dim returnValue As Integer = Me.Adapter.UpdateCommand.ExecuteNonQuery
12372                 Return returnValue
12373             Finally
12374                 If (previousConnectionState = Global.System.Data.ConnectionState.Closed) Then
12375                     Me.Adapter.UpdateCommand.Connection.Close
12376                 End If
12377             End Try
12378         End Function
12379         
12380         <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
12381          Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0"), _
12382          Global.System.ComponentModel.Design.HelpKeywordAttribute("vs.data.TableAdapter"), _
12383          Global.System.ComponentModel.DataObjectMethodAttribute(Global.System.ComponentModel.DataObjectMethodType.Update, true)> _
12384         Public Overloads Overridable Function Update( _
12385                     ByVal CompanyName As String, _
12386                     ByVal Address As String, _
12387                     ByVal ContactNo As String, _
12388                     ByVal EmailID As String, _
12389                     ByVal Logo() As Byte, _
12390                     ByVal TIN As String, _
12391                     ByVal STNo As String, _
12392                     ByVal CIN As String, _
12393                     ByVal Original_ID As Integer, _
12394                     ByVal Original_CompanyName As String, _
12395                     ByVal Original_Address As String, _
12396                     ByVal Original_ContactNo As String, _
12397                     ByVal Original_EmailID As String, _
12398                     ByVal Original_TIN As String, _
12399                     ByVal Original_STNo As String, _
12400                     ByVal Original_CIN As String) As Integer
12401             Return Me.Update(CompanyName, Address, ContactNo, EmailID, Logo, TIN, STNo, CIN, Original_ID, Original_CompanyName, Original_Address, Original_ContactNo, Original_EmailID, Original_TIN, Original_STNo, Original_CIN, Original_ID)
12402         End Function
12403     End Class
12404     
12405     '''<summary>
12406     '''Represents the connection and commands used to retrieve and save data.
12407     '''</summary>
12408     <Global.System.ComponentModel.DesignerCategoryAttribute("code"), _
12409      Global.System.ComponentModel.ToolboxItem(true), _
12410      Global.System.ComponentModel.DataObjectAttribute(true), _
12411      Global.System.ComponentModel.DesignerAttribute("Microsoft.VSDesigner.DataSource.Design.TableAdapterDesigner, Microsoft.VSDesigner"& _
12412         ", Version=10.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a"), _
12413      Global.System.ComponentModel.Design.HelpKeywordAttribute("vs.data.TableAdapter")> _
12414     Partial Public Class Company_ContactsTableAdapter
12415         Inherits Global.System.ComponentModel.Component
12416         
12417         Private WithEvents _adapter As Global.System.Data.SqlClient.SqlDataAdapter
12418         
12419         Private _connection As Global.System.Data.SqlClient.SqlConnection
12420         
12421         Private _transaction As Global.System.Data.SqlClient.SqlTransaction
12422         
12423         Private _commandCollection() As Global.System.Data.SqlClient.SqlCommand
12424         
12425         Private _clearBeforeFill As Boolean
12426         
12427         <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
12428          Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0")> _
12429         Public Sub New()
12430             MyBase.New
12431             Me.ClearBeforeFill = true
12432         End Sub
12433         
12434         <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
12435          Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0")> _
12436         Protected Friend ReadOnly Property Adapter() As Global.System.Data.SqlClient.SqlDataAdapter
12437             Get
12438                 If (Me._adapter Is Nothing) Then
12439                     Me.InitAdapter
12440                 End If
12441                 Return Me._adapter
12442             End Get
12443         End Property
12444         
12445         <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
12446          Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0")> _
12447         Friend Property Connection() As Global.System.Data.SqlClient.SqlConnection
12448             Get
12449                 If (Me._connection Is Nothing) Then
12450                     Me.InitConnection
12451                 End If
12452                 Return Me._connection
12453             End Get
12454             Set
12455                 Me._connection = value
12456                 If (Not (Me.Adapter.InsertCommand) Is Nothing) Then
12457                     Me.Adapter.InsertCommand.Connection = value
12458                 End If
12459                 If (Not (Me.Adapter.DeleteCommand) Is Nothing) Then
12460                     Me.Adapter.DeleteCommand.Connection = value
12461                 End If
12462                 If (Not (Me.Adapter.UpdateCommand) Is Nothing) Then
12463                     Me.Adapter.UpdateCommand.Connection = value
12464                 End If
12465                 Dim i As Integer = 0
12466                 Do While (i < Me.CommandCollection.Length)
12467                     If (Not (Me.CommandCollection(i)) Is Nothing) Then
12468                         CType(Me.CommandCollection(i),Global.System.Data.SqlClient.SqlCommand).Connection = value
12469                     End If
12470                     i = (i + 1)
12471                 Loop
12472             End Set
12473         End Property
12474         
12475         <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
12476          Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0")> _
12477         Friend Property Transaction() As Global.System.Data.SqlClient.SqlTransaction
12478             Get
12479                 Return Me._transaction
12480             End Get
12481             Set
12482                 Me._transaction = value
12483                 Dim i As Integer = 0
12484                 Do While (i < Me.CommandCollection.Length)
12485                     Me.CommandCollection(i).Transaction = Me._transaction
12486                     i = (i + 1)
12487                 Loop
12488                 If ((Not (Me.Adapter) Is Nothing) _
12489                             AndAlso (Not (Me.Adapter.DeleteCommand) Is Nothing)) Then
12490                     Me.Adapter.DeleteCommand.Transaction = Me._transaction
12491                 End If
12492                 If ((Not (Me.Adapter) Is Nothing) _
12493                             AndAlso (Not (Me.Adapter.InsertCommand) Is Nothing)) Then
12494                     Me.Adapter.InsertCommand.Transaction = Me._transaction
12495                 End If
12496                 If ((Not (Me.Adapter) Is Nothing) _
12497                             AndAlso (Not (Me.Adapter.UpdateCommand) Is Nothing)) Then
12498                     Me.Adapter.UpdateCommand.Transaction = Me._transaction
12499                 End If
12500             End Set
12501         End Property
12502         
12503         <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
12504          Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0")> _
12505         Protected ReadOnly Property CommandCollection() As Global.System.Data.SqlClient.SqlCommand()
12506             Get
12507                 If (Me._commandCollection Is Nothing) Then
12508                     Me.InitCommandCollection
12509                 End If
12510                 Return Me._commandCollection
12511             End Get
12512         End Property
12513         
12514         <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
12515          Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0")> _
12516         Public Property ClearBeforeFill() As Boolean
12517             Get
12518                 Return Me._clearBeforeFill
12519             End Get
12520             Set
12521                 Me._clearBeforeFill = value
12522             End Set
12523         End Property
12524         
12525         <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
12526          Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0")> _
12527         Private Sub InitAdapter()
12528             Me._adapter = New Global.System.Data.SqlClient.SqlDataAdapter()
12529             Dim tableMapping As Global.System.Data.Common.DataTableMapping = New Global.System.Data.Common.DataTableMapping()
12530             tableMapping.SourceTable = "Table"
12531             tableMapping.DataSetTable = "Company_Contacts"
12532             tableMapping.ColumnMappings.Add("Id", "Id")
12533             tableMapping.ColumnMappings.Add("ContactPerson", "ContactPerson")
12534             tableMapping.ColumnMappings.Add("ContactNo", "ContactNo")
12535             Me._adapter.TableMappings.Add(tableMapping)
12536             Me._adapter.DeleteCommand = New Global.System.Data.SqlClient.SqlCommand()
12537             Me._adapter.DeleteCommand.Connection = Me.Connection
12538             Me._adapter.DeleteCommand.CommandText = "DELETE FROM [dbo].[Company_Contacts] WHERE (([Id] = @Original_Id) AND ([ContactPe"& _
12539                 "rson] = @Original_ContactPerson) AND ([ContactNo] = @Original_ContactNo))"
12540             Me._adapter.DeleteCommand.CommandType = Global.System.Data.CommandType.Text
12541             Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_Id", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "Id", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", ""))
12542             Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_ContactPerson", Global.System.Data.SqlDbType.NChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "ContactPerson", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", ""))
12543             Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_ContactNo", Global.System.Data.SqlDbType.NChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "ContactNo", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", ""))
12544             Me._adapter.InsertCommand = New Global.System.Data.SqlClient.SqlCommand()
12545             Me._adapter.InsertCommand.Connection = Me.Connection
12546             Me._adapter.InsertCommand.CommandText = "INSERT INTO [dbo].[Company_Contacts] ([ContactPerson], [ContactNo]) VALUES (@Cont"& _
12547                 "actPerson, @ContactNo);"&Global.Microsoft.VisualBasic.ChrW(13)&Global.Microsoft.VisualBasic.ChrW(10)&"SELECT Id, ContactPerson, ContactNo FROM Company_Contac"& _
12548                 "ts WHERE (Id = SCOPE_IDENTITY())"
12549             Me._adapter.InsertCommand.CommandType = Global.System.Data.CommandType.Text
12550             Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@ContactPerson", Global.System.Data.SqlDbType.NChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "ContactPerson", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", ""))
12551             Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@ContactNo", Global.System.Data.SqlDbType.NChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "ContactNo", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", ""))
12552             Me._adapter.UpdateCommand = New Global.System.Data.SqlClient.SqlCommand()
12553             Me._adapter.UpdateCommand.Connection = Me.Connection
12554             Me._adapter.UpdateCommand.CommandText = "UPDATE [dbo].[Company_Contacts] SET [ContactPerson] = @ContactPerson, [ContactNo]"& _
12555                 " = @ContactNo WHERE (([Id] = @Original_Id) AND ([ContactPerson] = @Original_Cont"& _
12556                 "actPerson) AND ([ContactNo] = @Original_ContactNo));"&Global.Microsoft.VisualBasic.ChrW(13)&Global.Microsoft.VisualBasic.ChrW(10)&"SELECT Id, ContactPerson, "& _
12557                 "ContactNo FROM Company_Contacts WHERE (Id = @Id)"
12558             Me._adapter.UpdateCommand.CommandType = Global.System.Data.CommandType.Text
12559             Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@ContactPerson", Global.System.Data.SqlDbType.NChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "ContactPerson", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", ""))
12560             Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@ContactNo", Global.System.Data.SqlDbType.NChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "ContactNo", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", ""))
12561             Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_Id", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "Id", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", ""))
12562             Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_ContactPerson", Global.System.Data.SqlDbType.NChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "ContactPerson", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", ""))
12563             Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_ContactNo", Global.System.Data.SqlDbType.NChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "ContactNo", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", ""))
12564             Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Id", Global.System.Data.SqlDbType.Int, 4, Global.System.Data.ParameterDirection.Input, 0, 0, "Id", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", ""))
12565         End Sub
12566         
12567         <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
12568          Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0")> _
12569         Private Sub InitConnection()
12570             Me._connection = New Global.System.Data.SqlClient.SqlConnection()
12571             Me._connection.ConnectionString = Global.Sales_and_Inventory_System.My.MySettings.Default.SIS_DBConnectionString1
12572         End Sub
12573         
12574         <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
12575          Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0")> _
12576         Private Sub InitCommandCollection()
12577             Me._commandCollection = New Global.System.Data.SqlClient.SqlCommand(0) {}
12578             Me._commandCollection(0) = New Global.System.Data.SqlClient.SqlCommand()
12579             Me._commandCollection(0).Connection = Me.Connection
12580             Me._commandCollection(0).CommandText = "SELECT Id, ContactPerson, ContactNo FROM dbo.Company_Contacts"
12581             Me._commandCollection(0).CommandType = Global.System.Data.CommandType.Text
12582         End Sub
12583         
12584         <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
12585          Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0"), _
12586          Global.System.ComponentModel.Design.HelpKeywordAttribute("vs.data.TableAdapter"), _
12587          Global.System.ComponentModel.DataObjectMethodAttribute(Global.System.ComponentModel.DataObjectMethodType.Fill, true)> _
12588         Public Overloads Overridable Function Fill(ByVal dataTable As SIS_DBDataSet.Company_ContactsDataTable) As Integer
12589             Me.Adapter.SelectCommand = Me.CommandCollection(0)
12590             If (Me.ClearBeforeFill = true) Then
12591                 dataTable.Clear
12592             End If
12593             Dim returnValue As Integer = Me.Adapter.Fill(dataTable)
12594             Return returnValue
12595         End Function
12596         
12597         <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
12598          Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0"), _
12599          Global.System.ComponentModel.Design.HelpKeywordAttribute("vs.data.TableAdapter"), _
12600          Global.System.ComponentModel.DataObjectMethodAttribute(Global.System.ComponentModel.DataObjectMethodType.[Select], true)> _
12601         Public Overloads Overridable Function GetData() As SIS_DBDataSet.Company_ContactsDataTable
12602             Me.Adapter.SelectCommand = Me.CommandCollection(0)
12603             Dim dataTable As SIS_DBDataSet.Company_ContactsDataTable = New SIS_DBDataSet.Company_ContactsDataTable()
12604             Me.Adapter.Fill(dataTable)
12605             Return dataTable
12606         End Function
12607         
12608         <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
12609          Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0"), _
12610          Global.System.ComponentModel.Design.HelpKeywordAttribute("vs.data.TableAdapter")> _
12611         Public Overloads Overridable Function Update(ByVal dataTable As SIS_DBDataSet.Company_ContactsDataTable) As Integer
12612             Return Me.Adapter.Update(dataTable)
12613         End Function
12614         
12615         <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
12616          Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0"), _
12617          Global.System.ComponentModel.Design.HelpKeywordAttribute("vs.data.TableAdapter")> _
12618         Public Overloads Overridable Function Update(ByVal dataSet As SIS_DBDataSet) As Integer
12619             Return Me.Adapter.Update(dataSet, "Company_Contacts")
12620         End Function
12621         
12622         <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
12623          Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0"), _
12624          Global.System.ComponentModel.Design.HelpKeywordAttribute("vs.data.TableAdapter")> _
12625         Public Overloads Overridable Function Update(ByVal dataRow As Global.System.Data.DataRow) As Integer
12626             Return Me.Adapter.Update(New Global.System.Data.DataRow() {dataRow})
12627         End Function
12628         
12629         <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
12630          Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0"), _
12631          Global.System.ComponentModel.Design.HelpKeywordAttribute("vs.data.TableAdapter")> _
12632         Public Overloads Overridable Function Update(ByVal dataRows() As Global.System.Data.DataRow) As Integer
12633             Return Me.Adapter.Update(dataRows)
12634         End Function
12635         
12636         <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
12637          Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0"), _
12638          Global.System.ComponentModel.Design.HelpKeywordAttribute("vs.data.TableAdapter"), _
12639          Global.System.ComponentModel.DataObjectMethodAttribute(Global.System.ComponentModel.DataObjectMethodType.Delete, true)> _
12640         Public Overloads Overridable Function Delete(ByVal Original_Id As Integer, ByVal Original_ContactPerson As String, ByVal Original_ContactNo As String) As Integer
12641             Me.Adapter.DeleteCommand.Parameters(0).Value = CType(Original_Id,Integer)
12642             If (Original_ContactPerson Is Nothing) Then
12643                 Throw New Global.System.ArgumentNullException("Original_ContactPerson")
12644             Else
12645                 Me.Adapter.DeleteCommand.Parameters(1).Value = CType(Original_ContactPerson,String)
12646             End If
12647             If (Original_ContactNo Is Nothing) Then
12648                 Throw New Global.System.ArgumentNullException("Original_ContactNo")
12649             Else
12650                 Me.Adapter.DeleteCommand.Parameters(2).Value = CType(Original_ContactNo,String)
12651             End If
12652             Dim previousConnectionState As Global.System.Data.ConnectionState = Me.Adapter.DeleteCommand.Connection.State
12653             If ((Me.Adapter.DeleteCommand.Connection.State And Global.System.Data.ConnectionState.Open) _
12654                         <> Global.System.Data.ConnectionState.Open) Then
12655                 Me.Adapter.DeleteCommand.Connection.Open
12656             End If
12657             Try
12658                 Dim returnValue As Integer = Me.Adapter.DeleteCommand.ExecuteNonQuery
12659                 Return returnValue
12660             Finally
12661                 If (previousConnectionState = Global.System.Data.ConnectionState.Closed) Then
12662                     Me.Adapter.DeleteCommand.Connection.Close
12663                 End If
12664             End Try
12665         End Function
12666         
12667         <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
12668          Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0"), _
12669          Global.System.ComponentModel.Design.HelpKeywordAttribute("vs.data.TableAdapter"), _
12670          Global.System.ComponentModel.DataObjectMethodAttribute(Global.System.ComponentModel.DataObjectMethodType.Insert, true)> _
12671         Public Overloads Overridable Function Insert(ByVal ContactPerson As String, ByVal ContactNo As String) As Integer
12672             If (ContactPerson Is Nothing) Then
12673                 Throw New Global.System.ArgumentNullException("ContactPerson")
12674             Else
12675                 Me.Adapter.InsertCommand.Parameters(0).Value = CType(ContactPerson,String)
12676             End If
12677             If (ContactNo Is Nothing) Then
12678                 Throw New Global.System.ArgumentNullException("ContactNo")
12679             Else
12680                 Me.Adapter.InsertCommand.Parameters(1).Value = CType(ContactNo,String)
12681             End If
12682             Dim previousConnectionState As Global.System.Data.ConnectionState = Me.Adapter.InsertCommand.Connection.State
12683             If ((Me.Adapter.InsertCommand.Connection.State And Global.System.Data.ConnectionState.Open) _
12684                         <> Global.System.Data.ConnectionState.Open) Then
12685                 Me.Adapter.InsertCommand.Connection.Open
12686             End If
12687             Try
12688                 Dim returnValue As Integer = Me.Adapter.InsertCommand.ExecuteNonQuery
12689                 Return returnValue
12690             Finally
12691                 If (previousConnectionState = Global.System.Data.ConnectionState.Closed) Then
12692                     Me.Adapter.InsertCommand.Connection.Close
12693                 End If
12694             End Try
12695         End Function
12696         
12697         <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
12698          Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0"), _
12699          Global.System.ComponentModel.Design.HelpKeywordAttribute("vs.data.TableAdapter"), _
12700          Global.System.ComponentModel.DataObjectMethodAttribute(Global.System.ComponentModel.DataObjectMethodType.Update, true)> _
12701         Public Overloads Overridable Function Update(ByVal ContactPerson As String, ByVal ContactNo As String, ByVal Original_Id As Integer, ByVal Original_ContactPerson As String, ByVal Original_ContactNo As String, ByVal Id As Integer) As Integer
12702             If (ContactPerson Is Nothing) Then
12703                 Throw New Global.System.ArgumentNullException("ContactPerson")
12704             Else
12705                 Me.Adapter.UpdateCommand.Parameters(0).Value = CType(ContactPerson,String)
12706             End If
12707             If (ContactNo Is Nothing) Then
12708                 Throw New Global.System.ArgumentNullException("ContactNo")
12709             Else
12710                 Me.Adapter.UpdateCommand.Parameters(1).Value = CType(ContactNo,String)
12711             End If
12712             Me.Adapter.UpdateCommand.Parameters(2).Value = CType(Original_Id,Integer)
12713             If (Original_ContactPerson Is Nothing) Then
12714                 Throw New Global.System.ArgumentNullException("Original_ContactPerson")
12715             Else
12716                 Me.Adapter.UpdateCommand.Parameters(3).Value = CType(Original_ContactPerson,String)
12717             End If
12718             If (Original_ContactNo Is Nothing) Then
12719                 Throw New Global.System.ArgumentNullException("Original_ContactNo")
12720             Else
12721                 Me.Adapter.UpdateCommand.Parameters(4).Value = CType(Original_ContactNo,String)
12722             End If
12723             Me.Adapter.UpdateCommand.Parameters(5).Value = CType(Id,Integer)
12724             Dim previousConnectionState As Global.System.Data.ConnectionState = Me.Adapter.UpdateCommand.Connection.State
12725             If ((Me.Adapter.UpdateCommand.Connection.State And Global.System.Data.ConnectionState.Open) _
12726                         <> Global.System.Data.ConnectionState.Open) Then
12727                 Me.Adapter.UpdateCommand.Connection.Open
12728             End If
12729             Try
12730                 Dim returnValue As Integer = Me.Adapter.UpdateCommand.ExecuteNonQuery
12731                 Return returnValue
12732             Finally
12733                 If (previousConnectionState = Global.System.Data.ConnectionState.Closed) Then
12734                     Me.Adapter.UpdateCommand.Connection.Close
12735                 End If
12736             End Try
12737         End Function
12738         
12739         <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
12740          Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0"), _
12741          Global.System.ComponentModel.Design.HelpKeywordAttribute("vs.data.TableAdapter"), _
12742          Global.System.ComponentModel.DataObjectMethodAttribute(Global.System.ComponentModel.DataObjectMethodType.Update, true)> _
12743         Public Overloads Overridable Function Update(ByVal ContactPerson As String, ByVal ContactNo As String, ByVal Original_Id As Integer, ByVal Original_ContactPerson As String, ByVal Original_ContactNo As String) As Integer
12744             Return Me.Update(ContactPerson, ContactNo, Original_Id, Original_ContactPerson, Original_ContactNo, Original_Id)
12745         End Function
12746     End Class
12747     
12748     '''<summary>
12749     '''Represents the connection and commands used to retrieve and save data.
12750     '''</summary>
12751     <Global.System.ComponentModel.DesignerCategoryAttribute("code"), _
12752      Global.System.ComponentModel.ToolboxItem(true), _
12753      Global.System.ComponentModel.DataObjectAttribute(true), _
12754      Global.System.ComponentModel.DesignerAttribute("Microsoft.VSDesigner.DataSource.Design.TableAdapterDesigner, Microsoft.VSDesigner"& _
12755         ", Version=10.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a"), _
12756      Global.System.ComponentModel.Design.HelpKeywordAttribute("vs.data.TableAdapter")> _
12757     Partial Public Class CustomerTableAdapter
12758         Inherits Global.System.ComponentModel.Component
12759         
12760         Private WithEvents _adapter As Global.System.Data.SqlClient.SqlDataAdapter
12761         
12762         Private _connection As Global.System.Data.SqlClient.SqlConnection
12763         
12764         Private _transaction As Global.System.Data.SqlClient.SqlTransaction
12765         
12766         Private _commandCollection() As Global.System.Data.SqlClient.SqlCommand
12767         
12768         Private _clearBeforeFill As Boolean
12769         
12770         <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
12771          Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0")> _
12772         Public Sub New()
12773             MyBase.New
12774             Me.ClearBeforeFill = true
12775         End Sub
12776         
12777         <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
12778          Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0")> _
12779         Protected Friend ReadOnly Property Adapter() As Global.System.Data.SqlClient.SqlDataAdapter
12780             Get
12781                 If (Me._adapter Is Nothing) Then
12782                     Me.InitAdapter
12783                 End If
12784                 Return Me._adapter
12785             End Get
12786         End Property
12787         
12788         <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
12789          Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0")> _
12790         Friend Property Connection() As Global.System.Data.SqlClient.SqlConnection
12791             Get
12792                 If (Me._connection Is Nothing) Then
12793                     Me.InitConnection
12794                 End If
12795                 Return Me._connection
12796             End Get
12797             Set
12798                 Me._connection = value
12799                 If (Not (Me.Adapter.InsertCommand) Is Nothing) Then
12800                     Me.Adapter.InsertCommand.Connection = value
12801                 End If
12802                 If (Not (Me.Adapter.DeleteCommand) Is Nothing) Then
12803                     Me.Adapter.DeleteCommand.Connection = value
12804                 End If
12805                 If (Not (Me.Adapter.UpdateCommand) Is Nothing) Then
12806                     Me.Adapter.UpdateCommand.Connection = value
12807                 End If
12808                 Dim i As Integer = 0
12809                 Do While (i < Me.CommandCollection.Length)
12810                     If (Not (Me.CommandCollection(i)) Is Nothing) Then
12811                         CType(Me.CommandCollection(i),Global.System.Data.SqlClient.SqlCommand).Connection = value
12812                     End If
12813                     i = (i + 1)
12814                 Loop
12815             End Set
12816         End Property
12817         
12818         <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
12819          Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0")> _
12820         Friend Property Transaction() As Global.System.Data.SqlClient.SqlTransaction
12821             Get
12822                 Return Me._transaction
12823             End Get
12824             Set
12825                 Me._transaction = value
12826                 Dim i As Integer = 0
12827                 Do While (i < Me.CommandCollection.Length)
12828                     Me.CommandCollection(i).Transaction = Me._transaction
12829                     i = (i + 1)
12830                 Loop
12831                 If ((Not (Me.Adapter) Is Nothing) _
12832                             AndAlso (Not (Me.Adapter.DeleteCommand) Is Nothing)) Then
12833                     Me.Adapter.DeleteCommand.Transaction = Me._transaction
12834                 End If
12835                 If ((Not (Me.Adapter) Is Nothing) _
12836                             AndAlso (Not (Me.Adapter.InsertCommand) Is Nothing)) Then
12837                     Me.Adapter.InsertCommand.Transaction = Me._transaction
12838                 End If
12839                 If ((Not (Me.Adapter) Is Nothing) _
12840                             AndAlso (Not (Me.Adapter.UpdateCommand) Is Nothing)) Then
12841                     Me.Adapter.UpdateCommand.Transaction = Me._transaction
12842                 End If
12843             End Set
12844         End Property
12845         
12846         <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
12847          Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0")> _
12848         Protected ReadOnly Property CommandCollection() As Global.System.Data.SqlClient.SqlCommand()
12849             Get
12850                 If (Me._commandCollection Is Nothing) Then
12851                     Me.InitCommandCollection
12852                 End If
12853                 Return Me._commandCollection
12854             End Get
12855         End Property
12856         
12857         <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
12858          Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0")> _
12859         Public Property ClearBeforeFill() As Boolean
12860             Get
12861                 Return Me._clearBeforeFill
12862             End Get
12863             Set
12864                 Me._clearBeforeFill = value
12865             End Set
12866         End Property
12867         
12868         <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
12869          Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0")> _
12870         Private Sub InitAdapter()
12871             Me._adapter = New Global.System.Data.SqlClient.SqlDataAdapter()
12872             Dim tableMapping As Global.System.Data.Common.DataTableMapping = New Global.System.Data.Common.DataTableMapping()
12873             tableMapping.SourceTable = "Table"
12874             tableMapping.DataSetTable = "Customer"
12875             tableMapping.ColumnMappings.Add("ID", "ID")
12876             tableMapping.ColumnMappings.Add("CustomerID", "CustomerID")
12877             tableMapping.ColumnMappings.Add("Name", "Name")
12878             tableMapping.ColumnMappings.Add("Gender", "Gender")
12879             tableMapping.ColumnMappings.Add("Address", "Address")
12880             tableMapping.ColumnMappings.Add("City", "City")
12881             tableMapping.ColumnMappings.Add("State", "State")
12882             tableMapping.ColumnMappings.Add("ZipCode", "ZipCode")
12883             tableMapping.ColumnMappings.Add("ContactNo", "ContactNo")
12884             tableMapping.ColumnMappings.Add("EmailID", "EmailID")
12885             tableMapping.ColumnMappings.Add("Remarks", "Remarks")
12886             tableMapping.ColumnMappings.Add("Photo", "Photo")
12887             Me._adapter.TableMappings.Add(tableMapping)
12888             Me._adapter.DeleteCommand = New Global.System.Data.SqlClient.SqlCommand()
12889             Me._adapter.DeleteCommand.Connection = Me.Connection
12890             Me._adapter.DeleteCommand.CommandText = "DELETE FROM [dbo].[Customer] WHERE (([ID] = @Original_ID) AND ([CustomerID] = @Or"& _
12891                 "iginal_CustomerID) AND ([Name] = @Original_Name) AND ([Gender] = @Original_Gende"& _
12892                 "r) AND ([Address] = @Original_Address) AND ([City] = @Original_City) AND ([State"& _
12893                 "] = @Original_State) AND ((@IsNull_ZipCode = 1 AND [ZipCode] IS NULL) OR ([ZipCo"& _
12894                 "de] = @Original_ZipCode)) AND ([ContactNo] = @Original_ContactNo) AND ((@IsNull_"& _
12895                 "EmailID = 1 AND [EmailID] IS NULL) OR ([EmailID] = @Original_EmailID)))"
12896             Me._adapter.DeleteCommand.CommandType = Global.System.Data.CommandType.Text
12897             Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_ID", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "ID", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", ""))
12898             Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_CustomerID", Global.System.Data.SqlDbType.NChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "CustomerID", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", ""))
12899             Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_Name", Global.System.Data.SqlDbType.NChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "Name", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", ""))
12900             Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_Gender", Global.System.Data.SqlDbType.NChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "Gender", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", ""))
12901             Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_Address", Global.System.Data.SqlDbType.NVarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "Address", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", ""))
12902             Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_City", Global.System.Data.SqlDbType.NChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "City", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", ""))
12903             Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_State", Global.System.Data.SqlDbType.NChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "State", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", ""))
12904             Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@IsNull_ZipCode", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "ZipCode", Global.System.Data.DataRowVersion.Original, true, Nothing, "", "", ""))
12905             Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_ZipCode", Global.System.Data.SqlDbType.NChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "ZipCode", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", ""))
12906             Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_ContactNo", Global.System.Data.SqlDbType.NChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "ContactNo", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", ""))
12907             Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@IsNull_EmailID", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "EmailID", Global.System.Data.DataRowVersion.Original, true, Nothing, "", "", ""))
12908             Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_EmailID", Global.System.Data.SqlDbType.NChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "EmailID", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", ""))
12909             Me._adapter.InsertCommand = New Global.System.Data.SqlClient.SqlCommand()
12910             Me._adapter.InsertCommand.Connection = Me.Connection
12911             Me._adapter.InsertCommand.CommandText = "INSERT INTO [dbo].[Customer] ([ID], [CustomerID], [Name], [Gender], [Address], [C"& _
12912                 "ity], [State], [ZipCode], [ContactNo], [EmailID], [Remarks], [Photo]) VALUES (@I"& _
12913                 "D, @CustomerID, @Name, @Gender, @Address, @City, @State, @ZipCode, @ContactNo, @"& _
12914                 "EmailID, @Remarks, @Photo);"&Global.Microsoft.VisualBasic.ChrW(13)&Global.Microsoft.VisualBasic.ChrW(10)&"SELECT ID, CustomerID, Name, Gender, Address, City,"& _
12915                 " State, ZipCode, ContactNo, EmailID, Remarks, Photo FROM Customer WHERE (ID = @I"& _
12916                 "D)"
12917             Me._adapter.InsertCommand.CommandType = Global.System.Data.CommandType.Text
12918             Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@ID", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "ID", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", ""))
12919             Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@CustomerID", Global.System.Data.SqlDbType.NChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "CustomerID", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", ""))
12920             Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Name", Global.System.Data.SqlDbType.NChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "Name", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", ""))
12921             Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Gender", Global.System.Data.SqlDbType.NChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "Gender", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", ""))
12922             Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Address", Global.System.Data.SqlDbType.NVarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "Address", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", ""))
12923             Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@City", Global.System.Data.SqlDbType.NChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "City", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", ""))
12924             Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@State", Global.System.Data.SqlDbType.NChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "State", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", ""))
12925             Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@ZipCode", Global.System.Data.SqlDbType.NChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "ZipCode", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", ""))
12926             Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@ContactNo", Global.System.Data.SqlDbType.NChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "ContactNo", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", ""))
12927             Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@EmailID", Global.System.Data.SqlDbType.NChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "EmailID", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", ""))
12928             Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Remarks", Global.System.Data.SqlDbType.NVarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "Remarks", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", ""))
12929             Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Photo", Global.System.Data.SqlDbType.Image, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "Photo", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", ""))
12930             Me._adapter.UpdateCommand = New Global.System.Data.SqlClient.SqlCommand()
12931             Me._adapter.UpdateCommand.Connection = Me.Connection
12932             Me._adapter.UpdateCommand.CommandText = "UPDATE [dbo].[Customer] SET [ID] = @ID, [CustomerID] = @CustomerID, [Name] = @Nam"& _
12933                 "e, [Gender] = @Gender, [Address] = @Address, [City] = @City, [State] = @State, ["& _
12934                 "ZipCode] = @ZipCode, [ContactNo] = @ContactNo, [EmailID] = @EmailID, [Remarks] ="& _
12935                 " @Remarks, [Photo] = @Photo WHERE (([ID] = @Original_ID) AND ([CustomerID] = @Or"& _
12936                 "iginal_CustomerID) AND ([Name] = @Original_Name) AND ([Gender] = @Original_Gende"& _
12937                 "r) AND ([Address] = @Original_Address) AND ([City] = @Original_City) AND ([State"& _
12938                 "] = @Original_State) AND ((@IsNull_ZipCode = 1 AND [ZipCode] IS NULL) OR ([ZipCo"& _
12939                 "de] = @Original_ZipCode)) AND ([ContactNo] = @Original_ContactNo) AND ((@IsNull_"& _
12940                 "EmailID = 1 AND [EmailID] IS NULL) OR ([EmailID] = @Original_EmailID)));"&Global.Microsoft.VisualBasic.ChrW(13)&Global.Microsoft.VisualBasic.ChrW(10)&"SELECT"& _
12941                 " ID, CustomerID, Name, Gender, Address, City, State, ZipCode, ContactNo, EmailID"& _
12942                 ", Remarks, Photo FROM Customer WHERE (ID = @ID)"
12943             Me._adapter.UpdateCommand.CommandType = Global.System.Data.CommandType.Text
12944             Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@ID", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "ID", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", ""))
12945             Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@CustomerID", Global.System.Data.SqlDbType.NChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "CustomerID", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", ""))
12946             Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Name", Global.System.Data.SqlDbType.NChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "Name", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", ""))
12947             Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Gender", Global.System.Data.SqlDbType.NChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "Gender", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", ""))
12948             Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Address", Global.System.Data.SqlDbType.NVarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "Address", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", ""))
12949             Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@City", Global.System.Data.SqlDbType.NChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "City", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", ""))
12950             Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@State", Global.System.Data.SqlDbType.NChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "State", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", ""))
12951             Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@ZipCode", Global.System.Data.SqlDbType.NChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "ZipCode", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", ""))
12952             Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@ContactNo", Global.System.Data.SqlDbType.NChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "ContactNo", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", ""))
12953             Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@EmailID", Global.System.Data.SqlDbType.NChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "EmailID", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", ""))
12954             Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Remarks", Global.System.Data.SqlDbType.NVarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "Remarks", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", ""))
12955             Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Photo", Global.System.Data.SqlDbType.Image, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "Photo", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", ""))
12956             Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_ID", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "ID", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", ""))
12957             Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_CustomerID", Global.System.Data.SqlDbType.NChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "CustomerID", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", ""))
12958             Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_Name", Global.System.Data.SqlDbType.NChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "Name", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", ""))
12959             Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_Gender", Global.System.Data.SqlDbType.NChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "Gender", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", ""))
12960             Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_Address", Global.System.Data.SqlDbType.NVarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "Address", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", ""))
12961             Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_City", Global.System.Data.SqlDbType.NChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "City", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", ""))
12962             Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_State", Global.System.Data.SqlDbType.NChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "State", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", ""))
12963             Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@IsNull_ZipCode", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "ZipCode", Global.System.Data.DataRowVersion.Original, true, Nothing, "", "", ""))
12964             Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_ZipCode", Global.System.Data.SqlDbType.NChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "ZipCode", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", ""))
12965             Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_ContactNo", Global.System.Data.SqlDbType.NChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "ContactNo", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", ""))
12966             Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@IsNull_EmailID", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "EmailID", Global.System.Data.DataRowVersion.Original, true, Nothing, "", "", ""))
12967             Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_EmailID", Global.System.Data.SqlDbType.NChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "EmailID", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", ""))
12968         End Sub
12969         
12970         <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
12971          Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0")> _
12972         Private Sub InitConnection()
12973             Me._connection = New Global.System.Data.SqlClient.SqlConnection()
12974             Me._connection.ConnectionString = Global.Sales_and_Inventory_System.My.MySettings.Default.SIS_DBConnectionString1
12975         End Sub
12976         
12977         <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
12978          Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0")> _
12979         Private Sub InitCommandCollection()
12980             Me._commandCollection = New Global.System.Data.SqlClient.SqlCommand(0) {}
12981             Me._commandCollection(0) = New Global.System.Data.SqlClient.SqlCommand()
12982             Me._commandCollection(0).Connection = Me.Connection
12983             Me._commandCollection(0).CommandText = "SELECT ID, CustomerID, Name, Gender, Address, City, State, ZipCode, ContactNo, Em"& _
12984                 "ailID, Remarks, Photo FROM dbo.Customer"
12985             Me._commandCollection(0).CommandType = Global.System.Data.CommandType.Text
12986         End Sub
12987         
12988         <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
12989          Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0"), _
12990          Global.System.ComponentModel.Design.HelpKeywordAttribute("vs.data.TableAdapter"), _
12991          Global.System.ComponentModel.DataObjectMethodAttribute(Global.System.ComponentModel.DataObjectMethodType.Fill, true)> _
12992         Public Overloads Overridable Function Fill(ByVal dataTable As SIS_DBDataSet.CustomerDataTable) As Integer
12993             Me.Adapter.SelectCommand = Me.CommandCollection(0)
12994             If (Me.ClearBeforeFill = true) Then
12995                 dataTable.Clear
12996             End If
12997             Dim returnValue As Integer = Me.Adapter.Fill(dataTable)
12998             Return returnValue
12999         End Function
13000         
13001         <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
13002          Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0"), _
13003          Global.System.ComponentModel.Design.HelpKeywordAttribute("vs.data.TableAdapter"), _
13004          Global.System.ComponentModel.DataObjectMethodAttribute(Global.System.ComponentModel.DataObjectMethodType.[Select], true)> _
13005         Public Overloads Overridable Function GetData() As SIS_DBDataSet.CustomerDataTable
13006             Me.Adapter.SelectCommand = Me.CommandCollection(0)
13007             Dim dataTable As SIS_DBDataSet.CustomerDataTable = New SIS_DBDataSet.CustomerDataTable()
13008             Me.Adapter.Fill(dataTable)
13009             Return dataTable
13010         End Function
13011         
13012         <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
13013          Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0"), _
13014          Global.System.ComponentModel.Design.HelpKeywordAttribute("vs.data.TableAdapter")> _
13015         Public Overloads Overridable Function Update(ByVal dataTable As SIS_DBDataSet.CustomerDataTable) As Integer
13016             Return Me.Adapter.Update(dataTable)
13017         End Function
13018         
13019         <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
13020          Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0"), _
13021          Global.System.ComponentModel.Design.HelpKeywordAttribute("vs.data.TableAdapter")> _
13022         Public Overloads Overridable Function Update(ByVal dataSet As SIS_DBDataSet) As Integer
13023             Return Me.Adapter.Update(dataSet, "Customer")
13024         End Function
13025         
13026         <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
13027          Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0"), _
13028          Global.System.ComponentModel.Design.HelpKeywordAttribute("vs.data.TableAdapter")> _
13029         Public Overloads Overridable Function Update(ByVal dataRow As Global.System.Data.DataRow) As Integer
13030             Return Me.Adapter.Update(New Global.System.Data.DataRow() {dataRow})
13031         End Function
13032         
13033         <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
13034          Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0"), _
13035          Global.System.ComponentModel.Design.HelpKeywordAttribute("vs.data.TableAdapter")> _
13036         Public Overloads Overridable Function Update(ByVal dataRows() As Global.System.Data.DataRow) As Integer
13037             Return Me.Adapter.Update(dataRows)
13038         End Function
13039         
13040         <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
13041          Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0"), _
13042          Global.System.ComponentModel.Design.HelpKeywordAttribute("vs.data.TableAdapter"), _
13043          Global.System.ComponentModel.DataObjectMethodAttribute(Global.System.ComponentModel.DataObjectMethodType.Delete, true)> _
13044         Public Overloads Overridable Function Delete(ByVal Original_ID As Integer, ByVal Original_CustomerID As String, ByVal Original_Name As String, ByVal Original_Gender As String, ByVal Original_Address As String, ByVal Original_City As String, ByVal Original_State As String, ByVal Original_ZipCode As String, ByVal Original_ContactNo As String, ByVal Original_EmailID As String) As Integer
13045             Me.Adapter.DeleteCommand.Parameters(0).Value = CType(Original_ID,Integer)
13046             If (Original_CustomerID Is Nothing) Then
13047                 Throw New Global.System.ArgumentNullException("Original_CustomerID")
13048             Else
13049                 Me.Adapter.DeleteCommand.Parameters(1).Value = CType(Original_CustomerID,String)
13050             End If
13051             If (Original_Name Is Nothing) Then
13052                 Throw New Global.System.ArgumentNullException("Original_Name")
13053             Else
13054                 Me.Adapter.DeleteCommand.Parameters(2).Value = CType(Original_Name,String)
13055             End If
13056             If (Original_Gender Is Nothing) Then
13057                 Throw New Global.System.ArgumentNullException("Original_Gender")
13058             Else
13059                 Me.Adapter.DeleteCommand.Parameters(3).Value = CType(Original_Gender,String)
13060             End If
13061             If (Original_Address Is Nothing) Then
13062                 Throw New Global.System.ArgumentNullException("Original_Address")
13063             Else
13064                 Me.Adapter.DeleteCommand.Parameters(4).Value = CType(Original_Address,String)
13065             End If
13066             If (Original_City Is Nothing) Then
13067                 Throw New Global.System.ArgumentNullException("Original_City")
13068             Else
13069                 Me.Adapter.DeleteCommand.Parameters(5).Value = CType(Original_City,String)
13070             End If
13071             If (Original_State Is Nothing) Then
13072                 Throw New Global.System.ArgumentNullException("Original_State")
13073             Else
13074                 Me.Adapter.DeleteCommand.Parameters(6).Value = CType(Original_State,String)
13075             End If
13076             If (Original_ZipCode Is Nothing) Then
13077                 Me.Adapter.DeleteCommand.Parameters(7).Value = CType(1,Object)
13078                 Me.Adapter.DeleteCommand.Parameters(8).Value = Global.System.DBNull.Value
13079             Else
13080                 Me.Adapter.DeleteCommand.Parameters(7).Value = CType(0,Object)
13081                 Me.Adapter.DeleteCommand.Parameters(8).Value = CType(Original_ZipCode,String)
13082             End If
13083             If (Original_ContactNo Is Nothing) Then
13084                 Throw New Global.System.ArgumentNullException("Original_ContactNo")
13085             Else
13086                 Me.Adapter.DeleteCommand.Parameters(9).Value = CType(Original_ContactNo,String)
13087             End If
13088             If (Original_EmailID Is Nothing) Then
13089                 Me.Adapter.DeleteCommand.Parameters(10).Value = CType(1,Object)
13090                 Me.Adapter.DeleteCommand.Parameters(11).Value = Global.System.DBNull.Value
13091             Else
13092                 Me.Adapter.DeleteCommand.Parameters(10).Value = CType(0,Object)
13093                 Me.Adapter.DeleteCommand.Parameters(11).Value = CType(Original_EmailID,String)
13094             End If
13095             Dim previousConnectionState As Global.System.Data.ConnectionState = Me.Adapter.DeleteCommand.Connection.State
13096             If ((Me.Adapter.DeleteCommand.Connection.State And Global.System.Data.ConnectionState.Open) _
13097                         <> Global.System.Data.ConnectionState.Open) Then
13098                 Me.Adapter.DeleteCommand.Connection.Open
13099             End If
13100             Try
13101                 Dim returnValue As Integer = Me.Adapter.DeleteCommand.ExecuteNonQuery
13102                 Return returnValue
13103             Finally
13104                 If (previousConnectionState = Global.System.Data.ConnectionState.Closed) Then
13105                     Me.Adapter.DeleteCommand.Connection.Close
13106                 End If
13107             End Try
13108         End Function
13109         
13110         <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
13111          Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0"), _
13112          Global.System.ComponentModel.Design.HelpKeywordAttribute("vs.data.TableAdapter"), _
13113          Global.System.ComponentModel.DataObjectMethodAttribute(Global.System.ComponentModel.DataObjectMethodType.Insert, true)> _
13114         Public Overloads Overridable Function Insert(ByVal ID As Integer, ByVal CustomerID As String, ByVal Name As String, ByVal Gender As String, ByVal Address As String, ByVal City As String, ByVal State As String, ByVal ZipCode As String, ByVal ContactNo As String, ByVal EmailID As String, ByVal Remarks As String, ByVal Photo() As Byte) As Integer
13115             Me.Adapter.InsertCommand.Parameters(0).Value = CType(ID,Integer)
13116             If (CustomerID Is Nothing) Then
13117                 Throw New Global.System.ArgumentNullException("CustomerID")
13118             Else
13119                 Me.Adapter.InsertCommand.Parameters(1).Value = CType(CustomerID,String)
13120             End If
13121             If (Name Is Nothing) Then
13122                 Throw New Global.System.ArgumentNullException("Name")
13123             Else
13124                 Me.Adapter.InsertCommand.Parameters(2).Value = CType(Name,String)
13125             End If
13126             If (Gender Is Nothing) Then
13127                 Throw New Global.System.ArgumentNullException("Gender")
13128             Else
13129                 Me.Adapter.InsertCommand.Parameters(3).Value = CType(Gender,String)
13130             End If
13131             If (Address Is Nothing) Then
13132                 Throw New Global.System.ArgumentNullException("Address")
13133             Else
13134                 Me.Adapter.InsertCommand.Parameters(4).Value = CType(Address,String)
13135             End If
13136             If (City Is Nothing) Then
13137                 Throw New Global.System.ArgumentNullException("City")
13138             Else
13139                 Me.Adapter.InsertCommand.Parameters(5).Value = CType(City,String)
13140             End If
13141             If (State Is Nothing) Then
13142                 Throw New Global.System.ArgumentNullException("State")
13143             Else
13144                 Me.Adapter.InsertCommand.Parameters(6).Value = CType(State,String)
13145             End If
13146             If (ZipCode Is Nothing) Then
13147                 Me.Adapter.InsertCommand.Parameters(7).Value = Global.System.DBNull.Value
13148             Else
13149                 Me.Adapter.InsertCommand.Parameters(7).Value = CType(ZipCode,String)
13150             End If
13151             If (ContactNo Is Nothing) Then
13152                 Throw New Global.System.ArgumentNullException("ContactNo")
13153             Else
13154                 Me.Adapter.InsertCommand.Parameters(8).Value = CType(ContactNo,String)
13155             End If
13156             If (EmailID Is Nothing) Then
13157                 Me.Adapter.InsertCommand.Parameters(9).Value = Global.System.DBNull.Value
13158             Else
13159                 Me.Adapter.InsertCommand.Parameters(9).Value = CType(EmailID,String)
13160             End If
13161             If (Remarks Is Nothing) Then
13162                 Me.Adapter.InsertCommand.Parameters(10).Value = Global.System.DBNull.Value
13163             Else
13164                 Me.Adapter.InsertCommand.Parameters(10).Value = CType(Remarks,String)
13165             End If
13166             If (Photo Is Nothing) Then
13167                 Throw New Global.System.ArgumentNullException("Photo")
13168             Else
13169                 Me.Adapter.InsertCommand.Parameters(11).Value = CType(Photo,Byte())
13170             End If
13171             Dim previousConnectionState As Global.System.Data.ConnectionState = Me.Adapter.InsertCommand.Connection.State
13172             If ((Me.Adapter.InsertCommand.Connection.State And Global.System.Data.ConnectionState.Open) _
13173                         <> Global.System.Data.ConnectionState.Open) Then
13174                 Me.Adapter.InsertCommand.Connection.Open
13175             End If
13176             Try
13177                 Dim returnValue As Integer = Me.Adapter.InsertCommand.ExecuteNonQuery
13178                 Return returnValue
13179             Finally
13180                 If (previousConnectionState = Global.System.Data.ConnectionState.Closed) Then
13181                     Me.Adapter.InsertCommand.Connection.Close
13182                 End If
13183             End Try
13184         End Function
13185         
13186         <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
13187          Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0"), _
13188          Global.System.ComponentModel.Design.HelpKeywordAttribute("vs.data.TableAdapter"), _
13189          Global.System.ComponentModel.DataObjectMethodAttribute(Global.System.ComponentModel.DataObjectMethodType.Update, true)> _
13190         Public Overloads Overridable Function Update( _
13191                     ByVal ID As Integer, _
13192                     ByVal CustomerID As String, _
13193                     ByVal Name As String, _
13194                     ByVal Gender As String, _
13195                     ByVal Address As String, _
13196                     ByVal City As String, _
13197                     ByVal State As String, _
13198                     ByVal ZipCode As String, _
13199                     ByVal ContactNo As String, _
13200                     ByVal EmailID As String, _
13201                     ByVal Remarks As String, _
13202                     ByVal Photo() As Byte, _
13203                     ByVal Original_ID As Integer, _
13204                     ByVal Original_CustomerID As String, _
13205                     ByVal Original_Name As String, _
13206                     ByVal Original_Gender As String, _
13207                     ByVal Original_Address As String, _
13208                     ByVal Original_City As String, _
13209                     ByVal Original_State As String, _
13210                     ByVal Original_ZipCode As String, _
13211                     ByVal Original_ContactNo As String, _
13212                     ByVal Original_EmailID As String) As Integer
13213             Me.Adapter.UpdateCommand.Parameters(0).Value = CType(ID,Integer)
13214             If (CustomerID Is Nothing) Then
13215                 Throw New Global.System.ArgumentNullException("CustomerID")
13216             Else
13217                 Me.Adapter.UpdateCommand.Parameters(1).Value = CType(CustomerID,String)
13218             End If
13219             If (Name Is Nothing) Then
13220                 Throw New Global.System.ArgumentNullException("Name")
13221             Else
13222                 Me.Adapter.UpdateCommand.Parameters(2).Value = CType(Name,String)
13223             End If
13224             If (Gender Is Nothing) Then
13225                 Throw New Global.System.ArgumentNullException("Gender")
13226             Else
13227                 Me.Adapter.UpdateCommand.Parameters(3).Value = CType(Gender,String)
13228             End If
13229             If (Address Is Nothing) Then
13230                 Throw New Global.System.ArgumentNullException("Address")
13231             Else
13232                 Me.Adapter.UpdateCommand.Parameters(4).Value = CType(Address,String)
13233             End If
13234             If (City Is Nothing) Then
13235                 Throw New Global.System.ArgumentNullException("City")
13236             Else
13237                 Me.Adapter.UpdateCommand.Parameters(5).Value = CType(City,String)
13238             End If
13239             If (State Is Nothing) Then
13240                 Throw New Global.System.ArgumentNullException("State")
13241             Else
13242                 Me.Adapter.UpdateCommand.Parameters(6).Value = CType(State,String)
13243             End If
13244             If (ZipCode Is Nothing) Then
13245                 Me.Adapter.UpdateCommand.Parameters(7).Value = Global.System.DBNull.Value
13246             Else
13247                 Me.Adapter.UpdateCommand.Parameters(7).Value = CType(ZipCode,String)
13248             End If
13249             If (ContactNo Is Nothing) Then
13250                 Throw New Global.System.ArgumentNullException("ContactNo")
13251             Else
13252                 Me.Adapter.UpdateCommand.Parameters(8).Value = CType(ContactNo,String)
13253             End If
13254             If (EmailID Is Nothing) Then
13255                 Me.Adapter.UpdateCommand.Parameters(9).Value = Global.System.DBNull.Value
13256             Else
13257                 Me.Adapter.UpdateCommand.Parameters(9).Value = CType(EmailID,String)
13258             End If
13259             If (Remarks Is Nothing) Then
13260                 Me.Adapter.UpdateCommand.Parameters(10).Value = Global.System.DBNull.Value
13261             Else
13262                 Me.Adapter.UpdateCommand.Parameters(10).Value = CType(Remarks,String)
13263             End If
13264             If (Photo Is Nothing) Then
13265                 Throw New Global.System.ArgumentNullException("Photo")
13266             Else
13267                 Me.Adapter.UpdateCommand.Parameters(11).Value = CType(Photo,Byte())
13268             End If
13269             Me.Adapter.UpdateCommand.Parameters(12).Value = CType(Original_ID,Integer)
13270             If (Original_CustomerID Is Nothing) Then
13271                 Throw New Global.System.ArgumentNullException("Original_CustomerID")
13272             Else
13273                 Me.Adapter.UpdateCommand.Parameters(13).Value = CType(Original_CustomerID,String)
13274             End If
13275             If (Original_Name Is Nothing) Then
13276                 Throw New Global.System.ArgumentNullException("Original_Name")
13277             Else
13278                 Me.Adapter.UpdateCommand.Parameters(14).Value = CType(Original_Name,String)
13279             End If
13280             If (Original_Gender Is Nothing) Then
13281                 Throw New Global.System.ArgumentNullException("Original_Gender")
13282             Else
13283                 Me.Adapter.UpdateCommand.Parameters(15).Value = CType(Original_Gender,String)
13284             End If
13285             If (Original_Address Is Nothing) Then
13286                 Throw New Global.System.ArgumentNullException("Original_Address")
13287             Else
13288                 Me.Adapter.UpdateCommand.Parameters(16).Value = CType(Original_Address,String)
13289             End If
13290             If (Original_City Is Nothing) Then
13291                 Throw New Global.System.ArgumentNullException("Original_City")
13292             Else
13293                 Me.Adapter.UpdateCommand.Parameters(17).Value = CType(Original_City,String)
13294             End If
13295             If (Original_State Is Nothing) Then
13296                 Throw New Global.System.ArgumentNullException("Original_State")
13297             Else
13298                 Me.Adapter.UpdateCommand.Parameters(18).Value = CType(Original_State,String)
13299             End If
13300             If (Original_ZipCode Is Nothing) Then
13301                 Me.Adapter.UpdateCommand.Parameters(19).Value = CType(1,Object)
13302                 Me.Adapter.UpdateCommand.Parameters(20).Value = Global.System.DBNull.Value
13303             Else
13304                 Me.Adapter.UpdateCommand.Parameters(19).Value = CType(0,Object)
13305                 Me.Adapter.UpdateCommand.Parameters(20).Value = CType(Original_ZipCode,String)
13306             End If
13307             If (Original_ContactNo Is Nothing) Then
13308                 Throw New Global.System.ArgumentNullException("Original_ContactNo")
13309             Else
13310                 Me.Adapter.UpdateCommand.Parameters(21).Value = CType(Original_ContactNo,String)
13311             End If
13312             If (Original_EmailID Is Nothing) Then
13313                 Me.Adapter.UpdateCommand.Parameters(22).Value = CType(1,Object)
13314                 Me.Adapter.UpdateCommand.Parameters(23).Value = Global.System.DBNull.Value
13315             Else
13316                 Me.Adapter.UpdateCommand.Parameters(22).Value = CType(0,Object)
13317                 Me.Adapter.UpdateCommand.Parameters(23).Value = CType(Original_EmailID,String)
13318             End If
13319             Dim previousConnectionState As Global.System.Data.ConnectionState = Me.Adapter.UpdateCommand.Connection.State
13320             If ((Me.Adapter.UpdateCommand.Connection.State And Global.System.Data.ConnectionState.Open) _
13321                         <> Global.System.Data.ConnectionState.Open) Then
13322                 Me.Adapter.UpdateCommand.Connection.Open
13323             End If
13324             Try
13325                 Dim returnValue As Integer = Me.Adapter.UpdateCommand.ExecuteNonQuery
13326                 Return returnValue
13327             Finally
13328                 If (previousConnectionState = Global.System.Data.ConnectionState.Closed) Then
13329                     Me.Adapter.UpdateCommand.Connection.Close
13330                 End If
13331             End Try
13332         End Function
13333         
13334         <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
13335          Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0"), _
13336          Global.System.ComponentModel.Design.HelpKeywordAttribute("vs.data.TableAdapter"), _
13337          Global.System.ComponentModel.DataObjectMethodAttribute(Global.System.ComponentModel.DataObjectMethodType.Update, true)> _
13338         Public Overloads Overridable Function Update( _
13339                     ByVal CustomerID As String, _
13340                     ByVal Name As String, _
13341                     ByVal Gender As String, _
13342                     ByVal Address As String, _
13343                     ByVal City As String, _
13344                     ByVal State As String, _
13345                     ByVal ZipCode As String, _
13346                     ByVal ContactNo As String, _
13347                     ByVal EmailID As String, _
13348                     ByVal Remarks As String, _
13349                     ByVal Photo() As Byte, _
13350                     ByVal Original_ID As Integer, _
13351                     ByVal Original_CustomerID As String, _
13352                     ByVal Original_Name As String, _
13353                     ByVal Original_Gender As String, _
13354                     ByVal Original_Address As String, _
13355                     ByVal Original_City As String, _
13356                     ByVal Original_State As String, _
13357                     ByVal Original_ZipCode As String, _
13358                     ByVal Original_ContactNo As String, _
13359                     ByVal Original_EmailID As String) As Integer
13360             Return Me.Update(Original_ID, CustomerID, Name, Gender, Address, City, State, ZipCode, ContactNo, EmailID, Remarks, Photo, Original_ID, Original_CustomerID, Original_Name, Original_Gender, Original_Address, Original_City, Original_State, Original_ZipCode, Original_ContactNo, Original_EmailID)
13361         End Function
13362     End Class
13363     
13364     '''<summary>
13365     '''Represents the connection and commands used to retrieve and save data.
13366     '''</summary>
13367     <Global.System.ComponentModel.DesignerCategoryAttribute("code"), _
13368      Global.System.ComponentModel.ToolboxItem(true), _
13369      Global.System.ComponentModel.DataObjectAttribute(true), _
13370      Global.System.ComponentModel.DesignerAttribute("Microsoft.VSDesigner.DataSource.Design.TableAdapterDesigner, Microsoft.VSDesigner"& _
13371         ", Version=10.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a"), _
13372      Global.System.ComponentModel.Design.HelpKeywordAttribute("vs.data.TableAdapter")> _
13373     Partial Public Class Invoice_PaymentTableAdapter
13374         Inherits Global.System.ComponentModel.Component
13375         
13376         Private WithEvents _adapter As Global.System.Data.SqlClient.SqlDataAdapter
13377         
13378         Private _connection As Global.System.Data.SqlClient.SqlConnection
13379         
13380         Private _transaction As Global.System.Data.SqlClient.SqlTransaction
13381         
13382         Private _commandCollection() As Global.System.Data.SqlClient.SqlCommand
13383         
13384         Private _clearBeforeFill As Boolean
13385         
13386         <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
13387          Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0")> _
13388         Public Sub New()
13389             MyBase.New
13390             Me.ClearBeforeFill = true
13391         End Sub
13392         
13393         <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
13394          Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0")> _
13395         Protected Friend ReadOnly Property Adapter() As Global.System.Data.SqlClient.SqlDataAdapter
13396             Get
13397                 If (Me._adapter Is Nothing) Then
13398                     Me.InitAdapter
13399                 End If
13400                 Return Me._adapter
13401             End Get
13402         End Property
13403         
13404         <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
13405          Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0")> _
13406         Friend Property Connection() As Global.System.Data.SqlClient.SqlConnection
13407             Get
13408                 If (Me._connection Is Nothing) Then
13409                     Me.InitConnection
13410                 End If
13411                 Return Me._connection
13412             End Get
13413             Set
13414                 Me._connection = value
13415                 If (Not (Me.Adapter.InsertCommand) Is Nothing) Then
13416                     Me.Adapter.InsertCommand.Connection = value
13417                 End If
13418                 If (Not (Me.Adapter.DeleteCommand) Is Nothing) Then
13419                     Me.Adapter.DeleteCommand.Connection = value
13420                 End If
13421                 If (Not (Me.Adapter.UpdateCommand) Is Nothing) Then
13422                     Me.Adapter.UpdateCommand.Connection = value
13423                 End If
13424                 Dim i As Integer = 0
13425                 Do While (i < Me.CommandCollection.Length)
13426                     If (Not (Me.CommandCollection(i)) Is Nothing) Then
13427                         CType(Me.CommandCollection(i),Global.System.Data.SqlClient.SqlCommand).Connection = value
13428                     End If
13429                     i = (i + 1)
13430                 Loop
13431             End Set
13432         End Property
13433         
13434         <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
13435          Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0")> _
13436         Friend Property Transaction() As Global.System.Data.SqlClient.SqlTransaction
13437             Get
13438                 Return Me._transaction
13439             End Get
13440             Set
13441                 Me._transaction = value
13442                 Dim i As Integer = 0
13443                 Do While (i < Me.CommandCollection.Length)
13444                     Me.CommandCollection(i).Transaction = Me._transaction
13445                     i = (i + 1)
13446                 Loop
13447                 If ((Not (Me.Adapter) Is Nothing) _
13448                             AndAlso (Not (Me.Adapter.DeleteCommand) Is Nothing)) Then
13449                     Me.Adapter.DeleteCommand.Transaction = Me._transaction
13450                 End If
13451                 If ((Not (Me.Adapter) Is Nothing) _
13452                             AndAlso (Not (Me.Adapter.InsertCommand) Is Nothing)) Then
13453                     Me.Adapter.InsertCommand.Transaction = Me._transaction
13454                 End If
13455                 If ((Not (Me.Adapter) Is Nothing) _
13456                             AndAlso (Not (Me.Adapter.UpdateCommand) Is Nothing)) Then
13457                     Me.Adapter.UpdateCommand.Transaction = Me._transaction
13458                 End If
13459             End Set
13460         End Property
13461         
13462         <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
13463          Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0")> _
13464         Protected ReadOnly Property CommandCollection() As Global.System.Data.SqlClient.SqlCommand()
13465             Get
13466                 If (Me._commandCollection Is Nothing) Then
13467                     Me.InitCommandCollection
13468                 End If
13469                 Return Me._commandCollection
13470             End Get
13471         End Property
13472         
13473         <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
13474          Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0")> _
13475         Public Property ClearBeforeFill() As Boolean
13476             Get
13477                 Return Me._clearBeforeFill
13478             End Get
13479             Set
13480                 Me._clearBeforeFill = value
13481             End Set
13482         End Property
13483         
13484         <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
13485          Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0")> _
13486         Private Sub InitAdapter()
13487             Me._adapter = New Global.System.Data.SqlClient.SqlDataAdapter()
13488             Dim tableMapping As Global.System.Data.Common.DataTableMapping = New Global.System.Data.Common.DataTableMapping()
13489             tableMapping.SourceTable = "Table"
13490             tableMapping.DataSetTable = "Invoice_Payment"
13491             tableMapping.ColumnMappings.Add("IP_ID", "IP_ID")
13492             tableMapping.ColumnMappings.Add("InvoiceID", "InvoiceID")
13493             tableMapping.ColumnMappings.Add("PaymentDate", "PaymentDate")
13494             tableMapping.ColumnMappings.Add("TotalPaid", "TotalPaid")
13495             tableMapping.ColumnMappings.Add("PaymentMode", "PaymentMode")
13496             Me._adapter.TableMappings.Add(tableMapping)
13497             Me._adapter.DeleteCommand = New Global.System.Data.SqlClient.SqlCommand()
13498             Me._adapter.DeleteCommand.Connection = Me.Connection
13499             Me._adapter.DeleteCommand.CommandText = "DELETE FROM [dbo].[Invoice_Payment] WHERE (([IP_ID] = @Original_IP_ID) AND ([Invo"& _
13500                 "iceID] = @Original_InvoiceID) AND ([PaymentDate] = @Original_PaymentDate) AND (["& _
13501                 "TotalPaid] = @Original_TotalPaid) AND ([PaymentMode] = @Original_PaymentMode))"
13502             Me._adapter.DeleteCommand.CommandType = Global.System.Data.CommandType.Text
13503             Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_IP_ID", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "IP_ID", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", ""))
13504             Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_InvoiceID", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "InvoiceID", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", ""))
13505             Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_PaymentDate", Global.System.Data.SqlDbType.DateTime, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "PaymentDate", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", ""))
13506             Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_TotalPaid", Global.System.Data.SqlDbType.[Decimal], 0, Global.System.Data.ParameterDirection.Input, 18, 2, "TotalPaid", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", ""))
13507             Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_PaymentMode", Global.System.Data.SqlDbType.NChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "PaymentMode", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", ""))
13508             Me._adapter.InsertCommand = New Global.System.Data.SqlClient.SqlCommand()
13509             Me._adapter.InsertCommand.Connection = Me.Connection
13510             Me._adapter.InsertCommand.CommandText = "INSERT INTO [dbo].[Invoice_Payment] ([InvoiceID], [PaymentDate], [TotalPaid], [Pa"& _
13511                 "ymentMode]) VALUES (@InvoiceID, @PaymentDate, @TotalPaid, @PaymentMode);"&Global.Microsoft.VisualBasic.ChrW(13)&Global.Microsoft.VisualBasic.ChrW(10)&"SELECT"& _
13512                 " IP_ID, InvoiceID, PaymentDate, TotalPaid, PaymentMode FROM Invoice_Payment WHER"& _
13513                 "E (IP_ID = SCOPE_IDENTITY())"
13514             Me._adapter.InsertCommand.CommandType = Global.System.Data.CommandType.Text
13515             Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@InvoiceID", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "InvoiceID", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", ""))
13516             Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@PaymentDate", Global.System.Data.SqlDbType.DateTime, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "PaymentDate", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", ""))
13517             Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@TotalPaid", Global.System.Data.SqlDbType.[Decimal], 0, Global.System.Data.ParameterDirection.Input, 18, 2, "TotalPaid", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", ""))
13518             Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@PaymentMode", Global.System.Data.SqlDbType.NChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "PaymentMode", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", ""))
13519             Me._adapter.UpdateCommand = New Global.System.Data.SqlClient.SqlCommand()
13520             Me._adapter.UpdateCommand.Connection = Me.Connection
13521             Me._adapter.UpdateCommand.CommandText = "UPDATE [dbo].[Invoice_Payment] SET [InvoiceID] = @InvoiceID, [PaymentDate] = @Pay"& _
13522                 "mentDate, [TotalPaid] = @TotalPaid, [PaymentMode] = @PaymentMode WHERE (([IP_ID]"& _
13523                 " = @Original_IP_ID) AND ([InvoiceID] = @Original_InvoiceID) AND ([PaymentDate] ="& _
13524                 " @Original_PaymentDate) AND ([TotalPaid] = @Original_TotalPaid) AND ([PaymentMod"& _
13525                 "e] = @Original_PaymentMode));"&Global.Microsoft.VisualBasic.ChrW(13)&Global.Microsoft.VisualBasic.ChrW(10)&"SELECT IP_ID, InvoiceID, PaymentDate, TotalPaid, "& _
13526                 "PaymentMode FROM Invoice_Payment WHERE (IP_ID = @IP_ID)"
13527             Me._adapter.UpdateCommand.CommandType = Global.System.Data.CommandType.Text
13528             Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@InvoiceID", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "InvoiceID", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", ""))
13529             Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@PaymentDate", Global.System.Data.SqlDbType.DateTime, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "PaymentDate", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", ""))
13530             Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@TotalPaid", Global.System.Data.SqlDbType.[Decimal], 0, Global.System.Data.ParameterDirection.Input, 18, 2, "TotalPaid", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", ""))
13531             Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@PaymentMode", Global.System.Data.SqlDbType.NChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "PaymentMode", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", ""))
13532             Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_IP_ID", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "IP_ID", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", ""))
13533             Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_InvoiceID", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "InvoiceID", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", ""))
13534             Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_PaymentDate", Global.System.Data.SqlDbType.DateTime, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "PaymentDate", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", ""))
13535             Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_TotalPaid", Global.System.Data.SqlDbType.[Decimal], 0, Global.System.Data.ParameterDirection.Input, 18, 2, "TotalPaid", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", ""))
13536             Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_PaymentMode", Global.System.Data.SqlDbType.NChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "PaymentMode", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", ""))
13537             Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@IP_ID", Global.System.Data.SqlDbType.Int, 4, Global.System.Data.ParameterDirection.Input, 0, 0, "IP_ID", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", ""))
13538         End Sub
13539         
13540         <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
13541          Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0")> _
13542         Private Sub InitConnection()
13543             Me._connection = New Global.System.Data.SqlClient.SqlConnection()
13544             Me._connection.ConnectionString = Global.Sales_and_Inventory_System.My.MySettings.Default.SIS_DBConnectionString1
13545         End Sub
13546         
13547         <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
13548          Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0")> _
13549         Private Sub InitCommandCollection()
13550             Me._commandCollection = New Global.System.Data.SqlClient.SqlCommand(0) {}
13551             Me._commandCollection(0) = New Global.System.Data.SqlClient.SqlCommand()
13552             Me._commandCollection(0).Connection = Me.Connection
13553             Me._commandCollection(0).CommandText = "SELECT IP_ID, InvoiceID, PaymentDate, TotalPaid, PaymentMode FROM dbo.Invoice_Pay"& _
13554                 "ment"
13555             Me._commandCollection(0).CommandType = Global.System.Data.CommandType.Text
13556         End Sub
13557         
13558         <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
13559          Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0"), _
13560          Global.System.ComponentModel.Design.HelpKeywordAttribute("vs.data.TableAdapter"), _
13561          Global.System.ComponentModel.DataObjectMethodAttribute(Global.System.ComponentModel.DataObjectMethodType.Fill, true)> _
13562         Public Overloads Overridable Function Fill(ByVal dataTable As SIS_DBDataSet.Invoice_PaymentDataTable) As Integer
13563             Me.Adapter.SelectCommand = Me.CommandCollection(0)
13564             If (Me.ClearBeforeFill = true) Then
13565                 dataTable.Clear
13566             End If
13567             Dim returnValue As Integer = Me.Adapter.Fill(dataTable)
13568             Return returnValue
13569         End Function
13570         
13571         <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
13572          Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0"), _
13573          Global.System.ComponentModel.Design.HelpKeywordAttribute("vs.data.TableAdapter"), _
13574          Global.System.ComponentModel.DataObjectMethodAttribute(Global.System.ComponentModel.DataObjectMethodType.[Select], true)> _
13575         Public Overloads Overridable Function GetData() As SIS_DBDataSet.Invoice_PaymentDataTable
13576             Me.Adapter.SelectCommand = Me.CommandCollection(0)
13577             Dim dataTable As SIS_DBDataSet.Invoice_PaymentDataTable = New SIS_DBDataSet.Invoice_PaymentDataTable()
13578             Me.Adapter.Fill(dataTable)
13579             Return dataTable
13580         End Function
13581         
13582         <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
13583          Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0"), _
13584          Global.System.ComponentModel.Design.HelpKeywordAttribute("vs.data.TableAdapter")> _
13585         Public Overloads Overridable Function Update(ByVal dataTable As SIS_DBDataSet.Invoice_PaymentDataTable) As Integer
13586             Return Me.Adapter.Update(dataTable)
13587         End Function
13588         
13589         <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
13590          Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0"), _
13591          Global.System.ComponentModel.Design.HelpKeywordAttribute("vs.data.TableAdapter")> _
13592         Public Overloads Overridable Function Update(ByVal dataSet As SIS_DBDataSet) As Integer
13593             Return Me.Adapter.Update(dataSet, "Invoice_Payment")
13594         End Function
13595         
13596         <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
13597          Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0"), _
13598          Global.System.ComponentModel.Design.HelpKeywordAttribute("vs.data.TableAdapter")> _
13599         Public Overloads Overridable Function Update(ByVal dataRow As Global.System.Data.DataRow) As Integer
13600             Return Me.Adapter.Update(New Global.System.Data.DataRow() {dataRow})
13601         End Function
13602         
13603         <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
13604          Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0"), _
13605          Global.System.ComponentModel.Design.HelpKeywordAttribute("vs.data.TableAdapter")> _
13606         Public Overloads Overridable Function Update(ByVal dataRows() As Global.System.Data.DataRow) As Integer
13607             Return Me.Adapter.Update(dataRows)
13608         End Function
13609         
13610         <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
13611          Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0"), _
13612          Global.System.ComponentModel.Design.HelpKeywordAttribute("vs.data.TableAdapter"), _
13613          Global.System.ComponentModel.DataObjectMethodAttribute(Global.System.ComponentModel.DataObjectMethodType.Delete, true)> _
13614         Public Overloads Overridable Function Delete(ByVal Original_IP_ID As Integer, ByVal Original_InvoiceID As Integer, ByVal Original_PaymentDate As Date, ByVal Original_TotalPaid As Decimal, ByVal Original_PaymentMode As String) As Integer
13615             Me.Adapter.DeleteCommand.Parameters(0).Value = CType(Original_IP_ID,Integer)
13616             Me.Adapter.DeleteCommand.Parameters(1).Value = CType(Original_InvoiceID,Integer)
13617             Me.Adapter.DeleteCommand.Parameters(2).Value = CType(Original_PaymentDate,Date)
13618             Me.Adapter.DeleteCommand.Parameters(3).Value = CType(Original_TotalPaid,Decimal)
13619             If (Original_PaymentMode Is Nothing) Then
13620                 Throw New Global.System.ArgumentNullException("Original_PaymentMode")
13621             Else
13622                 Me.Adapter.DeleteCommand.Parameters(4).Value = CType(Original_PaymentMode,String)
13623             End If
13624             Dim previousConnectionState As Global.System.Data.ConnectionState = Me.Adapter.DeleteCommand.Connection.State
13625             If ((Me.Adapter.DeleteCommand.Connection.State And Global.System.Data.ConnectionState.Open) _
13626                         <> Global.System.Data.ConnectionState.Open) Then
13627                 Me.Adapter.DeleteCommand.Connection.Open
13628             End If
13629             Try
13630                 Dim returnValue As Integer = Me.Adapter.DeleteCommand.ExecuteNonQuery
13631                 Return returnValue
13632             Finally
13633                 If (previousConnectionState = Global.System.Data.ConnectionState.Closed) Then
13634                     Me.Adapter.DeleteCommand.Connection.Close
13635                 End If
13636             End Try
13637         End Function
13638         
13639         <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
13640          Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0"), _
13641          Global.System.ComponentModel.Design.HelpKeywordAttribute("vs.data.TableAdapter"), _
13642          Global.System.ComponentModel.DataObjectMethodAttribute(Global.System.ComponentModel.DataObjectMethodType.Insert, true)> _
13643         Public Overloads Overridable Function Insert(ByVal InvoiceID As Integer, ByVal PaymentDate As Date, ByVal TotalPaid As Decimal, ByVal PaymentMode As String) As Integer
13644             Me.Adapter.InsertCommand.Parameters(0).Value = CType(InvoiceID,Integer)
13645             Me.Adapter.InsertCommand.Parameters(1).Value = CType(PaymentDate,Date)
13646             Me.Adapter.InsertCommand.Parameters(2).Value = CType(TotalPaid,Decimal)
13647             If (PaymentMode Is Nothing) Then
13648                 Throw New Global.System.ArgumentNullException("PaymentMode")
13649             Else
13650                 Me.Adapter.InsertCommand.Parameters(3).Value = CType(PaymentMode,String)
13651             End If
13652             Dim previousConnectionState As Global.System.Data.ConnectionState = Me.Adapter.InsertCommand.Connection.State
13653             If ((Me.Adapter.InsertCommand.Connection.State And Global.System.Data.ConnectionState.Open) _
13654                         <> Global.System.Data.ConnectionState.Open) Then
13655                 Me.Adapter.InsertCommand.Connection.Open
13656             End If
13657             Try
13658                 Dim returnValue As Integer = Me.Adapter.InsertCommand.ExecuteNonQuery
13659                 Return returnValue
13660             Finally
13661                 If (previousConnectionState = Global.System.Data.ConnectionState.Closed) Then
13662                     Me.Adapter.InsertCommand.Connection.Close
13663                 End If
13664             End Try
13665         End Function
13666         
13667         <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
13668          Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0"), _
13669          Global.System.ComponentModel.Design.HelpKeywordAttribute("vs.data.TableAdapter"), _
13670          Global.System.ComponentModel.DataObjectMethodAttribute(Global.System.ComponentModel.DataObjectMethodType.Update, true)> _
13671         Public Overloads Overridable Function Update(ByVal InvoiceID As Integer, ByVal PaymentDate As Date, ByVal TotalPaid As Decimal, ByVal PaymentMode As String, ByVal Original_IP_ID As Integer, ByVal Original_InvoiceID As Integer, ByVal Original_PaymentDate As Date, ByVal Original_TotalPaid As Decimal, ByVal Original_PaymentMode As String, ByVal IP_ID As Integer) As Integer
13672             Me.Adapter.UpdateCommand.Parameters(0).Value = CType(InvoiceID,Integer)
13673             Me.Adapter.UpdateCommand.Parameters(1).Value = CType(PaymentDate,Date)
13674             Me.Adapter.UpdateCommand.Parameters(2).Value = CType(TotalPaid,Decimal)
13675             If (PaymentMode Is Nothing) Then
13676                 Throw New Global.System.ArgumentNullException("PaymentMode")
13677             Else
13678                 Me.Adapter.UpdateCommand.Parameters(3).Value = CType(PaymentMode,String)
13679             End If
13680             Me.Adapter.UpdateCommand.Parameters(4).Value = CType(Original_IP_ID,Integer)
13681             Me.Adapter.UpdateCommand.Parameters(5).Value = CType(Original_InvoiceID,Integer)
13682             Me.Adapter.UpdateCommand.Parameters(6).Value = CType(Original_PaymentDate,Date)
13683             Me.Adapter.UpdateCommand.Parameters(7).Value = CType(Original_TotalPaid,Decimal)
13684             If (Original_PaymentMode Is Nothing) Then
13685                 Throw New Global.System.ArgumentNullException("Original_PaymentMode")
13686             Else
13687                 Me.Adapter.UpdateCommand.Parameters(8).Value = CType(Original_PaymentMode,String)
13688             End If
13689             Me.Adapter.UpdateCommand.Parameters(9).Value = CType(IP_ID,Integer)
13690             Dim previousConnectionState As Global.System.Data.ConnectionState = Me.Adapter.UpdateCommand.Connection.State
13691             If ((Me.Adapter.UpdateCommand.Connection.State And Global.System.Data.ConnectionState.Open) _
13692                         <> Global.System.Data.ConnectionState.Open) Then
13693                 Me.Adapter.UpdateCommand.Connection.Open
13694             End If
13695             Try
13696                 Dim returnValue As Integer = Me.Adapter.UpdateCommand.ExecuteNonQuery
13697                 Return returnValue
13698             Finally
13699                 If (previousConnectionState = Global.System.Data.ConnectionState.Closed) Then
13700                     Me.Adapter.UpdateCommand.Connection.Close
13701                 End If
13702             End Try
13703         End Function
13704         
13705         <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
13706          Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0"), _
13707          Global.System.ComponentModel.Design.HelpKeywordAttribute("vs.data.TableAdapter"), _
13708          Global.System.ComponentModel.DataObjectMethodAttribute(Global.System.ComponentModel.DataObjectMethodType.Update, true)> _
13709         Public Overloads Overridable Function Update(ByVal InvoiceID As Integer, ByVal PaymentDate As Date, ByVal TotalPaid As Decimal, ByVal PaymentMode As String, ByVal Original_IP_ID As Integer, ByVal Original_InvoiceID As Integer, ByVal Original_PaymentDate As Date, ByVal Original_TotalPaid As Decimal, ByVal Original_PaymentMode As String) As Integer
13710             Return Me.Update(InvoiceID, PaymentDate, TotalPaid, PaymentMode, Original_IP_ID, Original_InvoiceID, Original_PaymentDate, Original_TotalPaid, Original_PaymentMode, Original_IP_ID)
13711         End Function
13712     End Class
13713     
13714     '''<summary>
13715     '''Represents the connection and commands used to retrieve and save data.
13716     '''</summary>
13717     <Global.System.ComponentModel.DesignerCategoryAttribute("code"), _
13718      Global.System.ComponentModel.ToolboxItem(true), _
13719      Global.System.ComponentModel.DataObjectAttribute(true), _
13720      Global.System.ComponentModel.DesignerAttribute("Microsoft.VSDesigner.DataSource.Design.TableAdapterDesigner, Microsoft.VSDesigner"& _
13721         ", Version=10.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a"), _
13722      Global.System.ComponentModel.Design.HelpKeywordAttribute("vs.data.TableAdapter")> _
13723     Partial Public Class Invoice_ProductTableAdapter
13724         Inherits Global.System.ComponentModel.Component
13725         
13726         Private WithEvents _adapter As Global.System.Data.SqlClient.SqlDataAdapter
13727         
13728         Private _connection As Global.System.Data.SqlClient.SqlConnection
13729         
13730         Private _transaction As Global.System.Data.SqlClient.SqlTransaction
13731         
13732         Private _commandCollection() As Global.System.Data.SqlClient.SqlCommand
13733         
13734         Private _clearBeforeFill As Boolean
13735         
13736         <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
13737          Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0")> _
13738         Public Sub New()
13739             MyBase.New
13740             Me.ClearBeforeFill = true
13741         End Sub
13742         
13743         <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
13744          Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0")> _
13745         Protected Friend ReadOnly Property Adapter() As Global.System.Data.SqlClient.SqlDataAdapter
13746             Get
13747                 If (Me._adapter Is Nothing) Then
13748                     Me.InitAdapter
13749                 End If
13750                 Return Me._adapter
13751             End Get
13752         End Property
13753         
13754         <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
13755          Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0")> _
13756         Friend Property Connection() As Global.System.Data.SqlClient.SqlConnection
13757             Get
13758                 If (Me._connection Is Nothing) Then
13759                     Me.InitConnection
13760                 End If
13761                 Return Me._connection
13762             End Get
13763             Set
13764                 Me._connection = value
13765                 If (Not (Me.Adapter.InsertCommand) Is Nothing) Then
13766                     Me.Adapter.InsertCommand.Connection = value
13767                 End If
13768                 If (Not (Me.Adapter.DeleteCommand) Is Nothing) Then
13769                     Me.Adapter.DeleteCommand.Connection = value
13770                 End If
13771                 If (Not (Me.Adapter.UpdateCommand) Is Nothing) Then
13772                     Me.Adapter.UpdateCommand.Connection = value
13773                 End If
13774                 Dim i As Integer = 0
13775                 Do While (i < Me.CommandCollection.Length)
13776                     If (Not (Me.CommandCollection(i)) Is Nothing) Then
13777                         CType(Me.CommandCollection(i),Global.System.Data.SqlClient.SqlCommand).Connection = value
13778                     End If
13779                     i = (i + 1)
13780                 Loop
13781             End Set
13782         End Property
13783         
13784         <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
13785          Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0")> _
13786         Friend Property Transaction() As Global.System.Data.SqlClient.SqlTransaction
13787             Get
13788                 Return Me._transaction
13789             End Get
13790             Set
13791                 Me._transaction = value
13792                 Dim i As Integer = 0
13793                 Do While (i < Me.CommandCollection.Length)
13794                     Me.CommandCollection(i).Transaction = Me._transaction
13795                     i = (i + 1)
13796                 Loop
13797                 If ((Not (Me.Adapter) Is Nothing) _
13798                             AndAlso (Not (Me.Adapter.DeleteCommand) Is Nothing)) Then
13799                     Me.Adapter.DeleteCommand.Transaction = Me._transaction
13800                 End If
13801                 If ((Not (Me.Adapter) Is Nothing) _
13802                             AndAlso (Not (Me.Adapter.InsertCommand) Is Nothing)) Then
13803                     Me.Adapter.InsertCommand.Transaction = Me._transaction
13804                 End If
13805                 If ((Not (Me.Adapter) Is Nothing) _
13806                             AndAlso (Not (Me.Adapter.UpdateCommand) Is Nothing)) Then
13807                     Me.Adapter.UpdateCommand.Transaction = Me._transaction
13808                 End If
13809             End Set
13810         End Property
13811         
13812         <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
13813          Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0")> _
13814         Protected ReadOnly Property CommandCollection() As Global.System.Data.SqlClient.SqlCommand()
13815             Get
13816                 If (Me._commandCollection Is Nothing) Then
13817                     Me.InitCommandCollection
13818                 End If
13819                 Return Me._commandCollection
13820             End Get
13821         End Property
13822         
13823         <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
13824          Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0")> _
13825         Public Property ClearBeforeFill() As Boolean
13826             Get
13827                 Return Me._clearBeforeFill
13828             End Get
13829             Set
13830                 Me._clearBeforeFill = value
13831             End Set
13832         End Property
13833         
13834         <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
13835          Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0")> _
13836         Private Sub InitAdapter()
13837             Me._adapter = New Global.System.Data.SqlClient.SqlDataAdapter()
13838             Dim tableMapping As Global.System.Data.Common.DataTableMapping = New Global.System.Data.Common.DataTableMapping()
13839             tableMapping.SourceTable = "Table"
13840             tableMapping.DataSetTable = "Invoice_Product"
13841             tableMapping.ColumnMappings.Add("IPo_ID", "IPo_ID")
13842             tableMapping.ColumnMappings.Add("InvoiceID", "InvoiceID")
13843             tableMapping.ColumnMappings.Add("ProductID", "ProductID")
13844             tableMapping.ColumnMappings.Add("CostPrice", "CostPrice")
13845             tableMapping.ColumnMappings.Add("SellingPrice", "SellingPrice")
13846             tableMapping.ColumnMappings.Add("Margin", "Margin")
13847             tableMapping.ColumnMappings.Add("Qty", "Qty")
13848             tableMapping.ColumnMappings.Add("Amount", "Amount")
13849             tableMapping.ColumnMappings.Add("DiscountPer", "DiscountPer")
13850             tableMapping.ColumnMappings.Add("Discount", "Discount")
13851             tableMapping.ColumnMappings.Add("VATPer", "VATPer")
13852             tableMapping.ColumnMappings.Add("VAT", "VAT")
13853             tableMapping.ColumnMappings.Add("TotalAmount", "TotalAmount")
13854             Me._adapter.TableMappings.Add(tableMapping)
13855             Me._adapter.DeleteCommand = New Global.System.Data.SqlClient.SqlCommand()
13856             Me._adapter.DeleteCommand.Connection = Me.Connection
13857             Me._adapter.DeleteCommand.CommandText = "DELETE FROM [dbo].[Invoice_Product] WHERE (([IPo_ID] = @Original_IPo_ID) AND ([In"& _
13858                 "voiceID] = @Original_InvoiceID) AND ([ProductID] = @Original_ProductID) AND ([Co"& _
13859                 "stPrice] = @Original_CostPrice) AND ([SellingPrice] = @Original_SellingPrice) AN"& _
13860                 "D ([Margin] = @Original_Margin) AND ([Qty] = @Original_Qty) AND ([Amount] = @Ori"& _
13861                 "ginal_Amount) AND ([DiscountPer] = @Original_DiscountPer) AND ([Discount] = @Ori"& _
13862                 "ginal_Discount) AND ([VATPer] = @Original_VATPer) AND ([VAT] = @Original_VAT) AN"& _
13863                 "D ([TotalAmount] = @Original_TotalAmount))"
13864             Me._adapter.DeleteCommand.CommandType = Global.System.Data.CommandType.Text
13865             Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_IPo_ID", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "IPo_ID", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", ""))
13866             Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_InvoiceID", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "InvoiceID", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", ""))
13867             Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_ProductID", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "ProductID", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", ""))
13868             Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_CostPrice", Global.System.Data.SqlDbType.[Decimal], 0, Global.System.Data.ParameterDirection.Input, 18, 2, "CostPrice", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", ""))
13869             Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_SellingPrice", Global.System.Data.SqlDbType.[Decimal], 0, Global.System.Data.ParameterDirection.Input, 18, 2, "SellingPrice", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", ""))
13870             Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_Margin", Global.System.Data.SqlDbType.[Decimal], 0, Global.System.Data.ParameterDirection.Input, 18, 2, "Margin", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", ""))
13871             Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_Qty", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "Qty", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", ""))
13872             Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_Amount", Global.System.Data.SqlDbType.[Decimal], 0, Global.System.Data.ParameterDirection.Input, 18, 2, "Amount", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", ""))
13873             Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_DiscountPer", Global.System.Data.SqlDbType.[Decimal], 0, Global.System.Data.ParameterDirection.Input, 18, 2, "DiscountPer", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", ""))
13874             Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_Discount", Global.System.Data.SqlDbType.[Decimal], 0, Global.System.Data.ParameterDirection.Input, 18, 2, "Discount", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", ""))
13875             Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_VATPer", Global.System.Data.SqlDbType.[Decimal], 0, Global.System.Data.ParameterDirection.Input, 18, 2, "VATPer", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", ""))
13876             Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_VAT", Global.System.Data.SqlDbType.[Decimal], 0, Global.System.Data.ParameterDirection.Input, 18, 2, "VAT", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", ""))
13877             Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_TotalAmount", Global.System.Data.SqlDbType.[Decimal], 0, Global.System.Data.ParameterDirection.Input, 18, 2, "TotalAmount", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", ""))
13878             Me._adapter.InsertCommand = New Global.System.Data.SqlClient.SqlCommand()
13879             Me._adapter.InsertCommand.Connection = Me.Connection
13880             Me._adapter.InsertCommand.CommandText = "INSERT INTO [dbo].[Invoice_Product] ([InvoiceID], [ProductID], [CostPrice], [Sell"& _
13881                 "ingPrice], [Margin], [Qty], [Amount], [DiscountPer], [Discount], [VATPer], [VAT]"& _
13882                 ", [TotalAmount]) VALUES (@InvoiceID, @ProductID, @CostPrice, @SellingPrice, @Mar"& _
13883                 "gin, @Qty, @Amount, @DiscountPer, @Discount, @VATPer, @VAT, @TotalAmount);"&Global.Microsoft.VisualBasic.ChrW(13)&Global.Microsoft.VisualBasic.ChrW(10)&"SELE"& _
13884                 "CT IPo_ID, InvoiceID, ProductID, CostPrice, SellingPrice, Margin, Qty, Amount, D"& _
13885                 "iscountPer, Discount, VATPer, VAT, TotalAmount FROM Invoice_Product WHERE (IPo_I"& _
13886                 "D = SCOPE_IDENTITY())"
13887             Me._adapter.InsertCommand.CommandType = Global.System.Data.CommandType.Text
13888             Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@InvoiceID", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "InvoiceID", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", ""))
13889             Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@ProductID", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "ProductID", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", ""))
13890             Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@CostPrice", Global.System.Data.SqlDbType.[Decimal], 0, Global.System.Data.ParameterDirection.Input, 18, 2, "CostPrice", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", ""))
13891             Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@SellingPrice", Global.System.Data.SqlDbType.[Decimal], 0, Global.System.Data.ParameterDirection.Input, 18, 2, "SellingPrice", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", ""))
13892             Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Margin", Global.System.Data.SqlDbType.[Decimal], 0, Global.System.Data.ParameterDirection.Input, 18, 2, "Margin", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", ""))
13893             Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Qty", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "Qty", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", ""))
13894             Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Amount", Global.System.Data.SqlDbType.[Decimal], 0, Global.System.Data.ParameterDirection.Input, 18, 2, "Amount", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", ""))
13895             Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@DiscountPer", Global.System.Data.SqlDbType.[Decimal], 0, Global.System.Data.ParameterDirection.Input, 18, 2, "DiscountPer", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", ""))
13896             Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Discount", Global.System.Data.SqlDbType.[Decimal], 0, Global.System.Data.ParameterDirection.Input, 18, 2, "Discount", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", ""))
13897             Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@VATPer", Global.System.Data.SqlDbType.[Decimal], 0, Global.System.Data.ParameterDirection.Input, 18, 2, "VATPer", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", ""))
13898             Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@VAT", Global.System.Data.SqlDbType.[Decimal], 0, Global.System.Data.ParameterDirection.Input, 18, 2, "VAT", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", ""))
13899             Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@TotalAmount", Global.System.Data.SqlDbType.[Decimal], 0, Global.System.Data.ParameterDirection.Input, 18, 2, "TotalAmount", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", ""))
13900             Me._adapter.UpdateCommand = New Global.System.Data.SqlClient.SqlCommand()
13901             Me._adapter.UpdateCommand.Connection = Me.Connection
13902             Me._adapter.UpdateCommand.CommandText = "UPDATE [dbo].[Invoice_Product] SET [InvoiceID] = @InvoiceID, [ProductID] = @Produ"& _
13903                 "ctID, [CostPrice] = @CostPrice, [SellingPrice] = @SellingPrice, [Margin] = @Marg"& _
13904                 "in, [Qty] = @Qty, [Amount] = @Amount, [DiscountPer] = @DiscountPer, [Discount] ="& _
13905                 " @Discount, [VATPer] = @VATPer, [VAT] = @VAT, [TotalAmount] = @TotalAmount WHERE"& _
13906                 " (([IPo_ID] = @Original_IPo_ID) AND ([InvoiceID] = @Original_InvoiceID) AND ([Pr"& _
13907                 "oductID] = @Original_ProductID) AND ([CostPrice] = @Original_CostPrice) AND ([Se"& _
13908                 "llingPrice] = @Original_SellingPrice) AND ([Margin] = @Original_Margin) AND ([Qt"& _
13909                 "y] = @Original_Qty) AND ([Amount] = @Original_Amount) AND ([DiscountPer] = @Orig"& _
13910                 "inal_DiscountPer) AND ([Discount] = @Original_Discount) AND ([VATPer] = @Origina"& _
13911                 "l_VATPer) AND ([VAT] = @Original_VAT) AND ([TotalAmount] = @Original_TotalAmount"& _
13912                 "));"&Global.Microsoft.VisualBasic.ChrW(13)&Global.Microsoft.VisualBasic.ChrW(10)&"SELECT IPo_ID, InvoiceID, ProductID, CostPrice, SellingPrice, Margin, Qty, "& _
13913                 "Amount, DiscountPer, Discount, VATPer, VAT, TotalAmount FROM Invoice_Product WHE"& _
13914                 "RE (IPo_ID = @IPo_ID)"
13915             Me._adapter.UpdateCommand.CommandType = Global.System.Data.CommandType.Text
13916             Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@InvoiceID", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "InvoiceID", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", ""))
13917             Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@ProductID", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "ProductID", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", ""))
13918             Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@CostPrice", Global.System.Data.SqlDbType.[Decimal], 0, Global.System.Data.ParameterDirection.Input, 18, 2, "CostPrice", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", ""))
13919             Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@SellingPrice", Global.System.Data.SqlDbType.[Decimal], 0, Global.System.Data.ParameterDirection.Input, 18, 2, "SellingPrice", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", ""))
13920             Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Margin", Global.System.Data.SqlDbType.[Decimal], 0, Global.System.Data.ParameterDirection.Input, 18, 2, "Margin", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", ""))
13921             Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Qty", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "Qty", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", ""))
13922             Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Amount", Global.System.Data.SqlDbType.[Decimal], 0, Global.System.Data.ParameterDirection.Input, 18, 2, "Amount", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", ""))
13923             Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@DiscountPer", Global.System.Data.SqlDbType.[Decimal], 0, Global.System.Data.ParameterDirection.Input, 18, 2, "DiscountPer", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", ""))
13924             Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Discount", Global.System.Data.SqlDbType.[Decimal], 0, Global.System.Data.ParameterDirection.Input, 18, 2, "Discount", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", ""))
13925             Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@VATPer", Global.System.Data.SqlDbType.[Decimal], 0, Global.System.Data.ParameterDirection.Input, 18, 2, "VATPer", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", ""))
13926             Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@VAT", Global.System.Data.SqlDbType.[Decimal], 0, Global.System.Data.ParameterDirection.Input, 18, 2, "VAT", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", ""))
13927             Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@TotalAmount", Global.System.Data.SqlDbType.[Decimal], 0, Global.System.Data.ParameterDirection.Input, 18, 2, "TotalAmount", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", ""))
13928             Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_IPo_ID", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "IPo_ID", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", ""))
13929             Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_InvoiceID", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "InvoiceID", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", ""))
13930             Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_ProductID", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "ProductID", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", ""))
13931             Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_CostPrice", Global.System.Data.SqlDbType.[Decimal], 0, Global.System.Data.ParameterDirection.Input, 18, 2, "CostPrice", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", ""))
13932             Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_SellingPrice", Global.System.Data.SqlDbType.[Decimal], 0, Global.System.Data.ParameterDirection.Input, 18, 2, "SellingPrice", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", ""))
13933             Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_Margin", Global.System.Data.SqlDbType.[Decimal], 0, Global.System.Data.ParameterDirection.Input, 18, 2, "Margin", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", ""))
13934             Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_Qty", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "Qty", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", ""))
13935             Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_Amount", Global.System.Data.SqlDbType.[Decimal], 0, Global.System.Data.ParameterDirection.Input, 18, 2, "Amount", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", ""))
13936             Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_DiscountPer", Global.System.Data.SqlDbType.[Decimal], 0, Global.System.Data.ParameterDirection.Input, 18, 2, "DiscountPer", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", ""))
13937             Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_Discount", Global.System.Data.SqlDbType.[Decimal], 0, Global.System.Data.ParameterDirection.Input, 18, 2, "Discount", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", ""))
13938             Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_VATPer", Global.System.Data.SqlDbType.[Decimal], 0, Global.System.Data.ParameterDirection.Input, 18, 2, "VATPer", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", ""))
13939             Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_VAT", Global.System.Data.SqlDbType.[Decimal], 0, Global.System.Data.ParameterDirection.Input, 18, 2, "VAT", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", ""))
13940             Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_TotalAmount", Global.System.Data.SqlDbType.[Decimal], 0, Global.System.Data.ParameterDirection.Input, 18, 2, "TotalAmount", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", ""))
13941             Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@IPo_ID", Global.System.Data.SqlDbType.Int, 4, Global.System.Data.ParameterDirection.Input, 0, 0, "IPo_ID", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", ""))
13942         End Sub
13943         
13944         <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
13945          Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0")> _
13946         Private Sub InitConnection()
13947             Me._connection = New Global.System.Data.SqlClient.SqlConnection()
13948             Me._connection.ConnectionString = Global.Sales_and_Inventory_System.My.MySettings.Default.SIS_DBConnectionString1
13949         End Sub
13950         
13951         <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
13952          Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0")> _
13953         Private Sub InitCommandCollection()
13954             Me._commandCollection = New Global.System.Data.SqlClient.SqlCommand(0) {}
13955             Me._commandCollection(0) = New Global.System.Data.SqlClient.SqlCommand()
13956             Me._commandCollection(0).Connection = Me.Connection
13957             Me._commandCollection(0).CommandText = "SELECT IPo_ID, InvoiceID, ProductID, CostPrice, SellingPrice, Margin, Qty, Amount"& _
13958                 ", DiscountPer, Discount, VATPer, VAT, TotalAmount FROM dbo.Invoice_Product"
13959             Me._commandCollection(0).CommandType = Global.System.Data.CommandType.Text
13960         End Sub
13961         
13962         <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
13963          Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0"), _
13964          Global.System.ComponentModel.Design.HelpKeywordAttribute("vs.data.TableAdapter"), _
13965          Global.System.ComponentModel.DataObjectMethodAttribute(Global.System.ComponentModel.DataObjectMethodType.Fill, true)> _
13966         Public Overloads Overridable Function Fill(ByVal dataTable As SIS_DBDataSet.Invoice_ProductDataTable) As Integer
13967             Me.Adapter.SelectCommand = Me.CommandCollection(0)
13968             If (Me.ClearBeforeFill = true) Then
13969                 dataTable.Clear
13970             End If
13971             Dim returnValue As Integer = Me.Adapter.Fill(dataTable)
13972             Return returnValue
13973         End Function
13974         
13975         <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
13976          Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0"), _
13977          Global.System.ComponentModel.Design.HelpKeywordAttribute("vs.data.TableAdapter"), _
13978          Global.System.ComponentModel.DataObjectMethodAttribute(Global.System.ComponentModel.DataObjectMethodType.[Select], true)> _
13979         Public Overloads Overridable Function GetData() As SIS_DBDataSet.Invoice_ProductDataTable
13980             Me.Adapter.SelectCommand = Me.CommandCollection(0)
13981             Dim dataTable As SIS_DBDataSet.Invoice_ProductDataTable = New SIS_DBDataSet.Invoice_ProductDataTable()
13982             Me.Adapter.Fill(dataTable)
13983             Return dataTable
13984         End Function
13985         
13986         <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
13987          Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0"), _
13988          Global.System.ComponentModel.Design.HelpKeywordAttribute("vs.data.TableAdapter")> _
13989         Public Overloads Overridable Function Update(ByVal dataTable As SIS_DBDataSet.Invoice_ProductDataTable) As Integer
13990             Return Me.Adapter.Update(dataTable)
13991         End Function
13992         
13993         <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
13994          Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0"), _
13995          Global.System.ComponentModel.Design.HelpKeywordAttribute("vs.data.TableAdapter")> _
13996         Public Overloads Overridable Function Update(ByVal dataSet As SIS_DBDataSet) As Integer
13997             Return Me.Adapter.Update(dataSet, "Invoice_Product")
13998         End Function
13999         
14000         <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
14001          Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0"), _
14002          Global.System.ComponentModel.Design.HelpKeywordAttribute("vs.data.TableAdapter")> _
14003         Public Overloads Overridable Function Update(ByVal dataRow As Global.System.Data.DataRow) As Integer
14004             Return Me.Adapter.Update(New Global.System.Data.DataRow() {dataRow})
14005         End Function
14006         
14007         <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
14008          Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0"), _
14009          Global.System.ComponentModel.Design.HelpKeywordAttribute("vs.data.TableAdapter")> _
14010         Public Overloads Overridable Function Update(ByVal dataRows() As Global.System.Data.DataRow) As Integer
14011             Return Me.Adapter.Update(dataRows)
14012         End Function
14013         
14014         <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
14015          Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0"), _
14016          Global.System.ComponentModel.Design.HelpKeywordAttribute("vs.data.TableAdapter"), _
14017          Global.System.ComponentModel.DataObjectMethodAttribute(Global.System.ComponentModel.DataObjectMethodType.Delete, true)> _
14018         Public Overloads Overridable Function Delete(ByVal Original_IPo_ID As Integer, ByVal Original_InvoiceID As Integer, ByVal Original_ProductID As Integer, ByVal Original_CostPrice As Decimal, ByVal Original_SellingPrice As Decimal, ByVal Original_Margin As Decimal, ByVal Original_Qty As Integer, ByVal Original_Amount As Decimal, ByVal Original_DiscountPer As Decimal, ByVal Original_Discount As Decimal, ByVal Original_VATPer As Decimal, ByVal Original_VAT As Decimal, ByVal Original_TotalAmount As Decimal) As Integer
14019             Me.Adapter.DeleteCommand.Parameters(0).Value = CType(Original_IPo_ID,Integer)
14020             Me.Adapter.DeleteCommand.Parameters(1).Value = CType(Original_InvoiceID,Integer)
14021             Me.Adapter.DeleteCommand.Parameters(2).Value = CType(Original_ProductID,Integer)
14022             Me.Adapter.DeleteCommand.Parameters(3).Value = CType(Original_CostPrice,Decimal)
14023             Me.Adapter.DeleteCommand.Parameters(4).Value = CType(Original_SellingPrice,Decimal)
14024             Me.Adapter.DeleteCommand.Parameters(5).Value = CType(Original_Margin,Decimal)
14025             Me.Adapter.DeleteCommand.Parameters(6).Value = CType(Original_Qty,Integer)
14026             Me.Adapter.DeleteCommand.Parameters(7).Value = CType(Original_Amount,Decimal)
14027             Me.Adapter.DeleteCommand.Parameters(8).Value = CType(Original_DiscountPer,Decimal)
14028             Me.Adapter.DeleteCommand.Parameters(9).Value = CType(Original_Discount,Decimal)
14029             Me.Adapter.DeleteCommand.Parameters(10).Value = CType(Original_VATPer,Decimal)
14030             Me.Adapter.DeleteCommand.Parameters(11).Value = CType(Original_VAT,Decimal)
14031             Me.Adapter.DeleteCommand.Parameters(12).Value = CType(Original_TotalAmount,Decimal)
14032             Dim previousConnectionState As Global.System.Data.ConnectionState = Me.Adapter.DeleteCommand.Connection.State
14033             If ((Me.Adapter.DeleteCommand.Connection.State And Global.System.Data.ConnectionState.Open) _
14034                         <> Global.System.Data.ConnectionState.Open) Then
14035                 Me.Adapter.DeleteCommand.Connection.Open
14036             End If
14037             Try
14038                 Dim returnValue As Integer = Me.Adapter.DeleteCommand.ExecuteNonQuery
14039                 Return returnValue
14040             Finally
14041                 If (previousConnectionState = Global.System.Data.ConnectionState.Closed) Then
14042                     Me.Adapter.DeleteCommand.Connection.Close
14043                 End If
14044             End Try
14045         End Function
14046         
14047         <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
14048          Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0"), _
14049          Global.System.ComponentModel.Design.HelpKeywordAttribute("vs.data.TableAdapter"), _
14050          Global.System.ComponentModel.DataObjectMethodAttribute(Global.System.ComponentModel.DataObjectMethodType.Insert, true)> _
14051         Public Overloads Overridable Function Insert(ByVal InvoiceID As Integer, ByVal ProductID As Integer, ByVal CostPrice As Decimal, ByVal SellingPrice As Decimal, ByVal Margin As Decimal, ByVal Qty As Integer, ByVal Amount As Decimal, ByVal DiscountPer As Decimal, ByVal Discount As Decimal, ByVal VATPer As Decimal, ByVal VAT As Decimal, ByVal TotalAmount As Decimal) As Integer
14052             Me.Adapter.InsertCommand.Parameters(0).Value = CType(InvoiceID,Integer)
14053             Me.Adapter.InsertCommand.Parameters(1).Value = CType(ProductID,Integer)
14054             Me.Adapter.InsertCommand.Parameters(2).Value = CType(CostPrice,Decimal)
14055             Me.Adapter.InsertCommand.Parameters(3).Value = CType(SellingPrice,Decimal)
14056             Me.Adapter.InsertCommand.Parameters(4).Value = CType(Margin,Decimal)
14057             Me.Adapter.InsertCommand.Parameters(5).Value = CType(Qty,Integer)
14058             Me.Adapter.InsertCommand.Parameters(6).Value = CType(Amount,Decimal)
14059             Me.Adapter.InsertCommand.Parameters(7).Value = CType(DiscountPer,Decimal)
14060             Me.Adapter.InsertCommand.Parameters(8).Value = CType(Discount,Decimal)
14061             Me.Adapter.InsertCommand.Parameters(9).Value = CType(VATPer,Decimal)
14062             Me.Adapter.InsertCommand.Parameters(10).Value = CType(VAT,Decimal)
14063             Me.Adapter.InsertCommand.Parameters(11).Value = CType(TotalAmount,Decimal)
14064             Dim previousConnectionState As Global.System.Data.ConnectionState = Me.Adapter.InsertCommand.Connection.State
14065             If ((Me.Adapter.InsertCommand.Connection.State And Global.System.Data.ConnectionState.Open) _
14066                         <> Global.System.Data.ConnectionState.Open) Then
14067                 Me.Adapter.InsertCommand.Connection.Open
14068             End If
14069             Try
14070                 Dim returnValue As Integer = Me.Adapter.InsertCommand.ExecuteNonQuery
14071                 Return returnValue
14072             Finally
14073                 If (previousConnectionState = Global.System.Data.ConnectionState.Closed) Then
14074                     Me.Adapter.InsertCommand.Connection.Close
14075                 End If
14076             End Try
14077         End Function
14078         
14079         <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
14080          Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0"), _
14081          Global.System.ComponentModel.Design.HelpKeywordAttribute("vs.data.TableAdapter"), _
14082          Global.System.ComponentModel.DataObjectMethodAttribute(Global.System.ComponentModel.DataObjectMethodType.Update, true)> _
14083         Public Overloads Overridable Function Update( _
14084                     ByVal InvoiceID As Integer, _
14085                     ByVal ProductID As Integer, _
14086                     ByVal CostPrice As Decimal, _
14087                     ByVal SellingPrice As Decimal, _
14088                     ByVal Margin As Decimal, _
14089                     ByVal Qty As Integer, _
14090                     ByVal Amount As Decimal, _
14091                     ByVal DiscountPer As Decimal, _
14092                     ByVal Discount As Decimal, _
14093                     ByVal VATPer As Decimal, _
14094                     ByVal VAT As Decimal, _
14095                     ByVal TotalAmount As Decimal, _
14096                     ByVal Original_IPo_ID As Integer, _
14097                     ByVal Original_InvoiceID As Integer, _
14098                     ByVal Original_ProductID As Integer, _
14099                     ByVal Original_CostPrice As Decimal, _
14100                     ByVal Original_SellingPrice As Decimal, _
14101                     ByVal Original_Margin As Decimal, _
14102                     ByVal Original_Qty As Integer, _
14103                     ByVal Original_Amount As Decimal, _
14104                     ByVal Original_DiscountPer As Decimal, _
14105                     ByVal Original_Discount As Decimal, _
14106                     ByVal Original_VATPer As Decimal, _
14107                     ByVal Original_VAT As Decimal, _
14108                     ByVal Original_TotalAmount As Decimal, _
14109                     ByVal IPo_ID As Integer) As Integer
14110             Me.Adapter.UpdateCommand.Parameters(0).Value = CType(InvoiceID,Integer)
14111             Me.Adapter.UpdateCommand.Parameters(1).Value = CType(ProductID,Integer)
14112             Me.Adapter.UpdateCommand.Parameters(2).Value = CType(CostPrice,Decimal)
14113             Me.Adapter.UpdateCommand.Parameters(3).Value = CType(SellingPrice,Decimal)
14114             Me.Adapter.UpdateCommand.Parameters(4).Value = CType(Margin,Decimal)
14115             Me.Adapter.UpdateCommand.Parameters(5).Value = CType(Qty,Integer)
14116             Me.Adapter.UpdateCommand.Parameters(6).Value = CType(Amount,Decimal)
14117             Me.Adapter.UpdateCommand.Parameters(7).Value = CType(DiscountPer,Decimal)
14118             Me.Adapter.UpdateCommand.Parameters(8).Value = CType(Discount,Decimal)
14119             Me.Adapter.UpdateCommand.Parameters(9).Value = CType(VATPer,Decimal)
14120             Me.Adapter.UpdateCommand.Parameters(10).Value = CType(VAT,Decimal)
14121             Me.Adapter.UpdateCommand.Parameters(11).Value = CType(TotalAmount,Decimal)
14122             Me.Adapter.UpdateCommand.Parameters(12).Value = CType(Original_IPo_ID,Integer)
14123             Me.Adapter.UpdateCommand.Parameters(13).Value = CType(Original_InvoiceID,Integer)
14124             Me.Adapter.UpdateCommand.Parameters(14).Value = CType(Original_ProductID,Integer)
14125             Me.Adapter.UpdateCommand.Parameters(15).Value = CType(Original_CostPrice,Decimal)
14126             Me.Adapter.UpdateCommand.Parameters(16).Value = CType(Original_SellingPrice,Decimal)
14127             Me.Adapter.UpdateCommand.Parameters(17).Value = CType(Original_Margin,Decimal)
14128             Me.Adapter.UpdateCommand.Parameters(18).Value = CType(Original_Qty,Integer)
14129             Me.Adapter.UpdateCommand.Parameters(19).Value = CType(Original_Amount,Decimal)
14130             Me.Adapter.UpdateCommand.Parameters(20).Value = CType(Original_DiscountPer,Decimal)
14131             Me.Adapter.UpdateCommand.Parameters(21).Value = CType(Original_Discount,Decimal)
14132             Me.Adapter.UpdateCommand.Parameters(22).Value = CType(Original_VATPer,Decimal)
14133             Me.Adapter.UpdateCommand.Parameters(23).Value = CType(Original_VAT,Decimal)
14134             Me.Adapter.UpdateCommand.Parameters(24).Value = CType(Original_TotalAmount,Decimal)
14135             Me.Adapter.UpdateCommand.Parameters(25).Value = CType(IPo_ID,Integer)
14136             Dim previousConnectionState As Global.System.Data.ConnectionState = Me.Adapter.UpdateCommand.Connection.State
14137             If ((Me.Adapter.UpdateCommand.Connection.State And Global.System.Data.ConnectionState.Open) _
14138                         <> Global.System.Data.ConnectionState.Open) Then
14139                 Me.Adapter.UpdateCommand.Connection.Open
14140             End If
14141             Try
14142                 Dim returnValue As Integer = Me.Adapter.UpdateCommand.ExecuteNonQuery
14143                 Return returnValue
14144             Finally
14145                 If (previousConnectionState = Global.System.Data.ConnectionState.Closed) Then
14146                     Me.Adapter.UpdateCommand.Connection.Close
14147                 End If
14148             End Try
14149         End Function
14150         
14151         <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
14152          Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0"), _
14153          Global.System.ComponentModel.Design.HelpKeywordAttribute("vs.data.TableAdapter"), _
14154          Global.System.ComponentModel.DataObjectMethodAttribute(Global.System.ComponentModel.DataObjectMethodType.Update, true)> _
14155         Public Overloads Overridable Function Update( _
14156                     ByVal InvoiceID As Integer, _
14157                     ByVal ProductID As Integer, _
14158                     ByVal CostPrice As Decimal, _
14159                     ByVal SellingPrice As Decimal, _
14160                     ByVal Margin As Decimal, _
14161                     ByVal Qty As Integer, _
14162                     ByVal Amount As Decimal, _
14163                     ByVal DiscountPer As Decimal, _
14164                     ByVal Discount As Decimal, _
14165                     ByVal VATPer As Decimal, _
14166                     ByVal VAT As Decimal, _
14167                     ByVal TotalAmount As Decimal, _
14168                     ByVal Original_IPo_ID As Integer, _
14169                     ByVal Original_InvoiceID As Integer, _
14170                     ByVal Original_ProductID As Integer, _
14171                     ByVal Original_CostPrice As Decimal, _
14172                     ByVal Original_SellingPrice As Decimal, _
14173                     ByVal Original_Margin As Decimal, _
14174                     ByVal Original_Qty As Integer, _
14175                     ByVal Original_Amount As Decimal, _
14176                     ByVal Original_DiscountPer As Decimal, _
14177                     ByVal Original_Discount As Decimal, _
14178                     ByVal Original_VATPer As Decimal, _
14179                     ByVal Original_VAT As Decimal, _
14180                     ByVal Original_TotalAmount As Decimal) As Integer
14181             Return Me.Update(InvoiceID, ProductID, CostPrice, SellingPrice, Margin, Qty, Amount, DiscountPer, Discount, VATPer, VAT, TotalAmount, Original_IPo_ID, Original_InvoiceID, Original_ProductID, Original_CostPrice, Original_SellingPrice, Original_Margin, Original_Qty, Original_Amount, Original_DiscountPer, Original_Discount, Original_VATPer, Original_VAT, Original_TotalAmount, Original_IPo_ID)
14182         End Function
14183     End Class
14184     
14185     '''<summary>
14186     '''Represents the connection and commands used to retrieve and save data.
14187     '''</summary>
14188     <Global.System.ComponentModel.DesignerCategoryAttribute("code"), _
14189      Global.System.ComponentModel.ToolboxItem(true), _
14190      Global.System.ComponentModel.DataObjectAttribute(true), _
14191      Global.System.ComponentModel.DesignerAttribute("Microsoft.VSDesigner.DataSource.Design.TableAdapterDesigner, Microsoft.VSDesigner"& _
14192         ", Version=10.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a"), _
14193      Global.System.ComponentModel.Design.HelpKeywordAttribute("vs.data.TableAdapter")> _
14194     Partial Public Class InvoiceInfoTableAdapter
14195         Inherits Global.System.ComponentModel.Component
14196         
14197         Private WithEvents _adapter As Global.System.Data.SqlClient.SqlDataAdapter
14198         
14199         Private _connection As Global.System.Data.SqlClient.SqlConnection
14200         
14201         Private _transaction As Global.System.Data.SqlClient.SqlTransaction
14202         
14203         Private _commandCollection() As Global.System.Data.SqlClient.SqlCommand
14204         
14205         Private _clearBeforeFill As Boolean
14206         
14207         <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
14208          Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0")> _
14209         Public Sub New()
14210             MyBase.New
14211             Me.ClearBeforeFill = true
14212         End Sub
14213         
14214         <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
14215          Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0")> _
14216         Protected Friend ReadOnly Property Adapter() As Global.System.Data.SqlClient.SqlDataAdapter
14217             Get
14218                 If (Me._adapter Is Nothing) Then
14219                     Me.InitAdapter
14220                 End If
14221                 Return Me._adapter
14222             End Get
14223         End Property
14224         
14225         <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
14226          Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0")> _
14227         Friend Property Connection() As Global.System.Data.SqlClient.SqlConnection
14228             Get
14229                 If (Me._connection Is Nothing) Then
14230                     Me.InitConnection
14231                 End If
14232                 Return Me._connection
14233             End Get
14234             Set
14235                 Me._connection = value
14236                 If (Not (Me.Adapter.InsertCommand) Is Nothing) Then
14237                     Me.Adapter.InsertCommand.Connection = value
14238                 End If
14239                 If (Not (Me.Adapter.DeleteCommand) Is Nothing) Then
14240                     Me.Adapter.DeleteCommand.Connection = value
14241                 End If
14242                 If (Not (Me.Adapter.UpdateCommand) Is Nothing) Then
14243                     Me.Adapter.UpdateCommand.Connection = value
14244                 End If
14245                 Dim i As Integer = 0
14246                 Do While (i < Me.CommandCollection.Length)
14247                     If (Not (Me.CommandCollection(i)) Is Nothing) Then
14248                         CType(Me.CommandCollection(i),Global.System.Data.SqlClient.SqlCommand).Connection = value
14249                     End If
14250                     i = (i + 1)
14251                 Loop
14252             End Set
14253         End Property
14254         
14255         <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
14256          Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0")> _
14257         Friend Property Transaction() As Global.System.Data.SqlClient.SqlTransaction
14258             Get
14259                 Return Me._transaction
14260             End Get
14261             Set
14262                 Me._transaction = value
14263                 Dim i As Integer = 0
14264                 Do While (i < Me.CommandCollection.Length)
14265                     Me.CommandCollection(i).Transaction = Me._transaction
14266                     i = (i + 1)
14267                 Loop
14268                 If ((Not (Me.Adapter) Is Nothing) _
14269                             AndAlso (Not (Me.Adapter.DeleteCommand) Is Nothing)) Then
14270                     Me.Adapter.DeleteCommand.Transaction = Me._transaction
14271                 End If
14272                 If ((Not (Me.Adapter) Is Nothing) _
14273                             AndAlso (Not (Me.Adapter.InsertCommand) Is Nothing)) Then
14274                     Me.Adapter.InsertCommand.Transaction = Me._transaction
14275                 End If
14276                 If ((Not (Me.Adapter) Is Nothing) _
14277                             AndAlso (Not (Me.Adapter.UpdateCommand) Is Nothing)) Then
14278                     Me.Adapter.UpdateCommand.Transaction = Me._transaction
14279                 End If
14280             End Set
14281         End Property
14282         
14283         <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
14284          Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0")> _
14285         Protected ReadOnly Property CommandCollection() As Global.System.Data.SqlClient.SqlCommand()
14286             Get
14287                 If (Me._commandCollection Is Nothing) Then
14288                     Me.InitCommandCollection
14289                 End If
14290                 Return Me._commandCollection
14291             End Get
14292         End Property
14293         
14294         <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
14295          Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0")> _
14296         Public Property ClearBeforeFill() As Boolean
14297             Get
14298                 Return Me._clearBeforeFill
14299             End Get
14300             Set
14301                 Me._clearBeforeFill = value
14302             End Set
14303         End Property
14304         
14305         <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
14306          Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0")> _
14307         Private Sub InitAdapter()
14308             Me._adapter = New Global.System.Data.SqlClient.SqlDataAdapter()
14309             Dim tableMapping As Global.System.Data.Common.DataTableMapping = New Global.System.Data.Common.DataTableMapping()
14310             tableMapping.SourceTable = "Table"
14311             tableMapping.DataSetTable = "InvoiceInfo"
14312             tableMapping.ColumnMappings.Add("Inv_ID", "Inv_ID")
14313             tableMapping.ColumnMappings.Add("InvoiceNo", "InvoiceNo")
14314             tableMapping.ColumnMappings.Add("InvoiceDate", "InvoiceDate")
14315             tableMapping.ColumnMappings.Add("CustomerID", "CustomerID")
14316             tableMapping.ColumnMappings.Add("GrandTotal", "GrandTotal")
14317             tableMapping.ColumnMappings.Add("TotalPaid", "TotalPaid")
14318             tableMapping.ColumnMappings.Add("Balance", "Balance")
14319             tableMapping.ColumnMappings.Add("Remarks", "Remarks")
14320             Me._adapter.TableMappings.Add(tableMapping)
14321             Me._adapter.DeleteCommand = New Global.System.Data.SqlClient.SqlCommand()
14322             Me._adapter.DeleteCommand.Connection = Me.Connection
14323             Me._adapter.DeleteCommand.CommandText = "DELETE FROM [dbo].[InvoiceInfo] WHERE (([Inv_ID] = @Original_Inv_ID) AND ([Invoic"& _
14324                 "eNo] = @Original_InvoiceNo) AND ([InvoiceDate] = @Original_InvoiceDate) AND ([Cu"& _
14325                 "stomerID] = @Original_CustomerID) AND ([GrandTotal] = @Original_GrandTotal) AND "& _
14326                 "([TotalPaid] = @Original_TotalPaid) AND ([Balance] = @Original_Balance))"
14327             Me._adapter.DeleteCommand.CommandType = Global.System.Data.CommandType.Text
14328             Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_Inv_ID", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "Inv_ID", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", ""))
14329             Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_InvoiceNo", Global.System.Data.SqlDbType.NChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "InvoiceNo", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", ""))
14330             Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_InvoiceDate", Global.System.Data.SqlDbType.DateTime, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "InvoiceDate", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", ""))
14331             Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_CustomerID", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "CustomerID", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", ""))
14332             Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_GrandTotal", Global.System.Data.SqlDbType.[Decimal], 0, Global.System.Data.ParameterDirection.Input, 18, 2, "GrandTotal", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", ""))
14333             Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_TotalPaid", Global.System.Data.SqlDbType.[Decimal], 0, Global.System.Data.ParameterDirection.Input, 18, 2, "TotalPaid", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", ""))
14334             Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_Balance", Global.System.Data.SqlDbType.[Decimal], 0, Global.System.Data.ParameterDirection.Input, 18, 2, "Balance", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", ""))
14335             Me._adapter.InsertCommand = New Global.System.Data.SqlClient.SqlCommand()
14336             Me._adapter.InsertCommand.Connection = Me.Connection
14337             Me._adapter.InsertCommand.CommandText = "INSERT INTO [dbo].[InvoiceInfo] ([Inv_ID], [InvoiceNo], [InvoiceDate], [CustomerI"& _
14338                 "D], [GrandTotal], [TotalPaid], [Balance], [Remarks]) VALUES (@Inv_ID, @InvoiceNo"& _
14339                 ", @InvoiceDate, @CustomerID, @GrandTotal, @TotalPaid, @Balance, @Remarks);"&Global.Microsoft.VisualBasic.ChrW(13)&Global.Microsoft.VisualBasic.ChrW(10)&"SELE"& _
14340                 "CT Inv_ID, InvoiceNo, InvoiceDate, CustomerID, GrandTotal, TotalPaid, Balance, R"& _
14341                 "emarks FROM InvoiceInfo WHERE (Inv_ID = @Inv_ID)"
14342             Me._adapter.InsertCommand.CommandType = Global.System.Data.CommandType.Text
14343             Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Inv_ID", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "Inv_ID", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", ""))
14344             Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@InvoiceNo", Global.System.Data.SqlDbType.NChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "InvoiceNo", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", ""))
14345             Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@InvoiceDate", Global.System.Data.SqlDbType.DateTime, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "InvoiceDate", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", ""))
14346             Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@CustomerID", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "CustomerID", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", ""))
14347             Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@GrandTotal", Global.System.Data.SqlDbType.[Decimal], 0, Global.System.Data.ParameterDirection.Input, 18, 2, "GrandTotal", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", ""))
14348             Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@TotalPaid", Global.System.Data.SqlDbType.[Decimal], 0, Global.System.Data.ParameterDirection.Input, 18, 2, "TotalPaid", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", ""))
14349             Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Balance", Global.System.Data.SqlDbType.[Decimal], 0, Global.System.Data.ParameterDirection.Input, 18, 2, "Balance", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", ""))
14350             Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Remarks", Global.System.Data.SqlDbType.NVarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "Remarks", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", ""))
14351             Me._adapter.UpdateCommand = New Global.System.Data.SqlClient.SqlCommand()
14352             Me._adapter.UpdateCommand.Connection = Me.Connection
14353             Me._adapter.UpdateCommand.CommandText = "UPDATE [dbo].[InvoiceInfo] SET [Inv_ID] = @Inv_ID, [InvoiceNo] = @InvoiceNo, [Inv"& _
14354                 "oiceDate] = @InvoiceDate, [CustomerID] = @CustomerID, [GrandTotal] = @GrandTotal"& _
14355                 ", [TotalPaid] = @TotalPaid, [Balance] = @Balance, [Remarks] = @Remarks WHERE ((["& _
14356                 "Inv_ID] = @Original_Inv_ID) AND ([InvoiceNo] = @Original_InvoiceNo) AND ([Invoic"& _
14357                 "eDate] = @Original_InvoiceDate) AND ([CustomerID] = @Original_CustomerID) AND (["& _
14358                 "GrandTotal] = @Original_GrandTotal) AND ([TotalPaid] = @Original_TotalPaid) AND "& _
14359                 "([Balance] = @Original_Balance));"&Global.Microsoft.VisualBasic.ChrW(13)&Global.Microsoft.VisualBasic.ChrW(10)&"SELECT Inv_ID, InvoiceNo, InvoiceDate, Custom"& _
14360                 "erID, GrandTotal, TotalPaid, Balance, Remarks FROM InvoiceInfo WHERE (Inv_ID = @"& _
14361                 "Inv_ID)"
14362             Me._adapter.UpdateCommand.CommandType = Global.System.Data.CommandType.Text
14363             Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Inv_ID", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "Inv_ID", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", ""))
14364             Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@InvoiceNo", Global.System.Data.SqlDbType.NChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "InvoiceNo", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", ""))
14365             Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@InvoiceDate", Global.System.Data.SqlDbType.DateTime, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "InvoiceDate", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", ""))
14366             Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@CustomerID", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "CustomerID", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", ""))
14367             Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@GrandTotal", Global.System.Data.SqlDbType.[Decimal], 0, Global.System.Data.ParameterDirection.Input, 18, 2, "GrandTotal", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", ""))
14368             Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@TotalPaid", Global.System.Data.SqlDbType.[Decimal], 0, Global.System.Data.ParameterDirection.Input, 18, 2, "TotalPaid", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", ""))
14369             Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Balance", Global.System.Data.SqlDbType.[Decimal], 0, Global.System.Data.ParameterDirection.Input, 18, 2, "Balance", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", ""))
14370             Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Remarks", Global.System.Data.SqlDbType.NVarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "Remarks", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", ""))
14371             Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_Inv_ID", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "Inv_ID", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", ""))
14372             Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_InvoiceNo", Global.System.Data.SqlDbType.NChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "InvoiceNo", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", ""))
14373             Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_InvoiceDate", Global.System.Data.SqlDbType.DateTime, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "InvoiceDate", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", ""))
14374             Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_CustomerID", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "CustomerID", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", ""))
14375             Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_GrandTotal", Global.System.Data.SqlDbType.[Decimal], 0, Global.System.Data.ParameterDirection.Input, 18, 2, "GrandTotal", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", ""))
14376             Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_TotalPaid", Global.System.Data.SqlDbType.[Decimal], 0, Global.System.Data.ParameterDirection.Input, 18, 2, "TotalPaid", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", ""))
14377             Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_Balance", Global.System.Data.SqlDbType.[Decimal], 0, Global.System.Data.ParameterDirection.Input, 18, 2, "Balance", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", ""))
14378         End Sub
14379         
14380         <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
14381          Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0")> _
14382         Private Sub InitConnection()
14383             Me._connection = New Global.System.Data.SqlClient.SqlConnection()
14384             Me._connection.ConnectionString = Global.Sales_and_Inventory_System.My.MySettings.Default.SIS_DBConnectionString1
14385         End Sub
14386         
14387         <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
14388          Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0")> _
14389         Private Sub InitCommandCollection()
14390             Me._commandCollection = New Global.System.Data.SqlClient.SqlCommand(0) {}
14391             Me._commandCollection(0) = New Global.System.Data.SqlClient.SqlCommand()
14392             Me._commandCollection(0).Connection = Me.Connection
14393             Me._commandCollection(0).CommandText = "SELECT Inv_ID, InvoiceNo, InvoiceDate, CustomerID, GrandTotal, TotalPaid, Balance"& _
14394                 ", Remarks FROM dbo.InvoiceInfo"
14395             Me._commandCollection(0).CommandType = Global.System.Data.CommandType.Text
14396         End Sub
14397         
14398         <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
14399          Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0"), _
14400          Global.System.ComponentModel.Design.HelpKeywordAttribute("vs.data.TableAdapter"), _
14401          Global.System.ComponentModel.DataObjectMethodAttribute(Global.System.ComponentModel.DataObjectMethodType.Fill, true)> _
14402         Public Overloads Overridable Function Fill(ByVal dataTable As SIS_DBDataSet.InvoiceInfoDataTable) As Integer
14403             Me.Adapter.SelectCommand = Me.CommandCollection(0)
14404             If (Me.ClearBeforeFill = true) Then
14405                 dataTable.Clear
14406             End If
14407             Dim returnValue As Integer = Me.Adapter.Fill(dataTable)
14408             Return returnValue
14409         End Function
14410         
14411         <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
14412          Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0"), _
14413          Global.System.ComponentModel.Design.HelpKeywordAttribute("vs.data.TableAdapter"), _
14414          Global.System.ComponentModel.DataObjectMethodAttribute(Global.System.ComponentModel.DataObjectMethodType.[Select], true)> _
14415         Public Overloads Overridable Function GetData() As SIS_DBDataSet.InvoiceInfoDataTable
14416             Me.Adapter.SelectCommand = Me.CommandCollection(0)
14417             Dim dataTable As SIS_DBDataSet.InvoiceInfoDataTable = New SIS_DBDataSet.InvoiceInfoDataTable()
14418             Me.Adapter.Fill(dataTable)
14419             Return dataTable
14420         End Function
14421         
14422         <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
14423          Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0"), _
14424          Global.System.ComponentModel.Design.HelpKeywordAttribute("vs.data.TableAdapter")> _
14425         Public Overloads Overridable Function Update(ByVal dataTable As SIS_DBDataSet.InvoiceInfoDataTable) As Integer
14426             Return Me.Adapter.Update(dataTable)
14427         End Function
14428         
14429         <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
14430          Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0"), _
14431          Global.System.ComponentModel.Design.HelpKeywordAttribute("vs.data.TableAdapter")> _
14432         Public Overloads Overridable Function Update(ByVal dataSet As SIS_DBDataSet) As Integer
14433             Return Me.Adapter.Update(dataSet, "InvoiceInfo")
14434         End Function
14435         
14436         <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
14437          Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0"), _
14438          Global.System.ComponentModel.Design.HelpKeywordAttribute("vs.data.TableAdapter")> _
14439         Public Overloads Overridable Function Update(ByVal dataRow As Global.System.Data.DataRow) As Integer
14440             Return Me.Adapter.Update(New Global.System.Data.DataRow() {dataRow})
14441         End Function
14442         
14443         <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
14444          Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0"), _
14445          Global.System.ComponentModel.Design.HelpKeywordAttribute("vs.data.TableAdapter")> _
14446         Public Overloads Overridable Function Update(ByVal dataRows() As Global.System.Data.DataRow) As Integer
14447             Return Me.Adapter.Update(dataRows)
14448         End Function
14449         
14450         <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
14451          Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0"), _
14452          Global.System.ComponentModel.Design.HelpKeywordAttribute("vs.data.TableAdapter"), _
14453          Global.System.ComponentModel.DataObjectMethodAttribute(Global.System.ComponentModel.DataObjectMethodType.Delete, true)> _
14454         Public Overloads Overridable Function Delete(ByVal Original_Inv_ID As Integer, ByVal Original_InvoiceNo As String, ByVal Original_InvoiceDate As Date, ByVal Original_CustomerID As Integer, ByVal Original_GrandTotal As Decimal, ByVal Original_TotalPaid As Decimal, ByVal Original_Balance As Decimal) As Integer
14455             Me.Adapter.DeleteCommand.Parameters(0).Value = CType(Original_Inv_ID,Integer)
14456             If (Original_InvoiceNo Is Nothing) Then
14457                 Throw New Global.System.ArgumentNullException("Original_InvoiceNo")
14458             Else
14459                 Me.Adapter.DeleteCommand.Parameters(1).Value = CType(Original_InvoiceNo,String)
14460             End If
14461             Me.Adapter.DeleteCommand.Parameters(2).Value = CType(Original_InvoiceDate,Date)
14462             Me.Adapter.DeleteCommand.Parameters(3).Value = CType(Original_CustomerID,Integer)
14463             Me.Adapter.DeleteCommand.Parameters(4).Value = CType(Original_GrandTotal,Decimal)
14464             Me.Adapter.DeleteCommand.Parameters(5).Value = CType(Original_TotalPaid,Decimal)
14465             Me.Adapter.DeleteCommand.Parameters(6).Value = CType(Original_Balance,Decimal)
14466             Dim previousConnectionState As Global.System.Data.ConnectionState = Me.Adapter.DeleteCommand.Connection.State
14467             If ((Me.Adapter.DeleteCommand.Connection.State And Global.System.Data.ConnectionState.Open) _
14468                         <> Global.System.Data.ConnectionState.Open) Then
14469                 Me.Adapter.DeleteCommand.Connection.Open
14470             End If
14471             Try
14472                 Dim returnValue As Integer = Me.Adapter.DeleteCommand.ExecuteNonQuery
14473                 Return returnValue
14474             Finally
14475                 If (previousConnectionState = Global.System.Data.ConnectionState.Closed) Then
14476                     Me.Adapter.DeleteCommand.Connection.Close
14477                 End If
14478             End Try
14479         End Function
14480         
14481         <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
14482          Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0"), _
14483          Global.System.ComponentModel.Design.HelpKeywordAttribute("vs.data.TableAdapter"), _
14484          Global.System.ComponentModel.DataObjectMethodAttribute(Global.System.ComponentModel.DataObjectMethodType.Insert, true)> _
14485         Public Overloads Overridable Function Insert(ByVal Inv_ID As Integer, ByVal InvoiceNo As String, ByVal InvoiceDate As Date, ByVal CustomerID As Integer, ByVal GrandTotal As Decimal, ByVal TotalPaid As Decimal, ByVal Balance As Decimal, ByVal Remarks As String) As Integer
14486             Me.Adapter.InsertCommand.Parameters(0).Value = CType(Inv_ID,Integer)
14487             If (InvoiceNo Is Nothing) Then
14488                 Throw New Global.System.ArgumentNullException("InvoiceNo")
14489             Else
14490                 Me.Adapter.InsertCommand.Parameters(1).Value = CType(InvoiceNo,String)
14491             End If
14492             Me.Adapter.InsertCommand.Parameters(2).Value = CType(InvoiceDate,Date)
14493             Me.Adapter.InsertCommand.Parameters(3).Value = CType(CustomerID,Integer)
14494             Me.Adapter.InsertCommand.Parameters(4).Value = CType(GrandTotal,Decimal)
14495             Me.Adapter.InsertCommand.Parameters(5).Value = CType(TotalPaid,Decimal)
14496             Me.Adapter.InsertCommand.Parameters(6).Value = CType(Balance,Decimal)
14497             If (Remarks Is Nothing) Then
14498                 Me.Adapter.InsertCommand.Parameters(7).Value = Global.System.DBNull.Value
14499             Else
14500                 Me.Adapter.InsertCommand.Parameters(7).Value = CType(Remarks,String)
14501             End If
14502             Dim previousConnectionState As Global.System.Data.ConnectionState = Me.Adapter.InsertCommand.Connection.State
14503             If ((Me.Adapter.InsertCommand.Connection.State And Global.System.Data.ConnectionState.Open) _
14504                         <> Global.System.Data.ConnectionState.Open) Then
14505                 Me.Adapter.InsertCommand.Connection.Open
14506             End If
14507             Try
14508                 Dim returnValue As Integer = Me.Adapter.InsertCommand.ExecuteNonQuery
14509                 Return returnValue
14510             Finally
14511                 If (previousConnectionState = Global.System.Data.ConnectionState.Closed) Then
14512                     Me.Adapter.InsertCommand.Connection.Close
14513                 End If
14514             End Try
14515         End Function
14516         
14517         <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
14518          Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0"), _
14519          Global.System.ComponentModel.Design.HelpKeywordAttribute("vs.data.TableAdapter"), _
14520          Global.System.ComponentModel.DataObjectMethodAttribute(Global.System.ComponentModel.DataObjectMethodType.Update, true)> _
14521         Public Overloads Overridable Function Update(ByVal Inv_ID As Integer, ByVal InvoiceNo As String, ByVal InvoiceDate As Date, ByVal CustomerID As Integer, ByVal GrandTotal As Decimal, ByVal TotalPaid As Decimal, ByVal Balance As Decimal, ByVal Remarks As String, ByVal Original_Inv_ID As Integer, ByVal Original_InvoiceNo As String, ByVal Original_InvoiceDate As Date, ByVal Original_CustomerID As Integer, ByVal Original_GrandTotal As Decimal, ByVal Original_TotalPaid As Decimal, ByVal Original_Balance As Decimal) As Integer
14522             Me.Adapter.UpdateCommand.Parameters(0).Value = CType(Inv_ID,Integer)
14523             If (InvoiceNo Is Nothing) Then
14524                 Throw New Global.System.ArgumentNullException("InvoiceNo")
14525             Else
14526                 Me.Adapter.UpdateCommand.Parameters(1).Value = CType(InvoiceNo,String)
14527             End If
14528             Me.Adapter.UpdateCommand.Parameters(2).Value = CType(InvoiceDate,Date)
14529             Me.Adapter.UpdateCommand.Parameters(3).Value = CType(CustomerID,Integer)
14530             Me.Adapter.UpdateCommand.Parameters(4).Value = CType(GrandTotal,Decimal)
14531             Me.Adapter.UpdateCommand.Parameters(5).Value = CType(TotalPaid,Decimal)
14532             Me.Adapter.UpdateCommand.Parameters(6).Value = CType(Balance,Decimal)
14533             If (Remarks Is Nothing) Then
14534                 Me.Adapter.UpdateCommand.Parameters(7).Value = Global.System.DBNull.Value
14535             Else
14536                 Me.Adapter.UpdateCommand.Parameters(7).Value = CType(Remarks,String)
14537             End If
14538             Me.Adapter.UpdateCommand.Parameters(8).Value = CType(Original_Inv_ID,Integer)
14539             If (Original_InvoiceNo Is Nothing) Then
14540                 Throw New Global.System.ArgumentNullException("Original_InvoiceNo")
14541             Else
14542                 Me.Adapter.UpdateCommand.Parameters(9).Value = CType(Original_InvoiceNo,String)
14543             End If
14544             Me.Adapter.UpdateCommand.Parameters(10).Value = CType(Original_InvoiceDate,Date)
14545             Me.Adapter.UpdateCommand.Parameters(11).Value = CType(Original_CustomerID,Integer)
14546             Me.Adapter.UpdateCommand.Parameters(12).Value = CType(Original_GrandTotal,Decimal)
14547             Me.Adapter.UpdateCommand.Parameters(13).Value = CType(Original_TotalPaid,Decimal)
14548             Me.Adapter.UpdateCommand.Parameters(14).Value = CType(Original_Balance,Decimal)
14549             Dim previousConnectionState As Global.System.Data.ConnectionState = Me.Adapter.UpdateCommand.Connection.State
14550             If ((Me.Adapter.UpdateCommand.Connection.State And Global.System.Data.ConnectionState.Open) _
14551                         <> Global.System.Data.ConnectionState.Open) Then
14552                 Me.Adapter.UpdateCommand.Connection.Open
14553             End If
14554             Try
14555                 Dim returnValue As Integer = Me.Adapter.UpdateCommand.ExecuteNonQuery
14556                 Return returnValue
14557             Finally
14558                 If (previousConnectionState = Global.System.Data.ConnectionState.Closed) Then
14559                     Me.Adapter.UpdateCommand.Connection.Close
14560                 End If
14561             End Try
14562         End Function
14563         
14564         <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
14565          Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0"), _
14566          Global.System.ComponentModel.Design.HelpKeywordAttribute("vs.data.TableAdapter"), _
14567          Global.System.ComponentModel.DataObjectMethodAttribute(Global.System.ComponentModel.DataObjectMethodType.Update, true)> _
14568         Public Overloads Overridable Function Update(ByVal InvoiceNo As String, ByVal InvoiceDate As Date, ByVal CustomerID As Integer, ByVal GrandTotal As Decimal, ByVal TotalPaid As Decimal, ByVal Balance As Decimal, ByVal Remarks As String, ByVal Original_Inv_ID As Integer, ByVal Original_InvoiceNo As String, ByVal Original_InvoiceDate As Date, ByVal Original_CustomerID As Integer, ByVal Original_GrandTotal As Decimal, ByVal Original_TotalPaid As Decimal, ByVal Original_Balance As Decimal) As Integer
14569             Return Me.Update(Original_Inv_ID, InvoiceNo, InvoiceDate, CustomerID, GrandTotal, TotalPaid, Balance, Remarks, Original_Inv_ID, Original_InvoiceNo, Original_InvoiceDate, Original_CustomerID, Original_GrandTotal, Original_TotalPaid, Original_Balance)
14570         End Function
14571     End Class
14572     
14573     '''<summary>
14574     '''Represents the connection and commands used to retrieve and save data.
14575     '''</summary>
14576     <Global.System.ComponentModel.DesignerCategoryAttribute("code"), _
14577      Global.System.ComponentModel.ToolboxItem(true), _
14578      Global.System.ComponentModel.DataObjectAttribute(true), _
14579      Global.System.ComponentModel.DesignerAttribute("Microsoft.VSDesigner.DataSource.Design.TableAdapterDesigner, Microsoft.VSDesigner"& _
14580         ", Version=10.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a"), _
14581      Global.System.ComponentModel.Design.HelpKeywordAttribute("vs.data.TableAdapter")> _
14582     Partial Public Class LogsTableAdapter
14583         Inherits Global.System.ComponentModel.Component
14584         
14585         Private WithEvents _adapter As Global.System.Data.SqlClient.SqlDataAdapter
14586         
14587         Private _connection As Global.System.Data.SqlClient.SqlConnection
14588         
14589         Private _transaction As Global.System.Data.SqlClient.SqlTransaction
14590         
14591         Private _commandCollection() As Global.System.Data.SqlClient.SqlCommand
14592         
14593         Private _clearBeforeFill As Boolean
14594         
14595         <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
14596          Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0")> _
14597         Public Sub New()
14598             MyBase.New
14599             Me.ClearBeforeFill = true
14600         End Sub
14601         
14602         <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
14603          Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0")> _
14604         Protected Friend ReadOnly Property Adapter() As Global.System.Data.SqlClient.SqlDataAdapter
14605             Get
14606                 If (Me._adapter Is Nothing) Then
14607                     Me.InitAdapter
14608                 End If
14609                 Return Me._adapter
14610             End Get
14611         End Property
14612         
14613         <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
14614          Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0")> _
14615         Friend Property Connection() As Global.System.Data.SqlClient.SqlConnection
14616             Get
14617                 If (Me._connection Is Nothing) Then
14618                     Me.InitConnection
14619                 End If
14620                 Return Me._connection
14621             End Get
14622             Set
14623                 Me._connection = value
14624                 If (Not (Me.Adapter.InsertCommand) Is Nothing) Then
14625                     Me.Adapter.InsertCommand.Connection = value
14626                 End If
14627                 If (Not (Me.Adapter.DeleteCommand) Is Nothing) Then
14628                     Me.Adapter.DeleteCommand.Connection = value
14629                 End If
14630                 If (Not (Me.Adapter.UpdateCommand) Is Nothing) Then
14631                     Me.Adapter.UpdateCommand.Connection = value
14632                 End If
14633                 Dim i As Integer = 0
14634                 Do While (i < Me.CommandCollection.Length)
14635                     If (Not (Me.CommandCollection(i)) Is Nothing) Then
14636                         CType(Me.CommandCollection(i),Global.System.Data.SqlClient.SqlCommand).Connection = value
14637                     End If
14638                     i = (i + 1)
14639                 Loop
14640             End Set
14641         End Property
14642         
14643         <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
14644          Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0")> _
14645         Friend Property Transaction() As Global.System.Data.SqlClient.SqlTransaction
14646             Get
14647                 Return Me._transaction
14648             End Get
14649             Set
14650                 Me._transaction = value
14651                 Dim i As Integer = 0
14652                 Do While (i < Me.CommandCollection.Length)
14653                     Me.CommandCollection(i).Transaction = Me._transaction
14654                     i = (i + 1)
14655                 Loop
14656                 If ((Not (Me.Adapter) Is Nothing) _
14657                             AndAlso (Not (Me.Adapter.DeleteCommand) Is Nothing)) Then
14658                     Me.Adapter.DeleteCommand.Transaction = Me._transaction
14659                 End If
14660                 If ((Not (Me.Adapter) Is Nothing) _
14661                             AndAlso (Not (Me.Adapter.InsertCommand) Is Nothing)) Then
14662                     Me.Adapter.InsertCommand.Transaction = Me._transaction
14663                 End If
14664                 If ((Not (Me.Adapter) Is Nothing) _
14665                             AndAlso (Not (Me.Adapter.UpdateCommand) Is Nothing)) Then
14666                     Me.Adapter.UpdateCommand.Transaction = Me._transaction
14667                 End If
14668             End Set
14669         End Property
14670         
14671         <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
14672          Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0")> _
14673         Protected ReadOnly Property CommandCollection() As Global.System.Data.SqlClient.SqlCommand()
14674             Get
14675                 If (Me._commandCollection Is Nothing) Then
14676                     Me.InitCommandCollection
14677                 End If
14678                 Return Me._commandCollection
14679             End Get
14680         End Property
14681         
14682         <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
14683          Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0")> _
14684         Public Property ClearBeforeFill() As Boolean
14685             Get
14686                 Return Me._clearBeforeFill
14687             End Get
14688             Set
14689                 Me._clearBeforeFill = value
14690             End Set
14691         End Property
14692         
14693         <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
14694          Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0")> _
14695         Private Sub InitAdapter()
14696             Me._adapter = New Global.System.Data.SqlClient.SqlDataAdapter()
14697             Dim tableMapping As Global.System.Data.Common.DataTableMapping = New Global.System.Data.Common.DataTableMapping()
14698             tableMapping.SourceTable = "Table"
14699             tableMapping.DataSetTable = "Logs"
14700             tableMapping.ColumnMappings.Add("ID", "ID")
14701             tableMapping.ColumnMappings.Add("UserID", "UserID")
14702             tableMapping.ColumnMappings.Add("Operation", "Operation")
14703             tableMapping.ColumnMappings.Add("Date", "Date")
14704             Me._adapter.TableMappings.Add(tableMapping)
14705             Me._adapter.DeleteCommand = New Global.System.Data.SqlClient.SqlCommand()
14706             Me._adapter.DeleteCommand.Connection = Me.Connection
14707             Me._adapter.DeleteCommand.CommandText = "DELETE FROM [dbo].[Logs] WHERE (([ID] = @Original_ID) AND ([UserID] = @Original_U"& _
14708                 "serID) AND ([Date] = @Original_Date))"
14709             Me._adapter.DeleteCommand.CommandType = Global.System.Data.CommandType.Text
14710             Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_ID", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "ID", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", ""))
14711             Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_UserID", Global.System.Data.SqlDbType.NChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "UserID", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", ""))
14712             Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_Date", Global.System.Data.SqlDbType.DateTime, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "Date", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", ""))
14713             Me._adapter.InsertCommand = New Global.System.Data.SqlClient.SqlCommand()
14714             Me._adapter.InsertCommand.Connection = Me.Connection
14715             Me._adapter.InsertCommand.CommandText = "INSERT INTO [dbo].[Logs] ([UserID], [Operation], [Date]) VALUES (@UserID, @Operat"& _
14716                 "ion, @Date);"&Global.Microsoft.VisualBasic.ChrW(13)&Global.Microsoft.VisualBasic.ChrW(10)&"SELECT ID, UserID, Operation, Date FROM Logs WHERE (ID = SCOPE_IDE"& _
14717                 "NTITY())"
14718             Me._adapter.InsertCommand.CommandType = Global.System.Data.CommandType.Text
14719             Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@UserID", Global.System.Data.SqlDbType.NChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "UserID", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", ""))
14720             Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Operation", Global.System.Data.SqlDbType.NVarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "Operation", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", ""))
14721             Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Date", Global.System.Data.SqlDbType.DateTime, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "Date", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", ""))
14722             Me._adapter.UpdateCommand = New Global.System.Data.SqlClient.SqlCommand()
14723             Me._adapter.UpdateCommand.Connection = Me.Connection
14724             Me._adapter.UpdateCommand.CommandText = "UPDATE [dbo].[Logs] SET [UserID] = @UserID, [Operation] = @Operation, [Date] = @D"& _
14725                 "ate WHERE (([ID] = @Original_ID) AND ([UserID] = @Original_UserID) AND ([Date] ="& _
14726                 " @Original_Date));"&Global.Microsoft.VisualBasic.ChrW(13)&Global.Microsoft.VisualBasic.ChrW(10)&"SELECT ID, UserID, Operation, Date FROM Logs WHERE (ID = @ID"& _
14727                 ")"
14728             Me._adapter.UpdateCommand.CommandType = Global.System.Data.CommandType.Text
14729             Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@UserID", Global.System.Data.SqlDbType.NChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "UserID", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", ""))
14730             Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Operation", Global.System.Data.SqlDbType.NVarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "Operation", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", ""))
14731             Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Date", Global.System.Data.SqlDbType.DateTime, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "Date", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", ""))
14732             Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_ID", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "ID", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", ""))
14733             Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_UserID", Global.System.Data.SqlDbType.NChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "UserID", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", ""))
14734             Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_Date", Global.System.Data.SqlDbType.DateTime, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "Date", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", ""))
14735             Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@ID", Global.System.Data.SqlDbType.Int, 4, Global.System.Data.ParameterDirection.Input, 0, 0, "ID", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", ""))
14736         End Sub
14737         
14738         <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
14739          Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0")> _
14740         Private Sub InitConnection()
14741             Me._connection = New Global.System.Data.SqlClient.SqlConnection()
14742             Me._connection.ConnectionString = Global.Sales_and_Inventory_System.My.MySettings.Default.SIS_DBConnectionString1
14743         End Sub
14744         
14745         <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
14746          Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0")> _
14747         Private Sub InitCommandCollection()
14748             Me._commandCollection = New Global.System.Data.SqlClient.SqlCommand(0) {}
14749             Me._commandCollection(0) = New Global.System.Data.SqlClient.SqlCommand()
14750             Me._commandCollection(0).Connection = Me.Connection
14751             Me._commandCollection(0).CommandText = "SELECT ID, UserID, Operation, Date FROM dbo.Logs"
14752             Me._commandCollection(0).CommandType = Global.System.Data.CommandType.Text
14753         End Sub
14754         
14755         <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
14756          Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0"), _
14757          Global.System.ComponentModel.Design.HelpKeywordAttribute("vs.data.TableAdapter"), _
14758          Global.System.ComponentModel.DataObjectMethodAttribute(Global.System.ComponentModel.DataObjectMethodType.Fill, true)> _
14759         Public Overloads Overridable Function Fill(ByVal dataTable As SIS_DBDataSet.LogsDataTable) As Integer
14760             Me.Adapter.SelectCommand = Me.CommandCollection(0)
14761             If (Me.ClearBeforeFill = true) Then
14762                 dataTable.Clear
14763             End If
14764             Dim returnValue As Integer = Me.Adapter.Fill(dataTable)
14765             Return returnValue
14766         End Function
14767         
14768         <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
14769          Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0"), _
14770          Global.System.ComponentModel.Design.HelpKeywordAttribute("vs.data.TableAdapter"), _
14771          Global.System.ComponentModel.DataObjectMethodAttribute(Global.System.ComponentModel.DataObjectMethodType.[Select], true)> _
14772         Public Overloads Overridable Function GetData() As SIS_DBDataSet.LogsDataTable
14773             Me.Adapter.SelectCommand = Me.CommandCollection(0)
14774             Dim dataTable As SIS_DBDataSet.LogsDataTable = New SIS_DBDataSet.LogsDataTable()
14775             Me.Adapter.Fill(dataTable)
14776             Return dataTable
14777         End Function
14778         
14779         <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
14780          Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0"), _
14781          Global.System.ComponentModel.Design.HelpKeywordAttribute("vs.data.TableAdapter")> _
14782         Public Overloads Overridable Function Update(ByVal dataTable As SIS_DBDataSet.LogsDataTable) As Integer
14783             Return Me.Adapter.Update(dataTable)
14784         End Function
14785         
14786         <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
14787          Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0"), _
14788          Global.System.ComponentModel.Design.HelpKeywordAttribute("vs.data.TableAdapter")> _
14789         Public Overloads Overridable Function Update(ByVal dataSet As SIS_DBDataSet) As Integer
14790             Return Me.Adapter.Update(dataSet, "Logs")
14791         End Function
14792         
14793         <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
14794          Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0"), _
14795          Global.System.ComponentModel.Design.HelpKeywordAttribute("vs.data.TableAdapter")> _
14796         Public Overloads Overridable Function Update(ByVal dataRow As Global.System.Data.DataRow) As Integer
14797             Return Me.Adapter.Update(New Global.System.Data.DataRow() {dataRow})
14798         End Function
14799         
14800         <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
14801          Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0"), _
14802          Global.System.ComponentModel.Design.HelpKeywordAttribute("vs.data.TableAdapter")> _
14803         Public Overloads Overridable Function Update(ByVal dataRows() As Global.System.Data.DataRow) As Integer
14804             Return Me.Adapter.Update(dataRows)
14805         End Function
14806         
14807         <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
14808          Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0"), _
14809          Global.System.ComponentModel.Design.HelpKeywordAttribute("vs.data.TableAdapter"), _
14810          Global.System.ComponentModel.DataObjectMethodAttribute(Global.System.ComponentModel.DataObjectMethodType.Delete, true)> _
14811         Public Overloads Overridable Function Delete(ByVal Original_ID As Integer, ByVal Original_UserID As String, ByVal Original_Date As Date) As Integer
14812             Me.Adapter.DeleteCommand.Parameters(0).Value = CType(Original_ID,Integer)
14813             If (Original_UserID Is Nothing) Then
14814                 Throw New Global.System.ArgumentNullException("Original_UserID")
14815             Else
14816                 Me.Adapter.DeleteCommand.Parameters(1).Value = CType(Original_UserID,String)
14817             End If
14818             Me.Adapter.DeleteCommand.Parameters(2).Value = CType(Original_Date,Date)
14819             Dim previousConnectionState As Global.System.Data.ConnectionState = Me.Adapter.DeleteCommand.Connection.State
14820             If ((Me.Adapter.DeleteCommand.Connection.State And Global.System.Data.ConnectionState.Open) _
14821                         <> Global.System.Data.ConnectionState.Open) Then
14822                 Me.Adapter.DeleteCommand.Connection.Open
14823             End If
14824             Try
14825                 Dim returnValue As Integer = Me.Adapter.DeleteCommand.ExecuteNonQuery
14826                 Return returnValue
14827             Finally
14828                 If (previousConnectionState = Global.System.Data.ConnectionState.Closed) Then
14829                     Me.Adapter.DeleteCommand.Connection.Close
14830                 End If
14831             End Try
14832         End Function
14833         
14834         <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
14835          Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0"), _
14836          Global.System.ComponentModel.Design.HelpKeywordAttribute("vs.data.TableAdapter"), _
14837          Global.System.ComponentModel.DataObjectMethodAttribute(Global.System.ComponentModel.DataObjectMethodType.Insert, true)> _
14838         Public Overloads Overridable Function Insert(ByVal UserID As String, ByVal Operation As String, ByVal _Date As Date) As Integer
14839             If (UserID Is Nothing) Then
14840                 Throw New Global.System.ArgumentNullException("UserID")
14841             Else
14842                 Me.Adapter.InsertCommand.Parameters(0).Value = CType(UserID,String)
14843             End If
14844             If (Operation Is Nothing) Then
14845                 Throw New Global.System.ArgumentNullException("Operation")
14846             Else
14847                 Me.Adapter.InsertCommand.Parameters(1).Value = CType(Operation,String)
14848             End If
14849             Me.Adapter.InsertCommand.Parameters(2).Value = CType(_Date,Date)
14850             Dim previousConnectionState As Global.System.Data.ConnectionState = Me.Adapter.InsertCommand.Connection.State
14851             If ((Me.Adapter.InsertCommand.Connection.State And Global.System.Data.ConnectionState.Open) _
14852                         <> Global.System.Data.ConnectionState.Open) Then
14853                 Me.Adapter.InsertCommand.Connection.Open
14854             End If
14855             Try
14856                 Dim returnValue As Integer = Me.Adapter.InsertCommand.ExecuteNonQuery
14857                 Return returnValue
14858             Finally
14859                 If (previousConnectionState = Global.System.Data.ConnectionState.Closed) Then
14860                     Me.Adapter.InsertCommand.Connection.Close
14861                 End If
14862             End Try
14863         End Function
14864         
14865         <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
14866          Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0"), _
14867          Global.System.ComponentModel.Design.HelpKeywordAttribute("vs.data.TableAdapter"), _
14868          Global.System.ComponentModel.DataObjectMethodAttribute(Global.System.ComponentModel.DataObjectMethodType.Update, true)> _
14869         Public Overloads Overridable Function Update(ByVal UserID As String, ByVal Operation As String, ByVal _Date As Date, ByVal Original_ID As Integer, ByVal Original_UserID As String, ByVal Original_Date As Date, ByVal ID As Integer) As Integer
14870             If (UserID Is Nothing) Then
14871                 Throw New Global.System.ArgumentNullException("UserID")
14872             Else
14873                 Me.Adapter.UpdateCommand.Parameters(0).Value = CType(UserID,String)
14874             End If
14875             If (Operation Is Nothing) Then
14876                 Throw New Global.System.ArgumentNullException("Operation")
14877             Else
14878                 Me.Adapter.UpdateCommand.Parameters(1).Value = CType(Operation,String)
14879             End If
14880             Me.Adapter.UpdateCommand.Parameters(2).Value = CType(_Date,Date)
14881             Me.Adapter.UpdateCommand.Parameters(3).Value = CType(Original_ID,Integer)
14882             If (Original_UserID Is Nothing) Then
14883                 Throw New Global.System.ArgumentNullException("Original_UserID")
14884             Else
14885                 Me.Adapter.UpdateCommand.Parameters(4).Value = CType(Original_UserID,String)
14886             End If
14887             Me.Adapter.UpdateCommand.Parameters(5).Value = CType(Original_Date,Date)
14888             Me.Adapter.UpdateCommand.Parameters(6).Value = CType(ID,Integer)
14889             Dim previousConnectionState As Global.System.Data.ConnectionState = Me.Adapter.UpdateCommand.Connection.State
14890             If ((Me.Adapter.UpdateCommand.Connection.State And Global.System.Data.ConnectionState.Open) _
14891                         <> Global.System.Data.ConnectionState.Open) Then
14892                 Me.Adapter.UpdateCommand.Connection.Open
14893             End If
14894             Try
14895                 Dim returnValue As Integer = Me.Adapter.UpdateCommand.ExecuteNonQuery
14896                 Return returnValue
14897             Finally
14898                 If (previousConnectionState = Global.System.Data.ConnectionState.Closed) Then
14899                     Me.Adapter.UpdateCommand.Connection.Close
14900                 End If
14901             End Try
14902         End Function
14903         
14904         <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
14905          Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0"), _
14906          Global.System.ComponentModel.Design.HelpKeywordAttribute("vs.data.TableAdapter"), _
14907          Global.System.ComponentModel.DataObjectMethodAttribute(Global.System.ComponentModel.DataObjectMethodType.Update, true)> _
14908         Public Overloads Overridable Function Update(ByVal UserID As String, ByVal Operation As String, ByVal _Date As Date, ByVal Original_ID As Integer, ByVal Original_UserID As String, ByVal Original_Date As Date) As Integer
14909             Return Me.Update(UserID, Operation, _Date, Original_ID, Original_UserID, Original_Date, Original_ID)
14910         End Function
14911     End Class
14912     
14913     '''<summary>
14914     '''Represents the connection and commands used to retrieve and save data.
14915     '''</summary>
14916     <Global.System.ComponentModel.DesignerCategoryAttribute("code"), _
14917      Global.System.ComponentModel.ToolboxItem(true), _
14918      Global.System.ComponentModel.DataObjectAttribute(true), _
14919      Global.System.ComponentModel.DesignerAttribute("Microsoft.VSDesigner.DataSource.Design.TableAdapterDesigner, Microsoft.VSDesigner"& _
14920         ", Version=10.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a"), _
14921      Global.System.ComponentModel.Design.HelpKeywordAttribute("vs.data.TableAdapter")> _
14922     Partial Public Class ProductTableAdapter
14923         Inherits Global.System.ComponentModel.Component
14924         
14925         Private WithEvents _adapter As Global.System.Data.SqlClient.SqlDataAdapter
14926         
14927         Private _connection As Global.System.Data.SqlClient.SqlConnection
14928         
14929         Private _transaction As Global.System.Data.SqlClient.SqlTransaction
14930         
14931         Private _commandCollection() As Global.System.Data.SqlClient.SqlCommand
14932         
14933         Private _clearBeforeFill As Boolean
14934         
14935         <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
14936          Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0")> _
14937         Public Sub New()
14938             MyBase.New
14939             Me.ClearBeforeFill = true
14940         End Sub
14941         
14942         <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
14943          Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0")> _
14944         Protected Friend ReadOnly Property Adapter() As Global.System.Data.SqlClient.SqlDataAdapter
14945             Get
14946                 If (Me._adapter Is Nothing) Then
14947                     Me.InitAdapter
14948                 End If
14949                 Return Me._adapter
14950             End Get
14951         End Property
14952         
14953         <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
14954          Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0")> _
14955         Friend Property Connection() As Global.System.Data.SqlClient.SqlConnection
14956             Get
14957                 If (Me._connection Is Nothing) Then
14958                     Me.InitConnection
14959                 End If
14960                 Return Me._connection
14961             End Get
14962             Set
14963                 Me._connection = value
14964                 If (Not (Me.Adapter.InsertCommand) Is Nothing) Then
14965                     Me.Adapter.InsertCommand.Connection = value
14966                 End If
14967                 If (Not (Me.Adapter.DeleteCommand) Is Nothing) Then
14968                     Me.Adapter.DeleteCommand.Connection = value
14969                 End If
14970                 If (Not (Me.Adapter.UpdateCommand) Is Nothing) Then
14971                     Me.Adapter.UpdateCommand.Connection = value
14972                 End If
14973                 Dim i As Integer = 0
14974                 Do While (i < Me.CommandCollection.Length)
14975                     If (Not (Me.CommandCollection(i)) Is Nothing) Then
14976                         CType(Me.CommandCollection(i),Global.System.Data.SqlClient.SqlCommand).Connection = value
14977                     End If
14978                     i = (i + 1)
14979                 Loop
14980             End Set
14981         End Property
14982         
14983         <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
14984          Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0")> _
14985         Friend Property Transaction() As Global.System.Data.SqlClient.SqlTransaction
14986             Get
14987                 Return Me._transaction
14988             End Get
14989             Set
14990                 Me._transaction = value
14991                 Dim i As Integer = 0
14992                 Do While (i < Me.CommandCollection.Length)
14993                     Me.CommandCollection(i).Transaction = Me._transaction
14994                     i = (i + 1)
14995                 Loop
14996                 If ((Not (Me.Adapter) Is Nothing) _
14997                             AndAlso (Not (Me.Adapter.DeleteCommand) Is Nothing)) Then
14998                     Me.Adapter.DeleteCommand.Transaction = Me._transaction
14999                 End If
15000                 If ((Not (Me.Adapter) Is Nothing) _
15001                             AndAlso (Not (Me.Adapter.InsertCommand) Is Nothing)) Then
15002                     Me.Adapter.InsertCommand.Transaction = Me._transaction
15003                 End If
15004                 If ((Not (Me.Adapter) Is Nothing) _
15005                             AndAlso (Not (Me.Adapter.UpdateCommand) Is Nothing)) Then
15006                     Me.Adapter.UpdateCommand.Transaction = Me._transaction
15007                 End If
15008             End Set
15009         End Property
15010         
15011         <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
15012          Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0")> _
15013         Protected ReadOnly Property CommandCollection() As Global.System.Data.SqlClient.SqlCommand()
15014             Get
15015                 If (Me._commandCollection Is Nothing) Then
15016                     Me.InitCommandCollection
15017                 End If
15018                 Return Me._commandCollection
15019             End Get
15020         End Property
15021         
15022         <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
15023          Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0")> _
15024         Public Property ClearBeforeFill() As Boolean
15025             Get
15026                 Return Me._clearBeforeFill
15027             End Get
15028             Set
15029                 Me._clearBeforeFill = value
15030             End Set
15031         End Property
15032         
15033         <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
15034          Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0")> _
15035         Private Sub InitAdapter()
15036             Me._adapter = New Global.System.Data.SqlClient.SqlDataAdapter()
15037             Dim tableMapping As Global.System.Data.Common.DataTableMapping = New Global.System.Data.Common.DataTableMapping()
15038             tableMapping.SourceTable = "Table"
15039             tableMapping.DataSetTable = "Product"
15040             tableMapping.ColumnMappings.Add("PID", "PID")
15041             tableMapping.ColumnMappings.Add("ProductCode", "ProductCode")
15042             tableMapping.ColumnMappings.Add("ProductName", "ProductName")
15043             tableMapping.ColumnMappings.Add("SubCategoryID", "SubCategoryID")
15044             tableMapping.ColumnMappings.Add("Description", "Description")
15045             tableMapping.ColumnMappings.Add("CostPrice", "CostPrice")
15046             tableMapping.ColumnMappings.Add("SellingPrice", "SellingPrice")
15047             tableMapping.ColumnMappings.Add("Discount", "Discount")
15048             tableMapping.ColumnMappings.Add("VAT", "VAT")
15049             tableMapping.ColumnMappings.Add("ReorderPoint", "ReorderPoint")
15050             Me._adapter.TableMappings.Add(tableMapping)
15051             Me._adapter.DeleteCommand = New Global.System.Data.SqlClient.SqlCommand()
15052             Me._adapter.DeleteCommand.Connection = Me.Connection
15053             Me._adapter.DeleteCommand.CommandText = "DELETE FROM [dbo].[Product] WHERE (([PID] = @Original_PID) AND ([ProductCode] = @"& _
15054                 "Original_ProductCode) AND ([ProductName] = @Original_ProductName) AND ([SubCateg"& _
15055                 "oryID] = @Original_SubCategoryID) AND ([CostPrice] = @Original_CostPrice) AND (["& _
15056                 "SellingPrice] = @Original_SellingPrice) AND ([Discount] = @Original_Discount) AN"& _
15057                 "D ([VAT] = @Original_VAT) AND ([ReorderPoint] = @Original_ReorderPoint))"
15058             Me._adapter.DeleteCommand.CommandType = Global.System.Data.CommandType.Text
15059             Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_PID", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "PID", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", ""))
15060             Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_ProductCode", Global.System.Data.SqlDbType.NChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "ProductCode", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", ""))
15061             Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_ProductName", Global.System.Data.SqlDbType.NChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "ProductName", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", ""))
15062             Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_SubCategoryID", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "SubCategoryID", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", ""))
15063             Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_CostPrice", Global.System.Data.SqlDbType.[Decimal], 0, Global.System.Data.ParameterDirection.Input, 18, 2, "CostPrice", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", ""))
15064             Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_SellingPrice", Global.System.Data.SqlDbType.[Decimal], 0, Global.System.Data.ParameterDirection.Input, 18, 2, "SellingPrice", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", ""))
15065             Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_Discount", Global.System.Data.SqlDbType.[Decimal], 0, Global.System.Data.ParameterDirection.Input, 18, 2, "Discount", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", ""))
15066             Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_VAT", Global.System.Data.SqlDbType.[Decimal], 0, Global.System.Data.ParameterDirection.Input, 18, 2, "VAT", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", ""))
15067             Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_ReorderPoint", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "ReorderPoint", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", ""))
15068             Me._adapter.InsertCommand = New Global.System.Data.SqlClient.SqlCommand()
15069             Me._adapter.InsertCommand.Connection = Me.Connection
15070             Me._adapter.InsertCommand.CommandText = "INSERT INTO [dbo].[Product] ([PID], [ProductCode], [ProductName], [SubCategoryID]"& _
15071                 ", [Description], [CostPrice], [SellingPrice], [Discount], [VAT], [ReorderPoint])"& _
15072                 " VALUES (@PID, @ProductCode, @ProductName, @SubCategoryID, @Description, @CostPr"& _
15073                 "ice, @SellingPrice, @Discount, @VAT, @ReorderPoint);"&Global.Microsoft.VisualBasic.ChrW(13)&Global.Microsoft.VisualBasic.ChrW(10)&"SELECT PID, ProductCode, P"& _
15074                 "roductName, SubCategoryID, Description, CostPrice, SellingPrice, Discount, VAT, "& _
15075                 "ReorderPoint FROM Product WHERE (PID = @PID)"
15076             Me._adapter.InsertCommand.CommandType = Global.System.Data.CommandType.Text
15077             Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@PID", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "PID", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", ""))
15078             Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@ProductCode", Global.System.Data.SqlDbType.NChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "ProductCode", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", ""))
15079             Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@ProductName", Global.System.Data.SqlDbType.NChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "ProductName", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", ""))
15080             Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@SubCategoryID", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "SubCategoryID", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", ""))
15081             Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Description", Global.System.Data.SqlDbType.NVarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "Description", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", ""))
15082             Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@CostPrice", Global.System.Data.SqlDbType.[Decimal], 0, Global.System.Data.ParameterDirection.Input, 18, 2, "CostPrice", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", ""))
15083             Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@SellingPrice", Global.System.Data.SqlDbType.[Decimal], 0, Global.System.Data.ParameterDirection.Input, 18, 2, "SellingPrice", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", ""))
15084             Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Discount", Global.System.Data.SqlDbType.[Decimal], 0, Global.System.Data.ParameterDirection.Input, 18, 2, "Discount", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", ""))
15085             Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@VAT", Global.System.Data.SqlDbType.[Decimal], 0, Global.System.Data.ParameterDirection.Input, 18, 2, "VAT", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", ""))
15086             Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@ReorderPoint", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "ReorderPoint", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", ""))
15087             Me._adapter.UpdateCommand = New Global.System.Data.SqlClient.SqlCommand()
15088             Me._adapter.UpdateCommand.Connection = Me.Connection
15089             Me._adapter.UpdateCommand.CommandText = "UPDATE [dbo].[Product] SET [PID] = @PID, [ProductCode] = @ProductCode, [ProductNa"& _
15090                 "me] = @ProductName, [SubCategoryID] = @SubCategoryID, [Description] = @Descripti"& _
15091                 "on, [CostPrice] = @CostPrice, [SellingPrice] = @SellingPrice, [Discount] = @Disc"& _
15092                 "ount, [VAT] = @VAT, [ReorderPoint] = @ReorderPoint WHERE (([PID] = @Original_PID"& _
15093                 ") AND ([ProductCode] = @Original_ProductCode) AND ([ProductName] = @Original_Pro"& _
15094                 "ductName) AND ([SubCategoryID] = @Original_SubCategoryID) AND ([CostPrice] = @Or"& _
15095                 "iginal_CostPrice) AND ([SellingPrice] = @Original_SellingPrice) AND ([Discount] "& _
15096                 "= @Original_Discount) AND ([VAT] = @Original_VAT) AND ([ReorderPoint] = @Origina"& _
15097                 "l_ReorderPoint));"&Global.Microsoft.VisualBasic.ChrW(13)&Global.Microsoft.VisualBasic.ChrW(10)&"SELECT PID, ProductCode, ProductName, SubCategoryID, Descript"& _
15098                 "ion, CostPrice, SellingPrice, Discount, VAT, ReorderPoint FROM Product WHERE (PI"& _
15099                 "D = @PID)"
15100             Me._adapter.UpdateCommand.CommandType = Global.System.Data.CommandType.Text
15101             Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@PID", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "PID", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", ""))
15102             Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@ProductCode", Global.System.Data.SqlDbType.NChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "ProductCode", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", ""))
15103             Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@ProductName", Global.System.Data.SqlDbType.NChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "ProductName", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", ""))
15104             Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@SubCategoryID", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "SubCategoryID", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", ""))
15105             Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Description", Global.System.Data.SqlDbType.NVarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "Description", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", ""))
15106             Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@CostPrice", Global.System.Data.SqlDbType.[Decimal], 0, Global.System.Data.ParameterDirection.Input, 18, 2, "CostPrice", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", ""))
15107             Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@SellingPrice", Global.System.Data.SqlDbType.[Decimal], 0, Global.System.Data.ParameterDirection.Input, 18, 2, "SellingPrice", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", ""))
15108             Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Discount", Global.System.Data.SqlDbType.[Decimal], 0, Global.System.Data.ParameterDirection.Input, 18, 2, "Discount", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", ""))
15109             Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@VAT", Global.System.Data.SqlDbType.[Decimal], 0, Global.System.Data.ParameterDirection.Input, 18, 2, "VAT", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", ""))
15110             Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@ReorderPoint", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "ReorderPoint", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", ""))
15111             Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_PID", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "PID", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", ""))
15112             Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_ProductCode", Global.System.Data.SqlDbType.NChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "ProductCode", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", ""))
15113             Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_ProductName", Global.System.Data.SqlDbType.NChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "ProductName", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", ""))
15114             Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_SubCategoryID", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "SubCategoryID", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", ""))
15115             Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_CostPrice", Global.System.Data.SqlDbType.[Decimal], 0, Global.System.Data.ParameterDirection.Input, 18, 2, "CostPrice", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", ""))
15116             Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_SellingPrice", Global.System.Data.SqlDbType.[Decimal], 0, Global.System.Data.ParameterDirection.Input, 18, 2, "SellingPrice", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", ""))
15117             Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_Discount", Global.System.Data.SqlDbType.[Decimal], 0, Global.System.Data.ParameterDirection.Input, 18, 2, "Discount", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", ""))
15118             Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_VAT", Global.System.Data.SqlDbType.[Decimal], 0, Global.System.Data.ParameterDirection.Input, 18, 2, "VAT", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", ""))
15119             Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_ReorderPoint", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "ReorderPoint", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", ""))
15120         End Sub
15121         
15122         <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
15123          Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0")> _
15124         Private Sub InitConnection()
15125             Me._connection = New Global.System.Data.SqlClient.SqlConnection()
15126             Me._connection.ConnectionString = Global.Sales_and_Inventory_System.My.MySettings.Default.SIS_DBConnectionString1
15127         End Sub
15128         
15129         <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
15130          Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0")> _
15131         Private Sub InitCommandCollection()
15132             Me._commandCollection = New Global.System.Data.SqlClient.SqlCommand(0) {}
15133             Me._commandCollection(0) = New Global.System.Data.SqlClient.SqlCommand()
15134             Me._commandCollection(0).Connection = Me.Connection
15135             Me._commandCollection(0).CommandText = "SELECT PID, ProductCode, ProductName, SubCategoryID, Description, CostPrice, Sell"& _
15136                 "ingPrice, Discount, VAT, ReorderPoint FROM dbo.Product"
15137             Me._commandCollection(0).CommandType = Global.System.Data.CommandType.Text
15138         End Sub
15139         
15140         <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
15141          Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0"), _
15142          Global.System.ComponentModel.Design.HelpKeywordAttribute("vs.data.TableAdapter"), _
15143          Global.System.ComponentModel.DataObjectMethodAttribute(Global.System.ComponentModel.DataObjectMethodType.Fill, true)> _
15144         Public Overloads Overridable Function Fill(ByVal dataTable As SIS_DBDataSet.ProductDataTable) As Integer
15145             Me.Adapter.SelectCommand = Me.CommandCollection(0)
15146             If (Me.ClearBeforeFill = true) Then
15147                 dataTable.Clear
15148             End If
15149             Dim returnValue As Integer = Me.Adapter.Fill(dataTable)
15150             Return returnValue
15151         End Function
15152         
15153         <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
15154          Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0"), _
15155          Global.System.ComponentModel.Design.HelpKeywordAttribute("vs.data.TableAdapter"), _
15156          Global.System.ComponentModel.DataObjectMethodAttribute(Global.System.ComponentModel.DataObjectMethodType.[Select], true)> _
15157         Public Overloads Overridable Function GetData() As SIS_DBDataSet.ProductDataTable
15158             Me.Adapter.SelectCommand = Me.CommandCollection(0)
15159             Dim dataTable As SIS_DBDataSet.ProductDataTable = New SIS_DBDataSet.ProductDataTable()
15160             Me.Adapter.Fill(dataTable)
15161             Return dataTable
15162         End Function
15163         
15164         <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
15165          Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0"), _
15166          Global.System.ComponentModel.Design.HelpKeywordAttribute("vs.data.TableAdapter")> _
15167         Public Overloads Overridable Function Update(ByVal dataTable As SIS_DBDataSet.ProductDataTable) As Integer
15168             Return Me.Adapter.Update(dataTable)
15169         End Function
15170         
15171         <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
15172          Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0"), _
15173          Global.System.ComponentModel.Design.HelpKeywordAttribute("vs.data.TableAdapter")> _
15174         Public Overloads Overridable Function Update(ByVal dataSet As SIS_DBDataSet) As Integer
15175             Return Me.Adapter.Update(dataSet, "Product")
15176         End Function
15177         
15178         <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
15179          Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0"), _
15180          Global.System.ComponentModel.Design.HelpKeywordAttribute("vs.data.TableAdapter")> _
15181         Public Overloads Overridable Function Update(ByVal dataRow As Global.System.Data.DataRow) As Integer
15182             Return Me.Adapter.Update(New Global.System.Data.DataRow() {dataRow})
15183         End Function
15184         
15185         <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
15186          Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0"), _
15187          Global.System.ComponentModel.Design.HelpKeywordAttribute("vs.data.TableAdapter")> _
15188         Public Overloads Overridable Function Update(ByVal dataRows() As Global.System.Data.DataRow) As Integer
15189             Return Me.Adapter.Update(dataRows)
15190         End Function
15191         
15192         <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
15193          Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0"), _
15194          Global.System.ComponentModel.Design.HelpKeywordAttribute("vs.data.TableAdapter"), _
15195          Global.System.ComponentModel.DataObjectMethodAttribute(Global.System.ComponentModel.DataObjectMethodType.Delete, true)> _
15196         Public Overloads Overridable Function Delete(ByVal Original_PID As Integer, ByVal Original_ProductCode As String, ByVal Original_ProductName As String, ByVal Original_SubCategoryID As Integer, ByVal Original_CostPrice As Decimal, ByVal Original_SellingPrice As Decimal, ByVal Original_Discount As Decimal, ByVal Original_VAT As Decimal, ByVal Original_ReorderPoint As Integer) As Integer
15197             Me.Adapter.DeleteCommand.Parameters(0).Value = CType(Original_PID,Integer)
15198             If (Original_ProductCode Is Nothing) Then
15199                 Throw New Global.System.ArgumentNullException("Original_ProductCode")
15200             Else
15201                 Me.Adapter.DeleteCommand.Parameters(1).Value = CType(Original_ProductCode,String)
15202             End If
15203             If (Original_ProductName Is Nothing) Then
15204                 Throw New Global.System.ArgumentNullException("Original_ProductName")
15205             Else
15206                 Me.Adapter.DeleteCommand.Parameters(2).Value = CType(Original_ProductName,String)
15207             End If
15208             Me.Adapter.DeleteCommand.Parameters(3).Value = CType(Original_SubCategoryID,Integer)
15209             Me.Adapter.DeleteCommand.Parameters(4).Value = CType(Original_CostPrice,Decimal)
15210             Me.Adapter.DeleteCommand.Parameters(5).Value = CType(Original_SellingPrice,Decimal)
15211             Me.Adapter.DeleteCommand.Parameters(6).Value = CType(Original_Discount,Decimal)
15212             Me.Adapter.DeleteCommand.Parameters(7).Value = CType(Original_VAT,Decimal)
15213             Me.Adapter.DeleteCommand.Parameters(8).Value = CType(Original_ReorderPoint,Integer)
15214             Dim previousConnectionState As Global.System.Data.ConnectionState = Me.Adapter.DeleteCommand.Connection.State
15215             If ((Me.Adapter.DeleteCommand.Connection.State And Global.System.Data.ConnectionState.Open) _
15216                         <> Global.System.Data.ConnectionState.Open) Then
15217                 Me.Adapter.DeleteCommand.Connection.Open
15218             End If
15219             Try
15220                 Dim returnValue As Integer = Me.Adapter.DeleteCommand.ExecuteNonQuery
15221                 Return returnValue
15222             Finally
15223                 If (previousConnectionState = Global.System.Data.ConnectionState.Closed) Then
15224                     Me.Adapter.DeleteCommand.Connection.Close
15225                 End If
15226             End Try
15227         End Function
15228         
15229         <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
15230          Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0"), _
15231          Global.System.ComponentModel.Design.HelpKeywordAttribute("vs.data.TableAdapter"), _
15232          Global.System.ComponentModel.DataObjectMethodAttribute(Global.System.ComponentModel.DataObjectMethodType.Insert, true)> _
15233         Public Overloads Overridable Function Insert(ByVal PID As Integer, ByVal ProductCode As String, ByVal ProductName As String, ByVal SubCategoryID As Integer, ByVal Description As String, ByVal CostPrice As Decimal, ByVal SellingPrice As Decimal, ByVal Discount As Decimal, ByVal VAT As Decimal, ByVal ReorderPoint As Integer) As Integer
15234             Me.Adapter.InsertCommand.Parameters(0).Value = CType(PID,Integer)
15235             If (ProductCode Is Nothing) Then
15236                 Throw New Global.System.ArgumentNullException("ProductCode")
15237             Else
15238                 Me.Adapter.InsertCommand.Parameters(1).Value = CType(ProductCode,String)
15239             End If
15240             If (ProductName Is Nothing) Then
15241                 Throw New Global.System.ArgumentNullException("ProductName")
15242             Else
15243                 Me.Adapter.InsertCommand.Parameters(2).Value = CType(ProductName,String)
15244             End If
15245             Me.Adapter.InsertCommand.Parameters(3).Value = CType(SubCategoryID,Integer)
15246             If (Description Is Nothing) Then
15247                 Me.Adapter.InsertCommand.Parameters(4).Value = Global.System.DBNull.Value
15248             Else
15249                 Me.Adapter.InsertCommand.Parameters(4).Value = CType(Description,String)
15250             End If
15251             Me.Adapter.InsertCommand.Parameters(5).Value = CType(CostPrice,Decimal)
15252             Me.Adapter.InsertCommand.Parameters(6).Value = CType(SellingPrice,Decimal)
15253             Me.Adapter.InsertCommand.Parameters(7).Value = CType(Discount,Decimal)
15254             Me.Adapter.InsertCommand.Parameters(8).Value = CType(VAT,Decimal)
15255             Me.Adapter.InsertCommand.Parameters(9).Value = CType(ReorderPoint,Integer)
15256             Dim previousConnectionState As Global.System.Data.ConnectionState = Me.Adapter.InsertCommand.Connection.State
15257             If ((Me.Adapter.InsertCommand.Connection.State And Global.System.Data.ConnectionState.Open) _
15258                         <> Global.System.Data.ConnectionState.Open) Then
15259                 Me.Adapter.InsertCommand.Connection.Open
15260             End If
15261             Try
15262                 Dim returnValue As Integer = Me.Adapter.InsertCommand.ExecuteNonQuery
15263                 Return returnValue
15264             Finally
15265                 If (previousConnectionState = Global.System.Data.ConnectionState.Closed) Then
15266                     Me.Adapter.InsertCommand.Connection.Close
15267                 End If
15268             End Try
15269         End Function
15270         
15271         <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
15272          Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0"), _
15273          Global.System.ComponentModel.Design.HelpKeywordAttribute("vs.data.TableAdapter"), _
15274          Global.System.ComponentModel.DataObjectMethodAttribute(Global.System.ComponentModel.DataObjectMethodType.Update, true)> _
15275         Public Overloads Overridable Function Update( _
15276                     ByVal PID As Integer, _
15277                     ByVal ProductCode As String, _
15278                     ByVal ProductName As String, _
15279                     ByVal SubCategoryID As Integer, _
15280                     ByVal Description As String, _
15281                     ByVal CostPrice As Decimal, _
15282                     ByVal SellingPrice As Decimal, _
15283                     ByVal Discount As Decimal, _
15284                     ByVal VAT As Decimal, _
15285                     ByVal ReorderPoint As Integer, _
15286                     ByVal Original_PID As Integer, _
15287                     ByVal Original_ProductCode As String, _
15288                     ByVal Original_ProductName As String, _
15289                     ByVal Original_SubCategoryID As Integer, _
15290                     ByVal Original_CostPrice As Decimal, _
15291                     ByVal Original_SellingPrice As Decimal, _
15292                     ByVal Original_Discount As Decimal, _
15293                     ByVal Original_VAT As Decimal, _
15294                     ByVal Original_ReorderPoint As Integer) As Integer
15295             Me.Adapter.UpdateCommand.Parameters(0).Value = CType(PID,Integer)
15296             If (ProductCode Is Nothing) Then
15297                 Throw New Global.System.ArgumentNullException("ProductCode")
15298             Else
15299                 Me.Adapter.UpdateCommand.Parameters(1).Value = CType(ProductCode,String)
15300             End If
15301             If (ProductName Is Nothing) Then
15302                 Throw New Global.System.ArgumentNullException("ProductName")
15303             Else
15304                 Me.Adapter.UpdateCommand.Parameters(2).Value = CType(ProductName,String)
15305             End If
15306             Me.Adapter.UpdateCommand.Parameters(3).Value = CType(SubCategoryID,Integer)
15307             If (Description Is Nothing) Then
15308                 Me.Adapter.UpdateCommand.Parameters(4).Value = Global.System.DBNull.Value
15309             Else
15310                 Me.Adapter.UpdateCommand.Parameters(4).Value = CType(Description,String)
15311             End If
15312             Me.Adapter.UpdateCommand.Parameters(5).Value = CType(CostPrice,Decimal)
15313             Me.Adapter.UpdateCommand.Parameters(6).Value = CType(SellingPrice,Decimal)
15314             Me.Adapter.UpdateCommand.Parameters(7).Value = CType(Discount,Decimal)
15315             Me.Adapter.UpdateCommand.Parameters(8).Value = CType(VAT,Decimal)
15316             Me.Adapter.UpdateCommand.Parameters(9).Value = CType(ReorderPoint,Integer)
15317             Me.Adapter.UpdateCommand.Parameters(10).Value = CType(Original_PID,Integer)
15318             If (Original_ProductCode Is Nothing) Then
15319                 Throw New Global.System.ArgumentNullException("Original_ProductCode")
15320             Else
15321                 Me.Adapter.UpdateCommand.Parameters(11).Value = CType(Original_ProductCode,String)
15322             End If
15323             If (Original_ProductName Is Nothing) Then
15324                 Throw New Global.System.ArgumentNullException("Original_ProductName")
15325             Else
15326                 Me.Adapter.UpdateCommand.Parameters(12).Value = CType(Original_ProductName,String)
15327             End If
15328             Me.Adapter.UpdateCommand.Parameters(13).Value = CType(Original_SubCategoryID,Integer)
15329             Me.Adapter.UpdateCommand.Parameters(14).Value = CType(Original_CostPrice,Decimal)
15330             Me.Adapter.UpdateCommand.Parameters(15).Value = CType(Original_SellingPrice,Decimal)
15331             Me.Adapter.UpdateCommand.Parameters(16).Value = CType(Original_Discount,Decimal)
15332             Me.Adapter.UpdateCommand.Parameters(17).Value = CType(Original_VAT,Decimal)
15333             Me.Adapter.UpdateCommand.Parameters(18).Value = CType(Original_ReorderPoint,Integer)
15334             Dim previousConnectionState As Global.System.Data.ConnectionState = Me.Adapter.UpdateCommand.Connection.State
15335             If ((Me.Adapter.UpdateCommand.Connection.State And Global.System.Data.ConnectionState.Open) _
15336                         <> Global.System.Data.ConnectionState.Open) Then
15337                 Me.Adapter.UpdateCommand.Connection.Open
15338             End If
15339             Try
15340                 Dim returnValue As Integer = Me.Adapter.UpdateCommand.ExecuteNonQuery
15341                 Return returnValue
15342             Finally
15343                 If (previousConnectionState = Global.System.Data.ConnectionState.Closed) Then
15344                     Me.Adapter.UpdateCommand.Connection.Close
15345                 End If
15346             End Try
15347         End Function
15348         
15349         <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
15350          Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0"), _
15351          Global.System.ComponentModel.Design.HelpKeywordAttribute("vs.data.TableAdapter"), _
15352          Global.System.ComponentModel.DataObjectMethodAttribute(Global.System.ComponentModel.DataObjectMethodType.Update, true)> _
15353         Public Overloads Overridable Function Update( _
15354                     ByVal ProductCode As String, _
15355                     ByVal ProductName As String, _
15356                     ByVal SubCategoryID As Integer, _
15357                     ByVal Description As String, _
15358                     ByVal CostPrice As Decimal, _
15359                     ByVal SellingPrice As Decimal, _
15360                     ByVal Discount As Decimal, _
15361                     ByVal VAT As Decimal, _
15362                     ByVal ReorderPoint As Integer, _
15363                     ByVal Original_PID As Integer, _
15364                     ByVal Original_ProductCode As String, _
15365                     ByVal Original_ProductName As String, _
15366                     ByVal Original_SubCategoryID As Integer, _
15367                     ByVal Original_CostPrice As Decimal, _
15368                     ByVal Original_SellingPrice As Decimal, _
15369                     ByVal Original_Discount As Decimal, _
15370                     ByVal Original_VAT As Decimal, _
15371                     ByVal Original_ReorderPoint As Integer) As Integer
15372             Return Me.Update(Original_PID, ProductCode, ProductName, SubCategoryID, Description, CostPrice, SellingPrice, Discount, VAT, ReorderPoint, Original_PID, Original_ProductCode, Original_ProductName, Original_SubCategoryID, Original_CostPrice, Original_SellingPrice, Original_Discount, Original_VAT, Original_ReorderPoint)
15373         End Function
15374     End Class
15375     
15376     '''<summary>
15377     '''Represents the connection and commands used to retrieve and save data.
15378     '''</summary>
15379     <Global.System.ComponentModel.DesignerCategoryAttribute("code"), _
15380      Global.System.ComponentModel.ToolboxItem(true), _
15381      Global.System.ComponentModel.DataObjectAttribute(true), _
15382      Global.System.ComponentModel.DesignerAttribute("Microsoft.VSDesigner.DataSource.Design.TableAdapterDesigner, Microsoft.VSDesigner"& _
15383         ", Version=10.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a"), _
15384      Global.System.ComponentModel.Design.HelpKeywordAttribute("vs.data.TableAdapter")> _
15385     Partial Public Class Product_JoinTableAdapter
15386         Inherits Global.System.ComponentModel.Component
15387         
15388         Private WithEvents _adapter As Global.System.Data.SqlClient.SqlDataAdapter
15389         
15390         Private _connection As Global.System.Data.SqlClient.SqlConnection
15391         
15392         Private _transaction As Global.System.Data.SqlClient.SqlTransaction
15393         
15394         Private _commandCollection() As Global.System.Data.SqlClient.SqlCommand
15395         
15396         Private _clearBeforeFill As Boolean
15397         
15398         <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
15399          Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0")> _
15400         Public Sub New()
15401             MyBase.New
15402             Me.ClearBeforeFill = true
15403         End Sub
15404         
15405         <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
15406          Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0")> _
15407         Protected Friend ReadOnly Property Adapter() As Global.System.Data.SqlClient.SqlDataAdapter
15408             Get
15409                 If (Me._adapter Is Nothing) Then
15410                     Me.InitAdapter
15411                 End If
15412                 Return Me._adapter
15413             End Get
15414         End Property
15415         
15416         <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
15417          Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0")> _
15418         Friend Property Connection() As Global.System.Data.SqlClient.SqlConnection
15419             Get
15420                 If (Me._connection Is Nothing) Then
15421                     Me.InitConnection
15422                 End If
15423                 Return Me._connection
15424             End Get
15425             Set
15426                 Me._connection = value
15427                 If (Not (Me.Adapter.InsertCommand) Is Nothing) Then
15428                     Me.Adapter.InsertCommand.Connection = value
15429                 End If
15430                 If (Not (Me.Adapter.DeleteCommand) Is Nothing) Then
15431                     Me.Adapter.DeleteCommand.Connection = value
15432                 End If
15433                 If (Not (Me.Adapter.UpdateCommand) Is Nothing) Then
15434                     Me.Adapter.UpdateCommand.Connection = value
15435                 End If
15436                 Dim i As Integer = 0
15437                 Do While (i < Me.CommandCollection.Length)
15438                     If (Not (Me.CommandCollection(i)) Is Nothing) Then
15439                         CType(Me.CommandCollection(i),Global.System.Data.SqlClient.SqlCommand).Connection = value
15440                     End If
15441                     i = (i + 1)
15442                 Loop
15443             End Set
15444         End Property
15445         
15446         <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
15447          Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0")> _
15448         Friend Property Transaction() As Global.System.Data.SqlClient.SqlTransaction
15449             Get
15450                 Return Me._transaction
15451             End Get
15452             Set
15453                 Me._transaction = value
15454                 Dim i As Integer = 0
15455                 Do While (i < Me.CommandCollection.Length)
15456                     Me.CommandCollection(i).Transaction = Me._transaction
15457                     i = (i + 1)
15458                 Loop
15459                 If ((Not (Me.Adapter) Is Nothing) _
15460                             AndAlso (Not (Me.Adapter.DeleteCommand) Is Nothing)) Then
15461                     Me.Adapter.DeleteCommand.Transaction = Me._transaction
15462                 End If
15463                 If ((Not (Me.Adapter) Is Nothing) _
15464                             AndAlso (Not (Me.Adapter.InsertCommand) Is Nothing)) Then
15465                     Me.Adapter.InsertCommand.Transaction = Me._transaction
15466                 End If
15467                 If ((Not (Me.Adapter) Is Nothing) _
15468                             AndAlso (Not (Me.Adapter.UpdateCommand) Is Nothing)) Then
15469                     Me.Adapter.UpdateCommand.Transaction = Me._transaction
15470                 End If
15471             End Set
15472         End Property
15473         
15474         <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
15475          Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0")> _
15476         Protected ReadOnly Property CommandCollection() As Global.System.Data.SqlClient.SqlCommand()
15477             Get
15478                 If (Me._commandCollection Is Nothing) Then
15479                     Me.InitCommandCollection
15480                 End If
15481                 Return Me._commandCollection
15482             End Get
15483         End Property
15484         
15485         <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
15486          Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0")> _
15487         Public Property ClearBeforeFill() As Boolean
15488             Get
15489                 Return Me._clearBeforeFill
15490             End Get
15491             Set
15492                 Me._clearBeforeFill = value
15493             End Set
15494         End Property
15495         
15496         <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
15497          Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0")> _
15498         Private Sub InitAdapter()
15499             Me._adapter = New Global.System.Data.SqlClient.SqlDataAdapter()
15500             Dim tableMapping As Global.System.Data.Common.DataTableMapping = New Global.System.Data.Common.DataTableMapping()
15501             tableMapping.SourceTable = "Table"
15502             tableMapping.DataSetTable = "Product_Join"
15503             tableMapping.ColumnMappings.Add("Id", "Id")
15504             tableMapping.ColumnMappings.Add("ProductID", "ProductID")
15505             tableMapping.ColumnMappings.Add("Photo", "Photo")
15506             Me._adapter.TableMappings.Add(tableMapping)
15507             Me._adapter.DeleteCommand = New Global.System.Data.SqlClient.SqlCommand()
15508             Me._adapter.DeleteCommand.Connection = Me.Connection
15509             Me._adapter.DeleteCommand.CommandText = "DELETE FROM [dbo].[Product_Join] WHERE (([Id] = @Original_Id) AND ([ProductID] = "& _
15510                 "@Original_ProductID))"
15511             Me._adapter.DeleteCommand.CommandType = Global.System.Data.CommandType.Text
15512             Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_Id", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "Id", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", ""))
15513             Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_ProductID", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "ProductID", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", ""))
15514             Me._adapter.InsertCommand = New Global.System.Data.SqlClient.SqlCommand()
15515             Me._adapter.InsertCommand.Connection = Me.Connection
15516             Me._adapter.InsertCommand.CommandText = "INSERT INTO [dbo].[Product_Join] ([ProductID], [Photo]) VALUES (@ProductID, @Phot"& _
15517                 "o);"&Global.Microsoft.VisualBasic.ChrW(13)&Global.Microsoft.VisualBasic.ChrW(10)&"SELECT Id, ProductID, Photo FROM Product_Join WHERE (Id = SCOPE_IDENTITY())"& _
15518                 ""
15519             Me._adapter.InsertCommand.CommandType = Global.System.Data.CommandType.Text
15520             Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@ProductID", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "ProductID", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", ""))
15521             Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Photo", Global.System.Data.SqlDbType.Image, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "Photo", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", ""))
15522             Me._adapter.UpdateCommand = New Global.System.Data.SqlClient.SqlCommand()
15523             Me._adapter.UpdateCommand.Connection = Me.Connection
15524             Me._adapter.UpdateCommand.CommandText = "UPDATE [dbo].[Product_Join] SET [ProductID] = @ProductID, [Photo] = @Photo WHERE "& _
15525                 "(([Id] = @Original_Id) AND ([ProductID] = @Original_ProductID));"&Global.Microsoft.VisualBasic.ChrW(13)&Global.Microsoft.VisualBasic.ChrW(10)&"SELECT Id, Pro"& _
15526                 "ductID, Photo FROM Product_Join WHERE (Id = @Id)"
15527             Me._adapter.UpdateCommand.CommandType = Global.System.Data.CommandType.Text
15528             Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@ProductID", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "ProductID", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", ""))
15529             Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Photo", Global.System.Data.SqlDbType.Image, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "Photo", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", ""))
15530             Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_Id", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "Id", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", ""))
15531             Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_ProductID", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "ProductID", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", ""))
15532             Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Id", Global.System.Data.SqlDbType.Int, 4, Global.System.Data.ParameterDirection.Input, 0, 0, "Id", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", ""))
15533         End Sub
15534         
15535         <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
15536          Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0")> _
15537         Private Sub InitConnection()
15538             Me._connection = New Global.System.Data.SqlClient.SqlConnection()
15539             Me._connection.ConnectionString = Global.Sales_and_Inventory_System.My.MySettings.Default.SIS_DBConnectionString1
15540         End Sub
15541         
15542         <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
15543          Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0")> _
15544         Private Sub InitCommandCollection()
15545             Me._commandCollection = New Global.System.Data.SqlClient.SqlCommand(0) {}
15546             Me._commandCollection(0) = New Global.System.Data.SqlClient.SqlCommand()
15547             Me._commandCollection(0).Connection = Me.Connection
15548             Me._commandCollection(0).CommandText = "SELECT Id, ProductID, Photo FROM dbo.Product_Join"
15549             Me._commandCollection(0).CommandType = Global.System.Data.CommandType.Text
15550         End Sub
15551         
15552         <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
15553          Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0"), _
15554          Global.System.ComponentModel.Design.HelpKeywordAttribute("vs.data.TableAdapter"), _
15555          Global.System.ComponentModel.DataObjectMethodAttribute(Global.System.ComponentModel.DataObjectMethodType.Fill, true)> _
15556         Public Overloads Overridable Function Fill(ByVal dataTable As SIS_DBDataSet.Product_JoinDataTable) As Integer
15557             Me.Adapter.SelectCommand = Me.CommandCollection(0)
15558             If (Me.ClearBeforeFill = true) Then
15559                 dataTable.Clear
15560             End If
15561             Dim returnValue As Integer = Me.Adapter.Fill(dataTable)
15562             Return returnValue
15563         End Function
15564         
15565         <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
15566          Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0"), _
15567          Global.System.ComponentModel.Design.HelpKeywordAttribute("vs.data.TableAdapter"), _
15568          Global.System.ComponentModel.DataObjectMethodAttribute(Global.System.ComponentModel.DataObjectMethodType.[Select], true)> _
15569         Public Overloads Overridable Function GetData() As SIS_DBDataSet.Product_JoinDataTable
15570             Me.Adapter.SelectCommand = Me.CommandCollection(0)
15571             Dim dataTable As SIS_DBDataSet.Product_JoinDataTable = New SIS_DBDataSet.Product_JoinDataTable()
15572             Me.Adapter.Fill(dataTable)
15573             Return dataTable
15574         End Function
15575         
15576         <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
15577          Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0"), _
15578          Global.System.ComponentModel.Design.HelpKeywordAttribute("vs.data.TableAdapter")> _
15579         Public Overloads Overridable Function Update(ByVal dataTable As SIS_DBDataSet.Product_JoinDataTable) As Integer
15580             Return Me.Adapter.Update(dataTable)
15581         End Function
15582         
15583         <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
15584          Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0"), _
15585          Global.System.ComponentModel.Design.HelpKeywordAttribute("vs.data.TableAdapter")> _
15586         Public Overloads Overridable Function Update(ByVal dataSet As SIS_DBDataSet) As Integer
15587             Return Me.Adapter.Update(dataSet, "Product_Join")
15588         End Function
15589         
15590         <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
15591          Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0"), _
15592          Global.System.ComponentModel.Design.HelpKeywordAttribute("vs.data.TableAdapter")> _
15593         Public Overloads Overridable Function Update(ByVal dataRow As Global.System.Data.DataRow) As Integer
15594             Return Me.Adapter.Update(New Global.System.Data.DataRow() {dataRow})
15595         End Function
15596         
15597         <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
15598          Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0"), _
15599          Global.System.ComponentModel.Design.HelpKeywordAttribute("vs.data.TableAdapter")> _
15600         Public Overloads Overridable Function Update(ByVal dataRows() As Global.System.Data.DataRow) As Integer
15601             Return Me.Adapter.Update(dataRows)
15602         End Function
15603         
15604         <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
15605          Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0"), _
15606          Global.System.ComponentModel.Design.HelpKeywordAttribute("vs.data.TableAdapter"), _
15607          Global.System.ComponentModel.DataObjectMethodAttribute(Global.System.ComponentModel.DataObjectMethodType.Delete, true)> _
15608         Public Overloads Overridable Function Delete(ByVal Original_Id As Integer, ByVal Original_ProductID As Integer) As Integer
15609             Me.Adapter.DeleteCommand.Parameters(0).Value = CType(Original_Id,Integer)
15610             Me.Adapter.DeleteCommand.Parameters(1).Value = CType(Original_ProductID,Integer)
15611             Dim previousConnectionState As Global.System.Data.ConnectionState = Me.Adapter.DeleteCommand.Connection.State
15612             If ((Me.Adapter.DeleteCommand.Connection.State And Global.System.Data.ConnectionState.Open) _
15613                         <> Global.System.Data.ConnectionState.Open) Then
15614                 Me.Adapter.DeleteCommand.Connection.Open
15615             End If
15616             Try
15617                 Dim returnValue As Integer = Me.Adapter.DeleteCommand.ExecuteNonQuery
15618                 Return returnValue
15619             Finally
15620                 If (previousConnectionState = Global.System.Data.ConnectionState.Closed) Then
15621                     Me.Adapter.DeleteCommand.Connection.Close
15622                 End If
15623             End Try
15624         End Function
15625         
15626         <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
15627          Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0"), _
15628          Global.System.ComponentModel.Design.HelpKeywordAttribute("vs.data.TableAdapter"), _
15629          Global.System.ComponentModel.DataObjectMethodAttribute(Global.System.ComponentModel.DataObjectMethodType.Insert, true)> _
15630         Public Overloads Overridable Function Insert(ByVal ProductID As Integer, ByVal Photo() As Byte) As Integer
15631             Me.Adapter.InsertCommand.Parameters(0).Value = CType(ProductID,Integer)
15632             If (Photo Is Nothing) Then
15633                 Throw New Global.System.ArgumentNullException("Photo")
15634             Else
15635                 Me.Adapter.InsertCommand.Parameters(1).Value = CType(Photo,Byte())
15636             End If
15637             Dim previousConnectionState As Global.System.Data.ConnectionState = Me.Adapter.InsertCommand.Connection.State
15638             If ((Me.Adapter.InsertCommand.Connection.State And Global.System.Data.ConnectionState.Open) _
15639                         <> Global.System.Data.ConnectionState.Open) Then
15640                 Me.Adapter.InsertCommand.Connection.Open
15641             End If
15642             Try
15643                 Dim returnValue As Integer = Me.Adapter.InsertCommand.ExecuteNonQuery
15644                 Return returnValue
15645             Finally
15646                 If (previousConnectionState = Global.System.Data.ConnectionState.Closed) Then
15647                     Me.Adapter.InsertCommand.Connection.Close
15648                 End If
15649             End Try
15650         End Function
15651         
15652         <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
15653          Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0"), _
15654          Global.System.ComponentModel.Design.HelpKeywordAttribute("vs.data.TableAdapter"), _
15655          Global.System.ComponentModel.DataObjectMethodAttribute(Global.System.ComponentModel.DataObjectMethodType.Update, true)> _
15656         Public Overloads Overridable Function Update(ByVal ProductID As Integer, ByVal Photo() As Byte, ByVal Original_Id As Integer, ByVal Original_ProductID As Integer, ByVal Id As Integer) As Integer
15657             Me.Adapter.UpdateCommand.Parameters(0).Value = CType(ProductID,Integer)
15658             If (Photo Is Nothing) Then
15659                 Throw New Global.System.ArgumentNullException("Photo")
15660             Else
15661                 Me.Adapter.UpdateCommand.Parameters(1).Value = CType(Photo,Byte())
15662             End If
15663             Me.Adapter.UpdateCommand.Parameters(2).Value = CType(Original_Id,Integer)
15664             Me.Adapter.UpdateCommand.Parameters(3).Value = CType(Original_ProductID,Integer)
15665             Me.Adapter.UpdateCommand.Parameters(4).Value = CType(Id,Integer)
15666             Dim previousConnectionState As Global.System.Data.ConnectionState = Me.Adapter.UpdateCommand.Connection.State
15667             If ((Me.Adapter.UpdateCommand.Connection.State And Global.System.Data.ConnectionState.Open) _
15668                         <> Global.System.Data.ConnectionState.Open) Then
15669                 Me.Adapter.UpdateCommand.Connection.Open
15670             End If
15671             Try
15672                 Dim returnValue As Integer = Me.Adapter.UpdateCommand.ExecuteNonQuery
15673                 Return returnValue
15674             Finally
15675                 If (previousConnectionState = Global.System.Data.ConnectionState.Closed) Then
15676                     Me.Adapter.UpdateCommand.Connection.Close
15677                 End If
15678             End Try
15679         End Function
15680         
15681         <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
15682          Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0"), _
15683          Global.System.ComponentModel.Design.HelpKeywordAttribute("vs.data.TableAdapter"), _
15684          Global.System.ComponentModel.DataObjectMethodAttribute(Global.System.ComponentModel.DataObjectMethodType.Update, true)> _
15685         Public Overloads Overridable Function Update(ByVal ProductID As Integer, ByVal Photo() As Byte, ByVal Original_Id As Integer, ByVal Original_ProductID As Integer) As Integer
15686             Return Me.Update(ProductID, Photo, Original_Id, Original_ProductID, Original_Id)
15687         End Function
15688     End Class
15689     
15690     '''<summary>
15691     '''Represents the connection and commands used to retrieve and save data.
15692     '''</summary>
15693     <Global.System.ComponentModel.DesignerCategoryAttribute("code"), _
15694      Global.System.ComponentModel.ToolboxItem(true), _
15695      Global.System.ComponentModel.DataObjectAttribute(true), _
15696      Global.System.ComponentModel.DesignerAttribute("Microsoft.VSDesigner.DataSource.Design.TableAdapterDesigner, Microsoft.VSDesigner"& _
15697         ", Version=10.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a"), _
15698      Global.System.ComponentModel.Design.HelpKeywordAttribute("vs.data.TableAdapter")> _
15699     Partial Public Class QuotationTableAdapter
15700         Inherits Global.System.ComponentModel.Component
15701         
15702         Private WithEvents _adapter As Global.System.Data.SqlClient.SqlDataAdapter
15703         
15704         Private _connection As Global.System.Data.SqlClient.SqlConnection
15705         
15706         Private _transaction As Global.System.Data.SqlClient.SqlTransaction
15707         
15708         Private _commandCollection() As Global.System.Data.SqlClient.SqlCommand
15709         
15710         Private _clearBeforeFill As Boolean
15711         
15712         <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
15713          Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0")> _
15714         Public Sub New()
15715             MyBase.New
15716             Me.ClearBeforeFill = true
15717         End Sub
15718         
15719         <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
15720          Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0")> _
15721         Protected Friend ReadOnly Property Adapter() As Global.System.Data.SqlClient.SqlDataAdapter
15722             Get
15723                 If (Me._adapter Is Nothing) Then
15724                     Me.InitAdapter
15725                 End If
15726                 Return Me._adapter
15727             End Get
15728         End Property
15729         
15730         <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
15731          Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0")> _
15732         Friend Property Connection() As Global.System.Data.SqlClient.SqlConnection
15733             Get
15734                 If (Me._connection Is Nothing) Then
15735                     Me.InitConnection
15736                 End If
15737                 Return Me._connection
15738             End Get
15739             Set
15740                 Me._connection = value
15741                 If (Not (Me.Adapter.InsertCommand) Is Nothing) Then
15742                     Me.Adapter.InsertCommand.Connection = value
15743                 End If
15744                 If (Not (Me.Adapter.DeleteCommand) Is Nothing) Then
15745                     Me.Adapter.DeleteCommand.Connection = value
15746                 End If
15747                 If (Not (Me.Adapter.UpdateCommand) Is Nothing) Then
15748                     Me.Adapter.UpdateCommand.Connection = value
15749                 End If
15750                 Dim i As Integer = 0
15751                 Do While (i < Me.CommandCollection.Length)
15752                     If (Not (Me.CommandCollection(i)) Is Nothing) Then
15753                         CType(Me.CommandCollection(i),Global.System.Data.SqlClient.SqlCommand).Connection = value
15754                     End If
15755                     i = (i + 1)
15756                 Loop
15757             End Set
15758         End Property
15759         
15760         <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
15761          Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0")> _
15762         Friend Property Transaction() As Global.System.Data.SqlClient.SqlTransaction
15763             Get
15764                 Return Me._transaction
15765             End Get
15766             Set
15767                 Me._transaction = value
15768                 Dim i As Integer = 0
15769                 Do While (i < Me.CommandCollection.Length)
15770                     Me.CommandCollection(i).Transaction = Me._transaction
15771                     i = (i + 1)
15772                 Loop
15773                 If ((Not (Me.Adapter) Is Nothing) _
15774                             AndAlso (Not (Me.Adapter.DeleteCommand) Is Nothing)) Then
15775                     Me.Adapter.DeleteCommand.Transaction = Me._transaction
15776                 End If
15777                 If ((Not (Me.Adapter) Is Nothing) _
15778                             AndAlso (Not (Me.Adapter.InsertCommand) Is Nothing)) Then
15779                     Me.Adapter.InsertCommand.Transaction = Me._transaction
15780                 End If
15781                 If ((Not (Me.Adapter) Is Nothing) _
15782                             AndAlso (Not (Me.Adapter.UpdateCommand) Is Nothing)) Then
15783                     Me.Adapter.UpdateCommand.Transaction = Me._transaction
15784                 End If
15785             End Set
15786         End Property
15787         
15788         <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
15789          Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0")> _
15790         Protected ReadOnly Property CommandCollection() As Global.System.Data.SqlClient.SqlCommand()
15791             Get
15792                 If (Me._commandCollection Is Nothing) Then
15793                     Me.InitCommandCollection
15794                 End If
15795                 Return Me._commandCollection
15796             End Get
15797         End Property
15798         
15799         <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
15800          Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0")> _
15801         Public Property ClearBeforeFill() As Boolean
15802             Get
15803                 Return Me._clearBeforeFill
15804             End Get
15805             Set
15806                 Me._clearBeforeFill = value
15807             End Set
15808         End Property
15809         
15810         <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
15811          Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0")> _
15812         Private Sub InitAdapter()
15813             Me._adapter = New Global.System.Data.SqlClient.SqlDataAdapter()
15814             Dim tableMapping As Global.System.Data.Common.DataTableMapping = New Global.System.Data.Common.DataTableMapping()
15815             tableMapping.SourceTable = "Table"
15816             tableMapping.DataSetTable = "Quotation"
15817             tableMapping.ColumnMappings.Add("Q_ID", "Q_ID")
15818             tableMapping.ColumnMappings.Add("QuotationNo", "QuotationNo")
15819             tableMapping.ColumnMappings.Add("Date", "Date")
15820             tableMapping.ColumnMappings.Add("CustomerID", "CustomerID")
15821             tableMapping.ColumnMappings.Add("GrandTotal", "GrandTotal")
15822             tableMapping.ColumnMappings.Add("Remarks", "Remarks")
15823             Me._adapter.TableMappings.Add(tableMapping)
15824             Me._adapter.DeleteCommand = New Global.System.Data.SqlClient.SqlCommand()
15825             Me._adapter.DeleteCommand.Connection = Me.Connection
15826             Me._adapter.DeleteCommand.CommandText = "DELETE FROM [dbo].[Quotation] WHERE (([Q_ID] = @Original_Q_ID) AND ([QuotationNo]"& _
15827                 " = @Original_QuotationNo) AND ([Date] = @Original_Date) AND ([CustomerID] = @Ori"& _
15828                 "ginal_CustomerID) AND ([GrandTotal] = @Original_GrandTotal))"
15829             Me._adapter.DeleteCommand.CommandType = Global.System.Data.CommandType.Text
15830             Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_Q_ID", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "Q_ID", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", ""))
15831             Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_QuotationNo", Global.System.Data.SqlDbType.NChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "QuotationNo", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", ""))
15832             Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_Date", Global.System.Data.SqlDbType.DateTime, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "Date", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", ""))
15833             Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_CustomerID", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "CustomerID", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", ""))
15834             Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_GrandTotal", Global.System.Data.SqlDbType.[Decimal], 0, Global.System.Data.ParameterDirection.Input, 18, 2, "GrandTotal", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", ""))
15835             Me._adapter.InsertCommand = New Global.System.Data.SqlClient.SqlCommand()
15836             Me._adapter.InsertCommand.Connection = Me.Connection
15837             Me._adapter.InsertCommand.CommandText = "INSERT INTO [dbo].[Quotation] ([Q_ID], [QuotationNo], [Date], [CustomerID], [Gran"& _
15838                 "dTotal], [Remarks]) VALUES (@Q_ID, @QuotationNo, @Date, @CustomerID, @GrandTotal"& _
15839                 ", @Remarks);"&Global.Microsoft.VisualBasic.ChrW(13)&Global.Microsoft.VisualBasic.ChrW(10)&"SELECT Q_ID, QuotationNo, Date, CustomerID, GrandTotal, Remarks FR"& _
15840                 "OM Quotation WHERE (Q_ID = @Q_ID)"
15841             Me._adapter.InsertCommand.CommandType = Global.System.Data.CommandType.Text
15842             Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Q_ID", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "Q_ID", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", ""))
15843             Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@QuotationNo", Global.System.Data.SqlDbType.NChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "QuotationNo", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", ""))
15844             Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Date", Global.System.Data.SqlDbType.DateTime, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "Date", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", ""))
15845             Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@CustomerID", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "CustomerID", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", ""))
15846             Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@GrandTotal", Global.System.Data.SqlDbType.[Decimal], 0, Global.System.Data.ParameterDirection.Input, 18, 2, "GrandTotal", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", ""))
15847             Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Remarks", Global.System.Data.SqlDbType.NVarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "Remarks", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", ""))
15848             Me._adapter.UpdateCommand = New Global.System.Data.SqlClient.SqlCommand()
15849             Me._adapter.UpdateCommand.Connection = Me.Connection
15850             Me._adapter.UpdateCommand.CommandText = "UPDATE [dbo].[Quotation] SET [Q_ID] = @Q_ID, [QuotationNo] = @QuotationNo, [Date]"& _
15851                 " = @Date, [CustomerID] = @CustomerID, [GrandTotal] = @GrandTotal, [Remarks] = @R"& _
15852                 "emarks WHERE (([Q_ID] = @Original_Q_ID) AND ([QuotationNo] = @Original_Quotation"& _
15853                 "No) AND ([Date] = @Original_Date) AND ([CustomerID] = @Original_CustomerID) AND "& _
15854                 "([GrandTotal] = @Original_GrandTotal));"&Global.Microsoft.VisualBasic.ChrW(13)&Global.Microsoft.VisualBasic.ChrW(10)&"SELECT Q_ID, QuotationNo, Date, Custome"& _
15855                 "rID, GrandTotal, Remarks FROM Quotation WHERE (Q_ID = @Q_ID)"
15856             Me._adapter.UpdateCommand.CommandType = Global.System.Data.CommandType.Text
15857             Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Q_ID", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "Q_ID", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", ""))
15858             Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@QuotationNo", Global.System.Data.SqlDbType.NChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "QuotationNo", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", ""))
15859             Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Date", Global.System.Data.SqlDbType.DateTime, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "Date", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", ""))
15860             Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@CustomerID", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "CustomerID", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", ""))
15861             Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@GrandTotal", Global.System.Data.SqlDbType.[Decimal], 0, Global.System.Data.ParameterDirection.Input, 18, 2, "GrandTotal", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", ""))
15862             Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Remarks", Global.System.Data.SqlDbType.NVarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "Remarks", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", ""))
15863             Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_Q_ID", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "Q_ID", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", ""))
15864             Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_QuotationNo", Global.System.Data.SqlDbType.NChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "QuotationNo", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", ""))
15865             Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_Date", Global.System.Data.SqlDbType.DateTime, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "Date", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", ""))
15866             Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_CustomerID", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "CustomerID", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", ""))
15867             Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_GrandTotal", Global.System.Data.SqlDbType.[Decimal], 0, Global.System.Data.ParameterDirection.Input, 18, 2, "GrandTotal", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", ""))
15868         End Sub
15869         
15870         <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
15871          Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0")> _
15872         Private Sub InitConnection()
15873             Me._connection = New Global.System.Data.SqlClient.SqlConnection()
15874             Me._connection.ConnectionString = Global.Sales_and_Inventory_System.My.MySettings.Default.SIS_DBConnectionString1
15875         End Sub
15876         
15877         <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
15878          Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0")> _
15879         Private Sub InitCommandCollection()
15880             Me._commandCollection = New Global.System.Data.SqlClient.SqlCommand(0) {}
15881             Me._commandCollection(0) = New Global.System.Data.SqlClient.SqlCommand()
15882             Me._commandCollection(0).Connection = Me.Connection
15883             Me._commandCollection(0).CommandText = "SELECT Q_ID, QuotationNo, Date, CustomerID, GrandTotal, Remarks FROM dbo.Quotatio"& _
15884                 "n"
15885             Me._commandCollection(0).CommandType = Global.System.Data.CommandType.Text
15886         End Sub
15887         
15888         <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
15889          Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0"), _
15890          Global.System.ComponentModel.Design.HelpKeywordAttribute("vs.data.TableAdapter"), _
15891          Global.System.ComponentModel.DataObjectMethodAttribute(Global.System.ComponentModel.DataObjectMethodType.Fill, true)> _
15892         Public Overloads Overridable Function Fill(ByVal dataTable As SIS_DBDataSet.QuotationDataTable) As Integer
15893             Me.Adapter.SelectCommand = Me.CommandCollection(0)
15894             If (Me.ClearBeforeFill = true) Then
15895                 dataTable.Clear
15896             End If
15897             Dim returnValue As Integer = Me.Adapter.Fill(dataTable)
15898             Return returnValue
15899         End Function
15900         
15901         <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
15902          Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0"), _
15903          Global.System.ComponentModel.Design.HelpKeywordAttribute("vs.data.TableAdapter"), _
15904          Global.System.ComponentModel.DataObjectMethodAttribute(Global.System.ComponentModel.DataObjectMethodType.[Select], true)> _
15905         Public Overloads Overridable Function GetData() As SIS_DBDataSet.QuotationDataTable
15906             Me.Adapter.SelectCommand = Me.CommandCollection(0)
15907             Dim dataTable As SIS_DBDataSet.QuotationDataTable = New SIS_DBDataSet.QuotationDataTable()
15908             Me.Adapter.Fill(dataTable)
15909             Return dataTable
15910         End Function
15911         
15912         <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
15913          Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0"), _
15914          Global.System.ComponentModel.Design.HelpKeywordAttribute("vs.data.TableAdapter")> _
15915         Public Overloads Overridable Function Update(ByVal dataTable As SIS_DBDataSet.QuotationDataTable) As Integer
15916             Return Me.Adapter.Update(dataTable)
15917         End Function
15918         
15919         <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
15920          Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0"), _
15921          Global.System.ComponentModel.Design.HelpKeywordAttribute("vs.data.TableAdapter")> _
15922         Public Overloads Overridable Function Update(ByVal dataSet As SIS_DBDataSet) As Integer
15923             Return Me.Adapter.Update(dataSet, "Quotation")
15924         End Function
15925         
15926         <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
15927          Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0"), _
15928          Global.System.ComponentModel.Design.HelpKeywordAttribute("vs.data.TableAdapter")> _
15929         Public Overloads Overridable Function Update(ByVal dataRow As Global.System.Data.DataRow) As Integer
15930             Return Me.Adapter.Update(New Global.System.Data.DataRow() {dataRow})
15931         End Function
15932         
15933         <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
15934          Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0"), _
15935          Global.System.ComponentModel.Design.HelpKeywordAttribute("vs.data.TableAdapter")> _
15936         Public Overloads Overridable Function Update(ByVal dataRows() As Global.System.Data.DataRow) As Integer
15937             Return Me.Adapter.Update(dataRows)
15938         End Function
15939         
15940         <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
15941          Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0"), _
15942          Global.System.ComponentModel.Design.HelpKeywordAttribute("vs.data.TableAdapter"), _
15943          Global.System.ComponentModel.DataObjectMethodAttribute(Global.System.ComponentModel.DataObjectMethodType.Delete, true)> _
15944         Public Overloads Overridable Function Delete(ByVal Original_Q_ID As Integer, ByVal Original_QuotationNo As String, ByVal Original_Date As Date, ByVal Original_CustomerID As Integer, ByVal Original_GrandTotal As Decimal) As Integer
15945             Me.Adapter.DeleteCommand.Parameters(0).Value = CType(Original_Q_ID,Integer)
15946             If (Original_QuotationNo Is Nothing) Then
15947                 Throw New Global.System.ArgumentNullException("Original_QuotationNo")
15948             Else
15949                 Me.Adapter.DeleteCommand.Parameters(1).Value = CType(Original_QuotationNo,String)
15950             End If
15951             Me.Adapter.DeleteCommand.Parameters(2).Value = CType(Original_Date,Date)
15952             Me.Adapter.DeleteCommand.Parameters(3).Value = CType(Original_CustomerID,Integer)
15953             Me.Adapter.DeleteCommand.Parameters(4).Value = CType(Original_GrandTotal,Decimal)
15954             Dim previousConnectionState As Global.System.Data.ConnectionState = Me.Adapter.DeleteCommand.Connection.State
15955             If ((Me.Adapter.DeleteCommand.Connection.State And Global.System.Data.ConnectionState.Open) _
15956                         <> Global.System.Data.ConnectionState.Open) Then
15957                 Me.Adapter.DeleteCommand.Connection.Open
15958             End If
15959             Try
15960                 Dim returnValue As Integer = Me.Adapter.DeleteCommand.ExecuteNonQuery
15961                 Return returnValue
15962             Finally
15963                 If (previousConnectionState = Global.System.Data.ConnectionState.Closed) Then
15964                     Me.Adapter.DeleteCommand.Connection.Close
15965                 End If
15966             End Try
15967         End Function
15968         
15969         <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
15970          Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0"), _
15971          Global.System.ComponentModel.Design.HelpKeywordAttribute("vs.data.TableAdapter"), _
15972          Global.System.ComponentModel.DataObjectMethodAttribute(Global.System.ComponentModel.DataObjectMethodType.Insert, true)> _
15973         Public Overloads Overridable Function Insert(ByVal Q_ID As Integer, ByVal QuotationNo As String, ByVal _Date As Date, ByVal CustomerID As Integer, ByVal GrandTotal As Decimal, ByVal Remarks As String) As Integer
15974             Me.Adapter.InsertCommand.Parameters(0).Value = CType(Q_ID,Integer)
15975             If (QuotationNo Is Nothing) Then
15976                 Throw New Global.System.ArgumentNullException("QuotationNo")
15977             Else
15978                 Me.Adapter.InsertCommand.Parameters(1).Value = CType(QuotationNo,String)
15979             End If
15980             Me.Adapter.InsertCommand.Parameters(2).Value = CType(_Date,Date)
15981             Me.Adapter.InsertCommand.Parameters(3).Value = CType(CustomerID,Integer)
15982             Me.Adapter.InsertCommand.Parameters(4).Value = CType(GrandTotal,Decimal)
15983             If (Remarks Is Nothing) Then
15984                 Me.Adapter.InsertCommand.Parameters(5).Value = Global.System.DBNull.Value
15985             Else
15986                 Me.Adapter.InsertCommand.Parameters(5).Value = CType(Remarks,String)
15987             End If
15988             Dim previousConnectionState As Global.System.Data.ConnectionState = Me.Adapter.InsertCommand.Connection.State
15989             If ((Me.Adapter.InsertCommand.Connection.State And Global.System.Data.ConnectionState.Open) _
15990                         <> Global.System.Data.ConnectionState.Open) Then
15991                 Me.Adapter.InsertCommand.Connection.Open
15992             End If
15993             Try
15994                 Dim returnValue As Integer = Me.Adapter.InsertCommand.ExecuteNonQuery
15995                 Return returnValue
15996             Finally
15997                 If (previousConnectionState = Global.System.Data.ConnectionState.Closed) Then
15998                     Me.Adapter.InsertCommand.Connection.Close
15999                 End If
16000             End Try
16001         End Function
16002         
16003         <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
16004          Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0"), _
16005          Global.System.ComponentModel.Design.HelpKeywordAttribute("vs.data.TableAdapter"), _
16006          Global.System.ComponentModel.DataObjectMethodAttribute(Global.System.ComponentModel.DataObjectMethodType.Update, true)> _
16007         Public Overloads Overridable Function Update(ByVal Q_ID As Integer, ByVal QuotationNo As String, ByVal _Date As Date, ByVal CustomerID As Integer, ByVal GrandTotal As Decimal, ByVal Remarks As String, ByVal Original_Q_ID As Integer, ByVal Original_QuotationNo As String, ByVal Original_Date As Date, ByVal Original_CustomerID As Integer, ByVal Original_GrandTotal As Decimal) As Integer
16008             Me.Adapter.UpdateCommand.Parameters(0).Value = CType(Q_ID,Integer)
16009             If (QuotationNo Is Nothing) Then
16010                 Throw New Global.System.ArgumentNullException("QuotationNo")
16011             Else
16012                 Me.Adapter.UpdateCommand.Parameters(1).Value = CType(QuotationNo,String)
16013             End If
16014             Me.Adapter.UpdateCommand.Parameters(2).Value = CType(_Date,Date)
16015             Me.Adapter.UpdateCommand.Parameters(3).Value = CType(CustomerID,Integer)
16016             Me.Adapter.UpdateCommand.Parameters(4).Value = CType(GrandTotal,Decimal)
16017             If (Remarks Is Nothing) Then
16018                 Me.Adapter.UpdateCommand.Parameters(5).Value = Global.System.DBNull.Value
16019             Else
16020                 Me.Adapter.UpdateCommand.Parameters(5).Value = CType(Remarks,String)
16021             End If
16022             Me.Adapter.UpdateCommand.Parameters(6).Value = CType(Original_Q_ID,Integer)
16023             If (Original_QuotationNo Is Nothing) Then
16024                 Throw New Global.System.ArgumentNullException("Original_QuotationNo")
16025             Else
16026                 Me.Adapter.UpdateCommand.Parameters(7).Value = CType(Original_QuotationNo,String)
16027             End If
16028             Me.Adapter.UpdateCommand.Parameters(8).Value = CType(Original_Date,Date)
16029             Me.Adapter.UpdateCommand.Parameters(9).Value = CType(Original_CustomerID,Integer)
16030             Me.Adapter.UpdateCommand.Parameters(10).Value = CType(Original_GrandTotal,Decimal)
16031             Dim previousConnectionState As Global.System.Data.ConnectionState = Me.Adapter.UpdateCommand.Connection.State
16032             If ((Me.Adapter.UpdateCommand.Connection.State And Global.System.Data.ConnectionState.Open) _
16033                         <> Global.System.Data.ConnectionState.Open) Then
16034                 Me.Adapter.UpdateCommand.Connection.Open
16035             End If
16036             Try
16037                 Dim returnValue As Integer = Me.Adapter.UpdateCommand.ExecuteNonQuery
16038                 Return returnValue
16039             Finally
16040                 If (previousConnectionState = Global.System.Data.ConnectionState.Closed) Then
16041                     Me.Adapter.UpdateCommand.Connection.Close
16042                 End If
16043             End Try
16044         End Function
16045         
16046         <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
16047          Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0"), _
16048          Global.System.ComponentModel.Design.HelpKeywordAttribute("vs.data.TableAdapter"), _
16049          Global.System.ComponentModel.DataObjectMethodAttribute(Global.System.ComponentModel.DataObjectMethodType.Update, true)> _
16050         Public Overloads Overridable Function Update(ByVal QuotationNo As String, ByVal _Date As Date, ByVal CustomerID As Integer, ByVal GrandTotal As Decimal, ByVal Remarks As String, ByVal Original_Q_ID As Integer, ByVal Original_QuotationNo As String, ByVal Original_Date As Date, ByVal Original_CustomerID As Integer, ByVal Original_GrandTotal As Decimal) As Integer
16051             Return Me.Update(Original_Q_ID, QuotationNo, _Date, CustomerID, GrandTotal, Remarks, Original_Q_ID, Original_QuotationNo, Original_Date, Original_CustomerID, Original_GrandTotal)
16052         End Function
16053     End Class
16054     
16055     '''<summary>
16056     '''Represents the connection and commands used to retrieve and save data.
16057     '''</summary>
16058     <Global.System.ComponentModel.DesignerCategoryAttribute("code"), _
16059      Global.System.ComponentModel.ToolboxItem(true), _
16060      Global.System.ComponentModel.DataObjectAttribute(true), _
16061      Global.System.ComponentModel.DesignerAttribute("Microsoft.VSDesigner.DataSource.Design.TableAdapterDesigner, Microsoft.VSDesigner"& _
16062         ", Version=10.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a"), _
16063      Global.System.ComponentModel.Design.HelpKeywordAttribute("vs.data.TableAdapter")> _
16064     Partial Public Class Quotation_JoinTableAdapter
16065         Inherits Global.System.ComponentModel.Component
16066         
16067         Private WithEvents _adapter As Global.System.Data.SqlClient.SqlDataAdapter
16068         
16069         Private _connection As Global.System.Data.SqlClient.SqlConnection
16070         
16071         Private _transaction As Global.System.Data.SqlClient.SqlTransaction
16072         
16073         Private _commandCollection() As Global.System.Data.SqlClient.SqlCommand
16074         
16075         Private _clearBeforeFill As Boolean
16076         
16077         <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
16078          Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0")> _
16079         Public Sub New()
16080             MyBase.New
16081             Me.ClearBeforeFill = true
16082         End Sub
16083         
16084         <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
16085          Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0")> _
16086         Protected Friend ReadOnly Property Adapter() As Global.System.Data.SqlClient.SqlDataAdapter
16087             Get
16088                 If (Me._adapter Is Nothing) Then
16089                     Me.InitAdapter
16090                 End If
16091                 Return Me._adapter
16092             End Get
16093         End Property
16094         
16095         <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
16096          Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0")> _
16097         Friend Property Connection() As Global.System.Data.SqlClient.SqlConnection
16098             Get
16099                 If (Me._connection Is Nothing) Then
16100                     Me.InitConnection
16101                 End If
16102                 Return Me._connection
16103             End Get
16104             Set
16105                 Me._connection = value
16106                 If (Not (Me.Adapter.InsertCommand) Is Nothing) Then
16107                     Me.Adapter.InsertCommand.Connection = value
16108                 End If
16109                 If (Not (Me.Adapter.DeleteCommand) Is Nothing) Then
16110                     Me.Adapter.DeleteCommand.Connection = value
16111                 End If
16112                 If (Not (Me.Adapter.UpdateCommand) Is Nothing) Then
16113                     Me.Adapter.UpdateCommand.Connection = value
16114                 End If
16115                 Dim i As Integer = 0
16116                 Do While (i < Me.CommandCollection.Length)
16117                     If (Not (Me.CommandCollection(i)) Is Nothing) Then
16118                         CType(Me.CommandCollection(i),Global.System.Data.SqlClient.SqlCommand).Connection = value
16119                     End If
16120                     i = (i + 1)
16121                 Loop
16122             End Set
16123         End Property
16124         
16125         <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
16126          Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0")> _
16127         Friend Property Transaction() As Global.System.Data.SqlClient.SqlTransaction
16128             Get
16129                 Return Me._transaction
16130             End Get
16131             Set
16132                 Me._transaction = value
16133                 Dim i As Integer = 0
16134                 Do While (i < Me.CommandCollection.Length)
16135                     Me.CommandCollection(i).Transaction = Me._transaction
16136                     i = (i + 1)
16137                 Loop
16138                 If ((Not (Me.Adapter) Is Nothing) _
16139                             AndAlso (Not (Me.Adapter.DeleteCommand) Is Nothing)) Then
16140                     Me.Adapter.DeleteCommand.Transaction = Me._transaction
16141                 End If
16142                 If ((Not (Me.Adapter) Is Nothing) _
16143                             AndAlso (Not (Me.Adapter.InsertCommand) Is Nothing)) Then
16144                     Me.Adapter.InsertCommand.Transaction = Me._transaction
16145                 End If
16146                 If ((Not (Me.Adapter) Is Nothing) _
16147                             AndAlso (Not (Me.Adapter.UpdateCommand) Is Nothing)) Then
16148                     Me.Adapter.UpdateCommand.Transaction = Me._transaction
16149                 End If
16150             End Set
16151         End Property
16152         
16153         <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
16154          Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0")> _
16155         Protected ReadOnly Property CommandCollection() As Global.System.Data.SqlClient.SqlCommand()
16156             Get
16157                 If (Me._commandCollection Is Nothing) Then
16158                     Me.InitCommandCollection
16159                 End If
16160                 Return Me._commandCollection
16161             End Get
16162         End Property
16163         
16164         <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
16165          Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0")> _
16166         Public Property ClearBeforeFill() As Boolean
16167             Get
16168                 Return Me._clearBeforeFill
16169             End Get
16170             Set
16171                 Me._clearBeforeFill = value
16172             End Set
16173         End Property
16174         
16175         <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
16176          Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0")> _
16177         Private Sub InitAdapter()
16178             Me._adapter = New Global.System.Data.SqlClient.SqlDataAdapter()
16179             Dim tableMapping As Global.System.Data.Common.DataTableMapping = New Global.System.Data.Common.DataTableMapping()
16180             tableMapping.SourceTable = "Table"
16181             tableMapping.DataSetTable = "Quotation_Join"
16182             tableMapping.ColumnMappings.Add("QJ_ID", "QJ_ID")
16183             tableMapping.ColumnMappings.Add("QuotationID", "QuotationID")
16184             tableMapping.ColumnMappings.Add("ProductID", "ProductID")
16185             tableMapping.ColumnMappings.Add("Cost", "Cost")
16186             tableMapping.ColumnMappings.Add("Qty", "Qty")
16187             tableMapping.ColumnMappings.Add("Amount", "Amount")
16188             tableMapping.ColumnMappings.Add("DiscountPer", "DiscountPer")
16189             tableMapping.ColumnMappings.Add("Discount", "Discount")
16190             tableMapping.ColumnMappings.Add("VATPer", "VATPer")
16191             tableMapping.ColumnMappings.Add("VAT", "VAT")
16192             tableMapping.ColumnMappings.Add("TotalAmount", "TotalAmount")
16193             Me._adapter.TableMappings.Add(tableMapping)
16194             Me._adapter.DeleteCommand = New Global.System.Data.SqlClient.SqlCommand()
16195             Me._adapter.DeleteCommand.Connection = Me.Connection
16196             Me._adapter.DeleteCommand.CommandText = "DELETE FROM [dbo].[Quotation_Join] WHERE (([QJ_ID] = @Original_QJ_ID) AND ([Quota"& _
16197                 "tionID] = @Original_QuotationID) AND ([ProductID] = @Original_ProductID) AND ([C"& _
16198                 "ost] = @Original_Cost) AND ([Qty] = @Original_Qty) AND ([Amount] = @Original_Amo"& _
16199                 "unt) AND ([DiscountPer] = @Original_DiscountPer) AND ([Discount] = @Original_Dis"& _
16200                 "count) AND ([VATPer] = @Original_VATPer) AND ([VAT] = @Original_VAT) AND ([Total"& _
16201                 "Amount] = @Original_TotalAmount))"
16202             Me._adapter.DeleteCommand.CommandType = Global.System.Data.CommandType.Text
16203             Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_QJ_ID", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "QJ_ID", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", ""))
16204             Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_QuotationID", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "QuotationID", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", ""))
16205             Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_ProductID", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "ProductID", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", ""))
16206             Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_Cost", Global.System.Data.SqlDbType.[Decimal], 0, Global.System.Data.ParameterDirection.Input, 18, 2, "Cost", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", ""))
16207             Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_Qty", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "Qty", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", ""))
16208             Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_Amount", Global.System.Data.SqlDbType.[Decimal], 0, Global.System.Data.ParameterDirection.Input, 18, 2, "Amount", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", ""))
16209             Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_DiscountPer", Global.System.Data.SqlDbType.[Decimal], 0, Global.System.Data.ParameterDirection.Input, 18, 2, "DiscountPer", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", ""))
16210             Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_Discount", Global.System.Data.SqlDbType.[Decimal], 0, Global.System.Data.ParameterDirection.Input, 18, 2, "Discount", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", ""))
16211             Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_VATPer", Global.System.Data.SqlDbType.[Decimal], 0, Global.System.Data.ParameterDirection.Input, 18, 2, "VATPer", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", ""))
16212             Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_VAT", Global.System.Data.SqlDbType.[Decimal], 0, Global.System.Data.ParameterDirection.Input, 18, 2, "VAT", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", ""))
16213             Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_TotalAmount", Global.System.Data.SqlDbType.[Decimal], 0, Global.System.Data.ParameterDirection.Input, 18, 2, "TotalAmount", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", ""))
16214             Me._adapter.InsertCommand = New Global.System.Data.SqlClient.SqlCommand()
16215             Me._adapter.InsertCommand.Connection = Me.Connection
16216             Me._adapter.InsertCommand.CommandText = "INSERT INTO [dbo].[Quotation_Join] ([QJ_ID], [QuotationID], [ProductID], [Cost], "& _
16217                 "[Qty], [Amount], [DiscountPer], [Discount], [VATPer], [VAT], [TotalAmount]) VALU"& _
16218                 "ES (@QJ_ID, @QuotationID, @ProductID, @Cost, @Qty, @Amount, @DiscountPer, @Disco"& _
16219                 "unt, @VATPer, @VAT, @TotalAmount);"&Global.Microsoft.VisualBasic.ChrW(13)&Global.Microsoft.VisualBasic.ChrW(10)&"SELECT QJ_ID, QuotationID, ProductID, Cost, "& _
16220                 "Qty, Amount, DiscountPer, Discount, VATPer, VAT, TotalAmount FROM Quotation_Join"& _
16221                 " WHERE (QJ_ID = @QJ_ID)"
16222             Me._adapter.InsertCommand.CommandType = Global.System.Data.CommandType.Text
16223             Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@QJ_ID", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "QJ_ID", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", ""))
16224             Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@QuotationID", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "QuotationID", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", ""))
16225             Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@ProductID", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "ProductID", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", ""))
16226             Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Cost", Global.System.Data.SqlDbType.[Decimal], 0, Global.System.Data.ParameterDirection.Input, 18, 2, "Cost", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", ""))
16227             Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Qty", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "Qty", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", ""))
16228             Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Amount", Global.System.Data.SqlDbType.[Decimal], 0, Global.System.Data.ParameterDirection.Input, 18, 2, "Amount", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", ""))
16229             Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@DiscountPer", Global.System.Data.SqlDbType.[Decimal], 0, Global.System.Data.ParameterDirection.Input, 18, 2, "DiscountPer", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", ""))
16230             Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Discount", Global.System.Data.SqlDbType.[Decimal], 0, Global.System.Data.ParameterDirection.Input, 18, 2, "Discount", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", ""))
16231             Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@VATPer", Global.System.Data.SqlDbType.[Decimal], 0, Global.System.Data.ParameterDirection.Input, 18, 2, "VATPer", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", ""))
16232             Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@VAT", Global.System.Data.SqlDbType.[Decimal], 0, Global.System.Data.ParameterDirection.Input, 18, 2, "VAT", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", ""))
16233             Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@TotalAmount", Global.System.Data.SqlDbType.[Decimal], 0, Global.System.Data.ParameterDirection.Input, 18, 2, "TotalAmount", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", ""))
16234             Me._adapter.UpdateCommand = New Global.System.Data.SqlClient.SqlCommand()
16235             Me._adapter.UpdateCommand.Connection = Me.Connection
16236             Me._adapter.UpdateCommand.CommandText = "UPDATE [dbo].[Quotation_Join] SET [QJ_ID] = @QJ_ID, [QuotationID] = @QuotationID,"& _
16237                 " [ProductID] = @ProductID, [Cost] = @Cost, [Qty] = @Qty, [Amount] = @Amount, [Di"& _
16238                 "scountPer] = @DiscountPer, [Discount] = @Discount, [VATPer] = @VATPer, [VAT] = @"& _
16239                 "VAT, [TotalAmount] = @TotalAmount WHERE (([QJ_ID] = @Original_QJ_ID) AND ([Quota"& _
16240                 "tionID] = @Original_QuotationID) AND ([ProductID] = @Original_ProductID) AND ([C"& _
16241                 "ost] = @Original_Cost) AND ([Qty] = @Original_Qty) AND ([Amount] = @Original_Amo"& _
16242                 "unt) AND ([DiscountPer] = @Original_DiscountPer) AND ([Discount] = @Original_Dis"& _
16243                 "count) AND ([VATPer] = @Original_VATPer) AND ([VAT] = @Original_VAT) AND ([Total"& _
16244                 "Amount] = @Original_TotalAmount));"&Global.Microsoft.VisualBasic.ChrW(13)&Global.Microsoft.VisualBasic.ChrW(10)&"SELECT QJ_ID, QuotationID, ProductID, Cost, "& _
16245                 "Qty, Amount, DiscountPer, Discount, VATPer, VAT, TotalAmount FROM Quotation_Join"& _
16246                 " WHERE (QJ_ID = @QJ_ID)"
16247             Me._adapter.UpdateCommand.CommandType = Global.System.Data.CommandType.Text
16248             Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@QJ_ID", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "QJ_ID", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", ""))
16249             Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@QuotationID", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "QuotationID", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", ""))
16250             Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@ProductID", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "ProductID", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", ""))
16251             Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Cost", Global.System.Data.SqlDbType.[Decimal], 0, Global.System.Data.ParameterDirection.Input, 18, 2, "Cost", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", ""))
16252             Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Qty", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "Qty", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", ""))
16253             Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Amount", Global.System.Data.SqlDbType.[Decimal], 0, Global.System.Data.ParameterDirection.Input, 18, 2, "Amount", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", ""))
16254             Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@DiscountPer", Global.System.Data.SqlDbType.[Decimal], 0, Global.System.Data.ParameterDirection.Input, 18, 2, "DiscountPer", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", ""))
16255             Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Discount", Global.System.Data.SqlDbType.[Decimal], 0, Global.System.Data.ParameterDirection.Input, 18, 2, "Discount", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", ""))
16256             Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@VATPer", Global.System.Data.SqlDbType.[Decimal], 0, Global.System.Data.ParameterDirection.Input, 18, 2, "VATPer", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", ""))
16257             Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@VAT", Global.System.Data.SqlDbType.[Decimal], 0, Global.System.Data.ParameterDirection.Input, 18, 2, "VAT", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", ""))
16258             Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@TotalAmount", Global.System.Data.SqlDbType.[Decimal], 0, Global.System.Data.ParameterDirection.Input, 18, 2, "TotalAmount", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", ""))
16259             Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_QJ_ID", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "QJ_ID", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", ""))
16260             Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_QuotationID", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "QuotationID", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", ""))
16261             Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_ProductID", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "ProductID", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", ""))
16262             Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_Cost", Global.System.Data.SqlDbType.[Decimal], 0, Global.System.Data.ParameterDirection.Input, 18, 2, "Cost", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", ""))
16263             Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_Qty", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "Qty", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", ""))
16264             Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_Amount", Global.System.Data.SqlDbType.[Decimal], 0, Global.System.Data.ParameterDirection.Input, 18, 2, "Amount", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", ""))
16265             Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_DiscountPer", Global.System.Data.SqlDbType.[Decimal], 0, Global.System.Data.ParameterDirection.Input, 18, 2, "DiscountPer", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", ""))
16266             Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_Discount", Global.System.Data.SqlDbType.[Decimal], 0, Global.System.Data.ParameterDirection.Input, 18, 2, "Discount", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", ""))
16267             Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_VATPer", Global.System.Data.SqlDbType.[Decimal], 0, Global.System.Data.ParameterDirection.Input, 18, 2, "VATPer", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", ""))
16268             Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_VAT", Global.System.Data.SqlDbType.[Decimal], 0, Global.System.Data.ParameterDirection.Input, 18, 2, "VAT", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", ""))
16269             Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_TotalAmount", Global.System.Data.SqlDbType.[Decimal], 0, Global.System.Data.ParameterDirection.Input, 18, 2, "TotalAmount", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", ""))
16270         End Sub
16271         
16272         <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
16273          Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0")> _
16274         Private Sub InitConnection()
16275             Me._connection = New Global.System.Data.SqlClient.SqlConnection()
16276             Me._connection.ConnectionString = Global.Sales_and_Inventory_System.My.MySettings.Default.SIS_DBConnectionString1
16277         End Sub
16278         
16279         <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
16280          Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0")> _
16281         Private Sub InitCommandCollection()
16282             Me._commandCollection = New Global.System.Data.SqlClient.SqlCommand(0) {}
16283             Me._commandCollection(0) = New Global.System.Data.SqlClient.SqlCommand()
16284             Me._commandCollection(0).Connection = Me.Connection
16285             Me._commandCollection(0).CommandText = "SELECT QJ_ID, QuotationID, ProductID, Cost, Qty, Amount, DiscountPer, Discount, V"& _
16286                 "ATPer, VAT, TotalAmount FROM dbo.Quotation_Join"
16287             Me._commandCollection(0).CommandType = Global.System.Data.CommandType.Text
16288         End Sub
16289         
16290         <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
16291          Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0"), _
16292          Global.System.ComponentModel.Design.HelpKeywordAttribute("vs.data.TableAdapter"), _
16293          Global.System.ComponentModel.DataObjectMethodAttribute(Global.System.ComponentModel.DataObjectMethodType.Fill, true)> _
16294         Public Overloads Overridable Function Fill(ByVal dataTable As SIS_DBDataSet.Quotation_JoinDataTable) As Integer
16295             Me.Adapter.SelectCommand = Me.CommandCollection(0)
16296             If (Me.ClearBeforeFill = true) Then
16297                 dataTable.Clear
16298             End If
16299             Dim returnValue As Integer = Me.Adapter.Fill(dataTable)
16300             Return returnValue
16301         End Function
16302         
16303         <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
16304          Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0"), _
16305          Global.System.ComponentModel.Design.HelpKeywordAttribute("vs.data.TableAdapter"), _
16306          Global.System.ComponentModel.DataObjectMethodAttribute(Global.System.ComponentModel.DataObjectMethodType.[Select], true)> _
16307         Public Overloads Overridable Function GetData() As SIS_DBDataSet.Quotation_JoinDataTable
16308             Me.Adapter.SelectCommand = Me.CommandCollection(0)
16309             Dim dataTable As SIS_DBDataSet.Quotation_JoinDataTable = New SIS_DBDataSet.Quotation_JoinDataTable()
16310             Me.Adapter.Fill(dataTable)
16311             Return dataTable
16312         End Function
16313         
16314         <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
16315          Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0"), _
16316          Global.System.ComponentModel.Design.HelpKeywordAttribute("vs.data.TableAdapter")> _
16317         Public Overloads Overridable Function Update(ByVal dataTable As SIS_DBDataSet.Quotation_JoinDataTable) As Integer
16318             Return Me.Adapter.Update(dataTable)
16319         End Function
16320         
16321         <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
16322          Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0"), _
16323          Global.System.ComponentModel.Design.HelpKeywordAttribute("vs.data.TableAdapter")> _
16324         Public Overloads Overridable Function Update(ByVal dataSet As SIS_DBDataSet) As Integer
16325             Return Me.Adapter.Update(dataSet, "Quotation_Join")
16326         End Function
16327         
16328         <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
16329          Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0"), _
16330          Global.System.ComponentModel.Design.HelpKeywordAttribute("vs.data.TableAdapter")> _
16331         Public Overloads Overridable Function Update(ByVal dataRow As Global.System.Data.DataRow) As Integer
16332             Return Me.Adapter.Update(New Global.System.Data.DataRow() {dataRow})
16333         End Function
16334         
16335         <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
16336          Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0"), _
16337          Global.System.ComponentModel.Design.HelpKeywordAttribute("vs.data.TableAdapter")> _
16338         Public Overloads Overridable Function Update(ByVal dataRows() As Global.System.Data.DataRow) As Integer
16339             Return Me.Adapter.Update(dataRows)
16340         End Function
16341         
16342         <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
16343          Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0"), _
16344          Global.System.ComponentModel.Design.HelpKeywordAttribute("vs.data.TableAdapter"), _
16345          Global.System.ComponentModel.DataObjectMethodAttribute(Global.System.ComponentModel.DataObjectMethodType.Delete, true)> _
16346         Public Overloads Overridable Function Delete(ByVal Original_QJ_ID As Integer, ByVal Original_QuotationID As Integer, ByVal Original_ProductID As Integer, ByVal Original_Cost As Decimal, ByVal Original_Qty As Integer, ByVal Original_Amount As Decimal, ByVal Original_DiscountPer As Decimal, ByVal Original_Discount As Decimal, ByVal Original_VATPer As Decimal, ByVal Original_VAT As Decimal, ByVal Original_TotalAmount As Decimal) As Integer
16347             Me.Adapter.DeleteCommand.Parameters(0).Value = CType(Original_QJ_ID,Integer)
16348             Me.Adapter.DeleteCommand.Parameters(1).Value = CType(Original_QuotationID,Integer)
16349             Me.Adapter.DeleteCommand.Parameters(2).Value = CType(Original_ProductID,Integer)
16350             Me.Adapter.DeleteCommand.Parameters(3).Value = CType(Original_Cost,Decimal)
16351             Me.Adapter.DeleteCommand.Parameters(4).Value = CType(Original_Qty,Integer)
16352             Me.Adapter.DeleteCommand.Parameters(5).Value = CType(Original_Amount,Decimal)
16353             Me.Adapter.DeleteCommand.Parameters(6).Value = CType(Original_DiscountPer,Decimal)
16354             Me.Adapter.DeleteCommand.Parameters(7).Value = CType(Original_Discount,Decimal)
16355             Me.Adapter.DeleteCommand.Parameters(8).Value = CType(Original_VATPer,Decimal)
16356             Me.Adapter.DeleteCommand.Parameters(9).Value = CType(Original_VAT,Decimal)
16357             Me.Adapter.DeleteCommand.Parameters(10).Value = CType(Original_TotalAmount,Decimal)
16358             Dim previousConnectionState As Global.System.Data.ConnectionState = Me.Adapter.DeleteCommand.Connection.State
16359             If ((Me.Adapter.DeleteCommand.Connection.State And Global.System.Data.ConnectionState.Open) _
16360                         <> Global.System.Data.ConnectionState.Open) Then
16361                 Me.Adapter.DeleteCommand.Connection.Open
16362             End If
16363             Try
16364                 Dim returnValue As Integer = Me.Adapter.DeleteCommand.ExecuteNonQuery
16365                 Return returnValue
16366             Finally
16367                 If (previousConnectionState = Global.System.Data.ConnectionState.Closed) Then
16368                     Me.Adapter.DeleteCommand.Connection.Close
16369                 End If
16370             End Try
16371         End Function
16372         
16373         <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
16374          Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0"), _
16375          Global.System.ComponentModel.Design.HelpKeywordAttribute("vs.data.TableAdapter"), _
16376          Global.System.ComponentModel.DataObjectMethodAttribute(Global.System.ComponentModel.DataObjectMethodType.Insert, true)> _
16377         Public Overloads Overridable Function Insert(ByVal QJ_ID As Integer, ByVal QuotationID As Integer, ByVal ProductID As Integer, ByVal Cost As Decimal, ByVal Qty As Integer, ByVal Amount As Decimal, ByVal DiscountPer As Decimal, ByVal Discount As Decimal, ByVal VATPer As Decimal, ByVal VAT As Decimal, ByVal TotalAmount As Decimal) As Integer
16378             Me.Adapter.InsertCommand.Parameters(0).Value = CType(QJ_ID,Integer)
16379             Me.Adapter.InsertCommand.Parameters(1).Value = CType(QuotationID,Integer)
16380             Me.Adapter.InsertCommand.Parameters(2).Value = CType(ProductID,Integer)
16381             Me.Adapter.InsertCommand.Parameters(3).Value = CType(Cost,Decimal)
16382             Me.Adapter.InsertCommand.Parameters(4).Value = CType(Qty,Integer)
16383             Me.Adapter.InsertCommand.Parameters(5).Value = CType(Amount,Decimal)
16384             Me.Adapter.InsertCommand.Parameters(6).Value = CType(DiscountPer,Decimal)
16385             Me.Adapter.InsertCommand.Parameters(7).Value = CType(Discount,Decimal)
16386             Me.Adapter.InsertCommand.Parameters(8).Value = CType(VATPer,Decimal)
16387             Me.Adapter.InsertCommand.Parameters(9).Value = CType(VAT,Decimal)
16388             Me.Adapter.InsertCommand.Parameters(10).Value = CType(TotalAmount,Decimal)
16389             Dim previousConnectionState As Global.System.Data.ConnectionState = Me.Adapter.InsertCommand.Connection.State
16390             If ((Me.Adapter.InsertCommand.Connection.State And Global.System.Data.ConnectionState.Open) _
16391                         <> Global.System.Data.ConnectionState.Open) Then
16392                 Me.Adapter.InsertCommand.Connection.Open
16393             End If
16394             Try
16395                 Dim returnValue As Integer = Me.Adapter.InsertCommand.ExecuteNonQuery
16396                 Return returnValue
16397             Finally
16398                 If (previousConnectionState = Global.System.Data.ConnectionState.Closed) Then
16399                     Me.Adapter.InsertCommand.Connection.Close
16400                 End If
16401             End Try
16402         End Function
16403         
16404         <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
16405          Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0"), _
16406          Global.System.ComponentModel.Design.HelpKeywordAttribute("vs.data.TableAdapter"), _
16407          Global.System.ComponentModel.DataObjectMethodAttribute(Global.System.ComponentModel.DataObjectMethodType.Update, true)> _
16408         Public Overloads Overridable Function Update( _
16409                     ByVal QJ_ID As Integer, _
16410                     ByVal QuotationID As Integer, _
16411                     ByVal ProductID As Integer, _
16412                     ByVal Cost As Decimal, _
16413                     ByVal Qty As Integer, _
16414                     ByVal Amount As Decimal, _
16415                     ByVal DiscountPer As Decimal, _
16416                     ByVal Discount As Decimal, _
16417                     ByVal VATPer As Decimal, _
16418                     ByVal VAT As Decimal, _
16419                     ByVal TotalAmount As Decimal, _
16420                     ByVal Original_QJ_ID As Integer, _
16421                     ByVal Original_QuotationID As Integer, _
16422                     ByVal Original_ProductID As Integer, _
16423                     ByVal Original_Cost As Decimal, _
16424                     ByVal Original_Qty As Integer, _
16425                     ByVal Original_Amount As Decimal, _
16426                     ByVal Original_DiscountPer As Decimal, _
16427                     ByVal Original_Discount As Decimal, _
16428                     ByVal Original_VATPer As Decimal, _
16429                     ByVal Original_VAT As Decimal, _
16430                     ByVal Original_TotalAmount As Decimal) As Integer
16431             Me.Adapter.UpdateCommand.Parameters(0).Value = CType(QJ_ID,Integer)
16432             Me.Adapter.UpdateCommand.Parameters(1).Value = CType(QuotationID,Integer)
16433             Me.Adapter.UpdateCommand.Parameters(2).Value = CType(ProductID,Integer)
16434             Me.Adapter.UpdateCommand.Parameters(3).Value = CType(Cost,Decimal)
16435             Me.Adapter.UpdateCommand.Parameters(4).Value = CType(Qty,Integer)
16436             Me.Adapter.UpdateCommand.Parameters(5).Value = CType(Amount,Decimal)
16437             Me.Adapter.UpdateCommand.Parameters(6).Value = CType(DiscountPer,Decimal)
16438             Me.Adapter.UpdateCommand.Parameters(7).Value = CType(Discount,Decimal)
16439             Me.Adapter.UpdateCommand.Parameters(8).Value = CType(VATPer,Decimal)
16440             Me.Adapter.UpdateCommand.Parameters(9).Value = CType(VAT,Decimal)
16441             Me.Adapter.UpdateCommand.Parameters(10).Value = CType(TotalAmount,Decimal)
16442             Me.Adapter.UpdateCommand.Parameters(11).Value = CType(Original_QJ_ID,Integer)
16443             Me.Adapter.UpdateCommand.Parameters(12).Value = CType(Original_QuotationID,Integer)
16444             Me.Adapter.UpdateCommand.Parameters(13).Value = CType(Original_ProductID,Integer)
16445             Me.Adapter.UpdateCommand.Parameters(14).Value = CType(Original_Cost,Decimal)
16446             Me.Adapter.UpdateCommand.Parameters(15).Value = CType(Original_Qty,Integer)
16447             Me.Adapter.UpdateCommand.Parameters(16).Value = CType(Original_Amount,Decimal)
16448             Me.Adapter.UpdateCommand.Parameters(17).Value = CType(Original_DiscountPer,Decimal)
16449             Me.Adapter.UpdateCommand.Parameters(18).Value = CType(Original_Discount,Decimal)
16450             Me.Adapter.UpdateCommand.Parameters(19).Value = CType(Original_VATPer,Decimal)
16451             Me.Adapter.UpdateCommand.Parameters(20).Value = CType(Original_VAT,Decimal)
16452             Me.Adapter.UpdateCommand.Parameters(21).Value = CType(Original_TotalAmount,Decimal)
16453             Dim previousConnectionState As Global.System.Data.ConnectionState = Me.Adapter.UpdateCommand.Connection.State
16454             If ((Me.Adapter.UpdateCommand.Connection.State And Global.System.Data.ConnectionState.Open) _
16455                         <> Global.System.Data.ConnectionState.Open) Then
16456                 Me.Adapter.UpdateCommand.Connection.Open
16457             End If
16458             Try
16459                 Dim returnValue As Integer = Me.Adapter.UpdateCommand.ExecuteNonQuery
16460                 Return returnValue
16461             Finally
16462                 If (previousConnectionState = Global.System.Data.ConnectionState.Closed) Then
16463                     Me.Adapter.UpdateCommand.Connection.Close
16464                 End If
16465             End Try
16466         End Function
16467         
16468         <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
16469          Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0"), _
16470          Global.System.ComponentModel.Design.HelpKeywordAttribute("vs.data.TableAdapter"), _
16471          Global.System.ComponentModel.DataObjectMethodAttribute(Global.System.ComponentModel.DataObjectMethodType.Update, true)> _
16472         Public Overloads Overridable Function Update( _
16473                     ByVal QuotationID As Integer, _
16474                     ByVal ProductID As Integer, _
16475                     ByVal Cost As Decimal, _
16476                     ByVal Qty As Integer, _
16477                     ByVal Amount As Decimal, _
16478                     ByVal DiscountPer As Decimal, _
16479                     ByVal Discount As Decimal, _
16480                     ByVal VATPer As Decimal, _
16481                     ByVal VAT As Decimal, _
16482                     ByVal TotalAmount As Decimal, _
16483                     ByVal Original_QJ_ID As Integer, _
16484                     ByVal Original_QuotationID As Integer, _
16485                     ByVal Original_ProductID As Integer, _
16486                     ByVal Original_Cost As Decimal, _
16487                     ByVal Original_Qty As Integer, _
16488                     ByVal Original_Amount As Decimal, _
16489                     ByVal Original_DiscountPer As Decimal, _
16490                     ByVal Original_Discount As Decimal, _
16491                     ByVal Original_VATPer As Decimal, _
16492                     ByVal Original_VAT As Decimal, _
16493                     ByVal Original_TotalAmount As Decimal) As Integer
16494             Return Me.Update(Original_QJ_ID, QuotationID, ProductID, Cost, Qty, Amount, DiscountPer, Discount, VATPer, VAT, TotalAmount, Original_QJ_ID, Original_QuotationID, Original_ProductID, Original_Cost, Original_Qty, Original_Amount, Original_DiscountPer, Original_Discount, Original_VATPer, Original_VAT, Original_TotalAmount)
16495         End Function
16496     End Class
16497     
16498     '''<summary>
16499     '''Represents the connection and commands used to retrieve and save data.
16500     '''</summary>
16501     <Global.System.ComponentModel.DesignerCategoryAttribute("code"), _
16502      Global.System.ComponentModel.ToolboxItem(true), _
16503      Global.System.ComponentModel.DataObjectAttribute(true), _
16504      Global.System.ComponentModel.DesignerAttribute("Microsoft.VSDesigner.DataSource.Design.TableAdapterDesigner, Microsoft.VSDesigner"& _
16505         ", Version=10.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a"), _
16506      Global.System.ComponentModel.Design.HelpKeywordAttribute("vs.data.TableAdapter")> _
16507     Partial Public Class RegistrationTableAdapter
16508         Inherits Global.System.ComponentModel.Component
16509         
16510         Private WithEvents _adapter As Global.System.Data.SqlClient.SqlDataAdapter
16511         
16512         Private _connection As Global.System.Data.SqlClient.SqlConnection
16513         
16514         Private _transaction As Global.System.Data.SqlClient.SqlTransaction
16515         
16516         Private _commandCollection() As Global.System.Data.SqlClient.SqlCommand
16517         
16518         Private _clearBeforeFill As Boolean
16519         
16520         <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
16521          Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0")> _
16522         Public Sub New()
16523             MyBase.New
16524             Me.ClearBeforeFill = true
16525         End Sub
16526         
16527         <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
16528          Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0")> _
16529         Protected Friend ReadOnly Property Adapter() As Global.System.Data.SqlClient.SqlDataAdapter
16530             Get
16531                 If (Me._adapter Is Nothing) Then
16532                     Me.InitAdapter
16533                 End If
16534                 Return Me._adapter
16535             End Get
16536         End Property
16537         
16538         <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
16539          Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0")> _
16540         Friend Property Connection() As Global.System.Data.SqlClient.SqlConnection
16541             Get
16542                 If (Me._connection Is Nothing) Then
16543                     Me.InitConnection
16544                 End If
16545                 Return Me._connection
16546             End Get
16547             Set
16548                 Me._connection = value
16549                 If (Not (Me.Adapter.InsertCommand) Is Nothing) Then
16550                     Me.Adapter.InsertCommand.Connection = value
16551                 End If
16552                 If (Not (Me.Adapter.DeleteCommand) Is Nothing) Then
16553                     Me.Adapter.DeleteCommand.Connection = value
16554                 End If
16555                 If (Not (Me.Adapter.UpdateCommand) Is Nothing) Then
16556                     Me.Adapter.UpdateCommand.Connection = value
16557                 End If
16558                 Dim i As Integer = 0
16559                 Do While (i < Me.CommandCollection.Length)
16560                     If (Not (Me.CommandCollection(i)) Is Nothing) Then
16561                         CType(Me.CommandCollection(i),Global.System.Data.SqlClient.SqlCommand).Connection = value
16562                     End If
16563                     i = (i + 1)
16564                 Loop
16565             End Set
16566         End Property
16567         
16568         <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
16569          Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0")> _
16570         Friend Property Transaction() As Global.System.Data.SqlClient.SqlTransaction
16571             Get
16572                 Return Me._transaction
16573             End Get
16574             Set
16575                 Me._transaction = value
16576                 Dim i As Integer = 0
16577                 Do While (i < Me.CommandCollection.Length)
16578                     Me.CommandCollection(i).Transaction = Me._transaction
16579                     i = (i + 1)
16580                 Loop
16581                 If ((Not (Me.Adapter) Is Nothing) _
16582                             AndAlso (Not (Me.Adapter.DeleteCommand) Is Nothing)) Then
16583                     Me.Adapter.DeleteCommand.Transaction = Me._transaction
16584                 End If
16585                 If ((Not (Me.Adapter) Is Nothing) _
16586                             AndAlso (Not (Me.Adapter.InsertCommand) Is Nothing)) Then
16587                     Me.Adapter.InsertCommand.Transaction = Me._transaction
16588                 End If
16589                 If ((Not (Me.Adapter) Is Nothing) _
16590                             AndAlso (Not (Me.Adapter.UpdateCommand) Is Nothing)) Then
16591                     Me.Adapter.UpdateCommand.Transaction = Me._transaction
16592                 End If
16593             End Set
16594         End Property
16595         
16596         <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
16597          Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0")> _
16598         Protected ReadOnly Property CommandCollection() As Global.System.Data.SqlClient.SqlCommand()
16599             Get
16600                 If (Me._commandCollection Is Nothing) Then
16601                     Me.InitCommandCollection
16602                 End If
16603                 Return Me._commandCollection
16604             End Get
16605         End Property
16606         
16607         <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
16608          Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0")> _
16609         Public Property ClearBeforeFill() As Boolean
16610             Get
16611                 Return Me._clearBeforeFill
16612             End Get
16613             Set
16614                 Me._clearBeforeFill = value
16615             End Set
16616         End Property
16617         
16618         <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
16619          Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0")> _
16620         Private Sub InitAdapter()
16621             Me._adapter = New Global.System.Data.SqlClient.SqlDataAdapter()
16622             Dim tableMapping As Global.System.Data.Common.DataTableMapping = New Global.System.Data.Common.DataTableMapping()
16623             tableMapping.SourceTable = "Table"
16624             tableMapping.DataSetTable = "Registration"
16625             tableMapping.ColumnMappings.Add("UserID", "UserID")
16626             tableMapping.ColumnMappings.Add("UserType", "UserType")
16627             tableMapping.ColumnMappings.Add("Password", "Password")
16628             tableMapping.ColumnMappings.Add("Name", "Name")
16629             tableMapping.ColumnMappings.Add("ContactNo", "ContactNo")
16630             tableMapping.ColumnMappings.Add("EmailID", "EmailID")
16631             tableMapping.ColumnMappings.Add("JoiningDate", "JoiningDate")
16632             Me._adapter.TableMappings.Add(tableMapping)
16633             Me._adapter.DeleteCommand = New Global.System.Data.SqlClient.SqlCommand()
16634             Me._adapter.DeleteCommand.Connection = Me.Connection
16635             Me._adapter.DeleteCommand.CommandText = "DELETE FROM [dbo].[Registration] WHERE (([UserID] = @Original_UserID) AND ([UserT"& _
16636                 "ype] = @Original_UserType) AND ([Password] = @Original_Password) AND ([Name] = @"& _
16637                 "Original_Name) AND ([ContactNo] = @Original_ContactNo) AND ((@IsNull_EmailID = 1"& _
16638                 " AND [EmailID] IS NULL) OR ([EmailID] = @Original_EmailID)) AND ((@IsNull_Joinin"& _
16639                 "gDate = 1 AND [JoiningDate] IS NULL) OR ([JoiningDate] = @Original_JoiningDate))"& _
16640                 ")"
16641             Me._adapter.DeleteCommand.CommandType = Global.System.Data.CommandType.Text
16642             Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_UserID", Global.System.Data.SqlDbType.NChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "UserID", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", ""))
16643             Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_UserType", Global.System.Data.SqlDbType.NChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "UserType", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", ""))
16644             Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_Password", Global.System.Data.SqlDbType.NChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "Password", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", ""))
16645             Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_Name", Global.System.Data.SqlDbType.NChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "Name", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", ""))
16646             Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_ContactNo", Global.System.Data.SqlDbType.NChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "ContactNo", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", ""))
16647             Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@IsNull_EmailID", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "EmailID", Global.System.Data.DataRowVersion.Original, true, Nothing, "", "", ""))
16648             Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_EmailID", Global.System.Data.SqlDbType.NChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "EmailID", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", ""))
16649             Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@IsNull_JoiningDate", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "JoiningDate", Global.System.Data.DataRowVersion.Original, true, Nothing, "", "", ""))
16650             Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_JoiningDate", Global.System.Data.SqlDbType.DateTime, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "JoiningDate", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", ""))
16651             Me._adapter.InsertCommand = New Global.System.Data.SqlClient.SqlCommand()
16652             Me._adapter.InsertCommand.Connection = Me.Connection
16653             Me._adapter.InsertCommand.CommandText = "INSERT INTO [dbo].[Registration] ([UserID], [UserType], [Password], [Name], [Cont"& _
16654                 "actNo], [EmailID], [JoiningDate]) VALUES (@UserID, @UserType, @Password, @Name, "& _
16655                 "@ContactNo, @EmailID, @JoiningDate);"&Global.Microsoft.VisualBasic.ChrW(13)&Global.Microsoft.VisualBasic.ChrW(10)&"SELECT UserID, UserType, Password, Name, C"& _
16656                 "ontactNo, EmailID, JoiningDate FROM Registration WHERE (UserID = @UserID)"
16657             Me._adapter.InsertCommand.CommandType = Global.System.Data.CommandType.Text
16658             Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@UserID", Global.System.Data.SqlDbType.NChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "UserID", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", ""))
16659             Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@UserType", Global.System.Data.SqlDbType.NChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "UserType", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", ""))
16660             Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Password", Global.System.Data.SqlDbType.NChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "Password", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", ""))
16661             Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Name", Global.System.Data.SqlDbType.NChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "Name", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", ""))
16662             Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@ContactNo", Global.System.Data.SqlDbType.NChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "ContactNo", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", ""))
16663             Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@EmailID", Global.System.Data.SqlDbType.NChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "EmailID", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", ""))
16664             Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@JoiningDate", Global.System.Data.SqlDbType.DateTime, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "JoiningDate", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", ""))
16665             Me._adapter.UpdateCommand = New Global.System.Data.SqlClient.SqlCommand()
16666             Me._adapter.UpdateCommand.Connection = Me.Connection
16667             Me._adapter.UpdateCommand.CommandText = "UPDATE [dbo].[Registration] SET [UserID] = @UserID, [UserType] = @UserType, [Pass"& _
16668                 "word] = @Password, [Name] = @Name, [ContactNo] = @ContactNo, [EmailID] = @EmailI"& _
16669                 "D, [JoiningDate] = @JoiningDate WHERE (([UserID] = @Original_UserID) AND ([UserT"& _
16670                 "ype] = @Original_UserType) AND ([Password] = @Original_Password) AND ([Name] = @"& _
16671                 "Original_Name) AND ([ContactNo] = @Original_ContactNo) AND ((@IsNull_EmailID = 1"& _
16672                 " AND [EmailID] IS NULL) OR ([EmailID] = @Original_EmailID)) AND ((@IsNull_Joinin"& _
16673                 "gDate = 1 AND [JoiningDate] IS NULL) OR ([JoiningDate] = @Original_JoiningDate))"& _
16674                 ");"&Global.Microsoft.VisualBasic.ChrW(13)&Global.Microsoft.VisualBasic.ChrW(10)&"SELECT UserID, UserType, Password, Name, ContactNo, EmailID, JoiningDate FRO"& _
16675                 "M Registration WHERE (UserID = @UserID)"
16676             Me._adapter.UpdateCommand.CommandType = Global.System.Data.CommandType.Text
16677             Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@UserID", Global.System.Data.SqlDbType.NChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "UserID", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", ""))
16678             Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@UserType", Global.System.Data.SqlDbType.NChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "UserType", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", ""))
16679             Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Password", Global.System.Data.SqlDbType.NChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "Password", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", ""))
16680             Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Name", Global.System.Data.SqlDbType.NChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "Name", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", ""))
16681             Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@ContactNo", Global.System.Data.SqlDbType.NChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "ContactNo", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", ""))
16682             Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@EmailID", Global.System.Data.SqlDbType.NChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "EmailID", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", ""))
16683             Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@JoiningDate", Global.System.Data.SqlDbType.DateTime, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "JoiningDate", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", ""))
16684             Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_UserID", Global.System.Data.SqlDbType.NChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "UserID", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", ""))
16685             Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_UserType", Global.System.Data.SqlDbType.NChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "UserType", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", ""))
16686             Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_Password", Global.System.Data.SqlDbType.NChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "Password", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", ""))
16687             Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_Name", Global.System.Data.SqlDbType.NChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "Name", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", ""))
16688             Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_ContactNo", Global.System.Data.SqlDbType.NChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "ContactNo", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", ""))
16689             Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@IsNull_EmailID", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "EmailID", Global.System.Data.DataRowVersion.Original, true, Nothing, "", "", ""))
16690             Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_EmailID", Global.System.Data.SqlDbType.NChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "EmailID", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", ""))
16691             Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@IsNull_JoiningDate", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "JoiningDate", Global.System.Data.DataRowVersion.Original, true, Nothing, "", "", ""))
16692             Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_JoiningDate", Global.System.Data.SqlDbType.DateTime, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "JoiningDate", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", ""))
16693         End Sub
16694         
16695         <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
16696          Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0")> _
16697         Private Sub InitConnection()
16698             Me._connection = New Global.System.Data.SqlClient.SqlConnection()
16699             Me._connection.ConnectionString = Global.Sales_and_Inventory_System.My.MySettings.Default.SIS_DBConnectionString1
16700         End Sub
16701         
16702         <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
16703          Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0")> _
16704         Private Sub InitCommandCollection()
16705             Me._commandCollection = New Global.System.Data.SqlClient.SqlCommand(0) {}
16706             Me._commandCollection(0) = New Global.System.Data.SqlClient.SqlCommand()
16707             Me._commandCollection(0).Connection = Me.Connection
16708             Me._commandCollection(0).CommandText = "SELECT UserID, UserType, Password, Name, ContactNo, EmailID, JoiningDate FROM dbo"& _
16709                 ".Registration"
16710             Me._commandCollection(0).CommandType = Global.System.Data.CommandType.Text
16711         End Sub
16712         
16713         <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
16714          Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0"), _
16715          Global.System.ComponentModel.Design.HelpKeywordAttribute("vs.data.TableAdapter"), _
16716          Global.System.ComponentModel.DataObjectMethodAttribute(Global.System.ComponentModel.DataObjectMethodType.Fill, true)> _
16717         Public Overloads Overridable Function Fill(ByVal dataTable As SIS_DBDataSet.RegistrationDataTable) As Integer
16718             Me.Adapter.SelectCommand = Me.CommandCollection(0)
16719             If (Me.ClearBeforeFill = true) Then
16720                 dataTable.Clear
16721             End If
16722             Dim returnValue As Integer = Me.Adapter.Fill(dataTable)
16723             Return returnValue
16724         End Function
16725         
16726         <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
16727          Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0"), _
16728          Global.System.ComponentModel.Design.HelpKeywordAttribute("vs.data.TableAdapter"), _
16729          Global.System.ComponentModel.DataObjectMethodAttribute(Global.System.ComponentModel.DataObjectMethodType.[Select], true)> _
16730         Public Overloads Overridable Function GetData() As SIS_DBDataSet.RegistrationDataTable
16731             Me.Adapter.SelectCommand = Me.CommandCollection(0)
16732             Dim dataTable As SIS_DBDataSet.RegistrationDataTable = New SIS_DBDataSet.RegistrationDataTable()
16733             Me.Adapter.Fill(dataTable)
16734             Return dataTable
16735         End Function
16736         
16737         <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
16738          Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0"), _
16739          Global.System.ComponentModel.Design.HelpKeywordAttribute("vs.data.TableAdapter")> _
16740         Public Overloads Overridable Function Update(ByVal dataTable As SIS_DBDataSet.RegistrationDataTable) As Integer
16741             Return Me.Adapter.Update(dataTable)
16742         End Function
16743         
16744         <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
16745          Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0"), _
16746          Global.System.ComponentModel.Design.HelpKeywordAttribute("vs.data.TableAdapter")> _
16747         Public Overloads Overridable Function Update(ByVal dataSet As SIS_DBDataSet) As Integer
16748             Return Me.Adapter.Update(dataSet, "Registration")
16749         End Function
16750         
16751         <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
16752          Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0"), _
16753          Global.System.ComponentModel.Design.HelpKeywordAttribute("vs.data.TableAdapter")> _
16754         Public Overloads Overridable Function Update(ByVal dataRow As Global.System.Data.DataRow) As Integer
16755             Return Me.Adapter.Update(New Global.System.Data.DataRow() {dataRow})
16756         End Function
16757         
16758         <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
16759          Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0"), _
16760          Global.System.ComponentModel.Design.HelpKeywordAttribute("vs.data.TableAdapter")> _
16761         Public Overloads Overridable Function Update(ByVal dataRows() As Global.System.Data.DataRow) As Integer
16762             Return Me.Adapter.Update(dataRows)
16763         End Function
16764         
16765         <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
16766          Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0"), _
16767          Global.System.ComponentModel.Design.HelpKeywordAttribute("vs.data.TableAdapter"), _
16768          Global.System.ComponentModel.DataObjectMethodAttribute(Global.System.ComponentModel.DataObjectMethodType.Delete, true)> _
16769         Public Overloads Overridable Function Delete(ByVal Original_UserID As String, ByVal Original_UserType As String, ByVal Original_Password As String, ByVal Original_Name As String, ByVal Original_ContactNo As String, ByVal Original_EmailID As String, ByVal Original_JoiningDate As Global.System.Nullable(Of Date)) As Integer
16770             If (Original_UserID Is Nothing) Then
16771                 Throw New Global.System.ArgumentNullException("Original_UserID")
16772             Else
16773                 Me.Adapter.DeleteCommand.Parameters(0).Value = CType(Original_UserID,String)
16774             End If
16775             If (Original_UserType Is Nothing) Then
16776                 Throw New Global.System.ArgumentNullException("Original_UserType")
16777             Else
16778                 Me.Adapter.DeleteCommand.Parameters(1).Value = CType(Original_UserType,String)
16779             End If
16780             If (Original_Password Is Nothing) Then
16781                 Throw New Global.System.ArgumentNullException("Original_Password")
16782             Else
16783                 Me.Adapter.DeleteCommand.Parameters(2).Value = CType(Original_Password,String)
16784             End If
16785             If (Original_Name Is Nothing) Then
16786                 Throw New Global.System.ArgumentNullException("Original_Name")
16787             Else
16788                 Me.Adapter.DeleteCommand.Parameters(3).Value = CType(Original_Name,String)
16789             End If
16790             If (Original_ContactNo Is Nothing) Then
16791                 Throw New Global.System.ArgumentNullException("Original_ContactNo")
16792             Else
16793                 Me.Adapter.DeleteCommand.Parameters(4).Value = CType(Original_ContactNo,String)
16794             End If
16795             If (Original_EmailID Is Nothing) Then
16796                 Me.Adapter.DeleteCommand.Parameters(5).Value = CType(1,Object)
16797                 Me.Adapter.DeleteCommand.Parameters(6).Value = Global.System.DBNull.Value
16798             Else
16799                 Me.Adapter.DeleteCommand.Parameters(5).Value = CType(0,Object)
16800                 Me.Adapter.DeleteCommand.Parameters(6).Value = CType(Original_EmailID,String)
16801             End If
16802             If (Original_JoiningDate.HasValue = true) Then
16803                 Me.Adapter.DeleteCommand.Parameters(7).Value = CType(0,Object)
16804                 Me.Adapter.DeleteCommand.Parameters(8).Value = CType(Original_JoiningDate.Value,Date)
16805             Else
16806                 Me.Adapter.DeleteCommand.Parameters(7).Value = CType(1,Object)
16807                 Me.Adapter.DeleteCommand.Parameters(8).Value = Global.System.DBNull.Value
16808             End If
16809             Dim previousConnectionState As Global.System.Data.ConnectionState = Me.Adapter.DeleteCommand.Connection.State
16810             If ((Me.Adapter.DeleteCommand.Connection.State And Global.System.Data.ConnectionState.Open) _
16811                         <> Global.System.Data.ConnectionState.Open) Then
16812                 Me.Adapter.DeleteCommand.Connection.Open
16813             End If
16814             Try
16815                 Dim returnValue As Integer = Me.Adapter.DeleteCommand.ExecuteNonQuery
16816                 Return returnValue
16817             Finally
16818                 If (previousConnectionState = Global.System.Data.ConnectionState.Closed) Then
16819                     Me.Adapter.DeleteCommand.Connection.Close
16820                 End If
16821             End Try
16822         End Function
16823         
16824         <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
16825          Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0"), _
16826          Global.System.ComponentModel.Design.HelpKeywordAttribute("vs.data.TableAdapter"), _
16827          Global.System.ComponentModel.DataObjectMethodAttribute(Global.System.ComponentModel.DataObjectMethodType.Insert, true)> _
16828         Public Overloads Overridable Function Insert(ByVal UserID As String, ByVal UserType As String, ByVal Password As String, ByVal Name As String, ByVal ContactNo As String, ByVal EmailID As String, ByVal JoiningDate As Global.System.Nullable(Of Date)) As Integer
16829             If (UserID Is Nothing) Then
16830                 Throw New Global.System.ArgumentNullException("UserID")
16831             Else
16832                 Me.Adapter.InsertCommand.Parameters(0).Value = CType(UserID,String)
16833             End If
16834             If (UserType Is Nothing) Then
16835                 Throw New Global.System.ArgumentNullException("UserType")
16836             Else
16837                 Me.Adapter.InsertCommand.Parameters(1).Value = CType(UserType,String)
16838             End If
16839             If (Password Is Nothing) Then
16840                 Throw New Global.System.ArgumentNullException("Password")
16841             Else
16842                 Me.Adapter.InsertCommand.Parameters(2).Value = CType(Password,String)
16843             End If
16844             If (Name Is Nothing) Then
16845                 Throw New Global.System.ArgumentNullException("Name")
16846             Else
16847                 Me.Adapter.InsertCommand.Parameters(3).Value = CType(Name,String)
16848             End If
16849             If (ContactNo Is Nothing) Then
16850                 Throw New Global.System.ArgumentNullException("ContactNo")
16851             Else
16852                 Me.Adapter.InsertCommand.Parameters(4).Value = CType(ContactNo,String)
16853             End If
16854             If (EmailID Is Nothing) Then
16855                 Me.Adapter.InsertCommand.Parameters(5).Value = Global.System.DBNull.Value
16856             Else
16857                 Me.Adapter.InsertCommand.Parameters(5).Value = CType(EmailID,String)
16858             End If
16859             If (JoiningDate.HasValue = true) Then
16860                 Me.Adapter.InsertCommand.Parameters(6).Value = CType(JoiningDate.Value,Date)
16861             Else
16862                 Me.Adapter.InsertCommand.Parameters(6).Value = Global.System.DBNull.Value
16863             End If
16864             Dim previousConnectionState As Global.System.Data.ConnectionState = Me.Adapter.InsertCommand.Connection.State
16865             If ((Me.Adapter.InsertCommand.Connection.State And Global.System.Data.ConnectionState.Open) _
16866                         <> Global.System.Data.ConnectionState.Open) Then
16867                 Me.Adapter.InsertCommand.Connection.Open
16868             End If
16869             Try
16870                 Dim returnValue As Integer = Me.Adapter.InsertCommand.ExecuteNonQuery
16871                 Return returnValue
16872             Finally
16873                 If (previousConnectionState = Global.System.Data.ConnectionState.Closed) Then
16874                     Me.Adapter.InsertCommand.Connection.Close
16875                 End If
16876             End Try
16877         End Function
16878         
16879         <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
16880          Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0"), _
16881          Global.System.ComponentModel.Design.HelpKeywordAttribute("vs.data.TableAdapter"), _
16882          Global.System.ComponentModel.DataObjectMethodAttribute(Global.System.ComponentModel.DataObjectMethodType.Update, true)> _
16883         Public Overloads Overridable Function Update(ByVal UserID As String, ByVal UserType As String, ByVal Password As String, ByVal Name As String, ByVal ContactNo As String, ByVal EmailID As String, ByVal JoiningDate As Global.System.Nullable(Of Date), ByVal Original_UserID As String, ByVal Original_UserType As String, ByVal Original_Password As String, ByVal Original_Name As String, ByVal Original_ContactNo As String, ByVal Original_EmailID As String, ByVal Original_JoiningDate As Global.System.Nullable(Of Date)) As Integer
16884             If (UserID Is Nothing) Then
16885                 Throw New Global.System.ArgumentNullException("UserID")
16886             Else
16887                 Me.Adapter.UpdateCommand.Parameters(0).Value = CType(UserID,String)
16888             End If
16889             If (UserType Is Nothing) Then
16890                 Throw New Global.System.ArgumentNullException("UserType")
16891             Else
16892                 Me.Adapter.UpdateCommand.Parameters(1).Value = CType(UserType,String)
16893             End If
16894             If (Password Is Nothing) Then
16895                 Throw New Global.System.ArgumentNullException("Password")
16896             Else
16897                 Me.Adapter.UpdateCommand.Parameters(2).Value = CType(Password,String)
16898             End If
16899             If (Name Is Nothing) Then
16900                 Throw New Global.System.ArgumentNullException("Name")
16901             Else
16902                 Me.Adapter.UpdateCommand.Parameters(3).Value = CType(Name,String)
16903             End If
16904             If (ContactNo Is Nothing) Then
16905                 Throw New Global.System.ArgumentNullException("ContactNo")
16906             Else
16907                 Me.Adapter.UpdateCommand.Parameters(4).Value = CType(ContactNo,String)
16908             End If
16909             If (EmailID Is Nothing) Then
16910                 Me.Adapter.UpdateCommand.Parameters(5).Value = Global.System.DBNull.Value
16911             Else
16912                 Me.Adapter.UpdateCommand.Parameters(5).Value = CType(EmailID,String)
16913             End If
16914             If (JoiningDate.HasValue = true) Then
16915                 Me.Adapter.UpdateCommand.Parameters(6).Value = CType(JoiningDate.Value,Date)
16916             Else
16917                 Me.Adapter.UpdateCommand.Parameters(6).Value = Global.System.DBNull.Value
16918             End If
16919             If (Original_UserID Is Nothing) Then
16920                 Throw New Global.System.ArgumentNullException("Original_UserID")
16921             Else
16922                 Me.Adapter.UpdateCommand.Parameters(7).Value = CType(Original_UserID,String)
16923             End If
16924             If (Original_UserType Is Nothing) Then
16925                 Throw New Global.System.ArgumentNullException("Original_UserType")
16926             Else
16927                 Me.Adapter.UpdateCommand.Parameters(8).Value = CType(Original_UserType,String)
16928             End If
16929             If (Original_Password Is Nothing) Then
16930                 Throw New Global.System.ArgumentNullException("Original_Password")
16931             Else
16932                 Me.Adapter.UpdateCommand.Parameters(9).Value = CType(Original_Password,String)
16933             End If
16934             If (Original_Name Is Nothing) Then
16935                 Throw New Global.System.ArgumentNullException("Original_Name")
16936             Else
16937                 Me.Adapter.UpdateCommand.Parameters(10).Value = CType(Original_Name,String)
16938             End If
16939             If (Original_ContactNo Is Nothing) Then
16940                 Throw New Global.System.ArgumentNullException("Original_ContactNo")
16941             Else
16942                 Me.Adapter.UpdateCommand.Parameters(11).Value = CType(Original_ContactNo,String)
16943             End If
16944             If (Original_EmailID Is Nothing) Then
16945                 Me.Adapter.UpdateCommand.Parameters(12).Value = CType(1,Object)
16946                 Me.Adapter.UpdateCommand.Parameters(13).Value = Global.System.DBNull.Value
16947             Else
16948                 Me.Adapter.UpdateCommand.Parameters(12).Value = CType(0,Object)
16949                 Me.Adapter.UpdateCommand.Parameters(13).Value = CType(Original_EmailID,String)
16950             End If
16951             If (Original_JoiningDate.HasValue = true) Then
16952                 Me.Adapter.UpdateCommand.Parameters(14).Value = CType(0,Object)
16953                 Me.Adapter.UpdateCommand.Parameters(15).Value = CType(Original_JoiningDate.Value,Date)
16954             Else
16955                 Me.Adapter.UpdateCommand.Parameters(14).Value = CType(1,Object)
16956                 Me.Adapter.UpdateCommand.Parameters(15).Value = Global.System.DBNull.Value
16957             End If
16958             Dim previousConnectionState As Global.System.Data.ConnectionState = Me.Adapter.UpdateCommand.Connection.State
16959             If ((Me.Adapter.UpdateCommand.Connection.State And Global.System.Data.ConnectionState.Open) _
16960                         <> Global.System.Data.ConnectionState.Open) Then
16961                 Me.Adapter.UpdateCommand.Connection.Open
16962             End If
16963             Try
16964                 Dim returnValue As Integer = Me.Adapter.UpdateCommand.ExecuteNonQuery
16965                 Return returnValue
16966             Finally
16967                 If (previousConnectionState = Global.System.Data.ConnectionState.Closed) Then
16968                     Me.Adapter.UpdateCommand.Connection.Close
16969                 End If
16970             End Try
16971         End Function
16972         
16973         <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
16974          Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0"), _
16975          Global.System.ComponentModel.Design.HelpKeywordAttribute("vs.data.TableAdapter"), _
16976          Global.System.ComponentModel.DataObjectMethodAttribute(Global.System.ComponentModel.DataObjectMethodType.Update, true)> _
16977         Public Overloads Overridable Function Update(ByVal UserType As String, ByVal Password As String, ByVal Name As String, ByVal ContactNo As String, ByVal EmailID As String, ByVal JoiningDate As Global.System.Nullable(Of Date), ByVal Original_UserID As String, ByVal Original_UserType As String, ByVal Original_Password As String, ByVal Original_Name As String, ByVal Original_ContactNo As String, ByVal Original_EmailID As String, ByVal Original_JoiningDate As Global.System.Nullable(Of Date)) As Integer
16978             Return Me.Update(Original_UserID, UserType, Password, Name, ContactNo, EmailID, JoiningDate, Original_UserID, Original_UserType, Original_Password, Original_Name, Original_ContactNo, Original_EmailID, Original_JoiningDate)
16979         End Function
16980     End Class
16981     
16982     '''<summary>
16983     '''Represents the connection and commands used to retrieve and save data.
16984     '''</summary>
16985     <Global.System.ComponentModel.DesignerCategoryAttribute("code"), _
16986      Global.System.ComponentModel.ToolboxItem(true), _
16987      Global.System.ComponentModel.DataObjectAttribute(true), _
16988      Global.System.ComponentModel.DesignerAttribute("Microsoft.VSDesigner.DataSource.Design.TableAdapterDesigner, Microsoft.VSDesigner"& _
16989         ", Version=10.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a"), _
16990      Global.System.ComponentModel.Design.HelpKeywordAttribute("vs.data.TableAdapter")> _
16991     Partial Public Class ServiceTableAdapter
16992         Inherits Global.System.ComponentModel.Component
16993         
16994         Private WithEvents _adapter As Global.System.Data.SqlClient.SqlDataAdapter
16995         
16996         Private _connection As Global.System.Data.SqlClient.SqlConnection
16997         
16998         Private _transaction As Global.System.Data.SqlClient.SqlTransaction
16999         
17000         Private _commandCollection() As Global.System.Data.SqlClient.SqlCommand
17001         
17002         Private _clearBeforeFill As Boolean
17003         
17004         <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
17005          Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0")> _
17006         Public Sub New()
17007             MyBase.New
17008             Me.ClearBeforeFill = true
17009         End Sub
17010         
17011         <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
17012          Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0")> _
17013         Protected Friend ReadOnly Property Adapter() As Global.System.Data.SqlClient.SqlDataAdapter
17014             Get
17015                 If (Me._adapter Is Nothing) Then
17016                     Me.InitAdapter
17017                 End If
17018                 Return Me._adapter
17019             End Get
17020         End Property
17021         
17022         <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
17023          Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0")> _
17024         Friend Property Connection() As Global.System.Data.SqlClient.SqlConnection
17025             Get
17026                 If (Me._connection Is Nothing) Then
17027                     Me.InitConnection
17028                 End If
17029                 Return Me._connection
17030             End Get
17031             Set
17032                 Me._connection = value
17033                 If (Not (Me.Adapter.InsertCommand) Is Nothing) Then
17034                     Me.Adapter.InsertCommand.Connection = value
17035                 End If
17036                 If (Not (Me.Adapter.DeleteCommand) Is Nothing) Then
17037                     Me.Adapter.DeleteCommand.Connection = value
17038                 End If
17039                 If (Not (Me.Adapter.UpdateCommand) Is Nothing) Then
17040                     Me.Adapter.UpdateCommand.Connection = value
17041                 End If
17042                 Dim i As Integer = 0
17043                 Do While (i < Me.CommandCollection.Length)
17044                     If (Not (Me.CommandCollection(i)) Is Nothing) Then
17045                         CType(Me.CommandCollection(i),Global.System.Data.SqlClient.SqlCommand).Connection = value
17046                     End If
17047                     i = (i + 1)
17048                 Loop
17049             End Set
17050         End Property
17051         
17052         <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
17053          Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0")> _
17054         Friend Property Transaction() As Global.System.Data.SqlClient.SqlTransaction
17055             Get
17056                 Return Me._transaction
17057             End Get
17058             Set
17059                 Me._transaction = value
17060                 Dim i As Integer = 0
17061                 Do While (i < Me.CommandCollection.Length)
17062                     Me.CommandCollection(i).Transaction = Me._transaction
17063                     i = (i + 1)
17064                 Loop
17065                 If ((Not (Me.Adapter) Is Nothing) _
17066                             AndAlso (Not (Me.Adapter.DeleteCommand) Is Nothing)) Then
17067                     Me.Adapter.DeleteCommand.Transaction = Me._transaction
17068                 End If
17069                 If ((Not (Me.Adapter) Is Nothing) _
17070                             AndAlso (Not (Me.Adapter.InsertCommand) Is Nothing)) Then
17071                     Me.Adapter.InsertCommand.Transaction = Me._transaction
17072                 End If
17073                 If ((Not (Me.Adapter) Is Nothing) _
17074                             AndAlso (Not (Me.Adapter.UpdateCommand) Is Nothing)) Then
17075                     Me.Adapter.UpdateCommand.Transaction = Me._transaction
17076                 End If
17077             End Set
17078         End Property
17079         
17080         <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
17081          Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0")> _
17082         Protected ReadOnly Property CommandCollection() As Global.System.Data.SqlClient.SqlCommand()
17083             Get
17084                 If (Me._commandCollection Is Nothing) Then
17085                     Me.InitCommandCollection
17086                 End If
17087                 Return Me._commandCollection
17088             End Get
17089         End Property
17090         
17091         <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
17092          Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0")> _
17093         Public Property ClearBeforeFill() As Boolean
17094             Get
17095                 Return Me._clearBeforeFill
17096             End Get
17097             Set
17098                 Me._clearBeforeFill = value
17099             End Set
17100         End Property
17101         
17102         <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
17103          Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0")> _
17104         Private Sub InitAdapter()
17105             Me._adapter = New Global.System.Data.SqlClient.SqlDataAdapter()
17106             Dim tableMapping As Global.System.Data.Common.DataTableMapping = New Global.System.Data.Common.DataTableMapping()
17107             tableMapping.SourceTable = "Table"
17108             tableMapping.DataSetTable = "Service"
17109             tableMapping.ColumnMappings.Add("S_ID", "S_ID")
17110             tableMapping.ColumnMappings.Add("ServiceCode", "ServiceCode")
17111             tableMapping.ColumnMappings.Add("CustomerID", "CustomerID")
17112             tableMapping.ColumnMappings.Add("ServiceType", "ServiceType")
17113             tableMapping.ColumnMappings.Add("ServiceCreationDate", "ServiceCreationDate")
17114             tableMapping.ColumnMappings.Add("ItemDescription", "ItemDescription")
17115             tableMapping.ColumnMappings.Add("ProblemDescription", "ProblemDescription")
17116             tableMapping.ColumnMappings.Add("ChargesQuote", "ChargesQuote")
17117             tableMapping.ColumnMappings.Add("AdvanceDeposit", "AdvanceDeposit")
17118             tableMapping.ColumnMappings.Add("EstimatedRepairDate", "EstimatedRepairDate")
17119             tableMapping.ColumnMappings.Add("Remarks", "Remarks")
17120             tableMapping.ColumnMappings.Add("Status", "Status")
17121             Me._adapter.TableMappings.Add(tableMapping)
17122             Me._adapter.DeleteCommand = New Global.System.Data.SqlClient.SqlCommand()
17123             Me._adapter.DeleteCommand.Connection = Me.Connection
17124             Me._adapter.DeleteCommand.CommandText = "DELETE FROM [dbo].[Service] WHERE (([S_ID] = @Original_S_ID) AND ([ServiceCode] ="& _
17125                 " @Original_ServiceCode) AND ([CustomerID] = @Original_CustomerID) AND ((@IsNull_"& _
17126                 "ServiceType = 1 AND [ServiceType] IS NULL) OR ([ServiceType] = @Original_Service"& _
17127                 "Type)) AND ([ServiceCreationDate] = @Original_ServiceCreationDate) AND ([Charges"& _
17128                 "Quote] = @Original_ChargesQuote) AND ([AdvanceDeposit] = @Original_AdvanceDeposi"& _
17129                 "t) AND ([EstimatedRepairDate] = @Original_EstimatedRepairDate) AND ([Status] = @"& _
17130                 "Original_Status))"
17131             Me._adapter.DeleteCommand.CommandType = Global.System.Data.CommandType.Text
17132             Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_S_ID", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "S_ID", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", ""))
17133             Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_ServiceCode", Global.System.Data.SqlDbType.NChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "ServiceCode", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", ""))
17134             Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_CustomerID", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "CustomerID", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", ""))
17135             Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@IsNull_ServiceType", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "ServiceType", Global.System.Data.DataRowVersion.Original, true, Nothing, "", "", ""))
17136             Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_ServiceType", Global.System.Data.SqlDbType.NChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "ServiceType", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", ""))
17137             Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_ServiceCreationDate", Global.System.Data.SqlDbType.DateTime, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "ServiceCreationDate", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", ""))
17138             Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_ChargesQuote", Global.System.Data.SqlDbType.[Decimal], 0, Global.System.Data.ParameterDirection.Input, 18, 2, "ChargesQuote", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", ""))
17139             Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_AdvanceDeposit", Global.System.Data.SqlDbType.[Decimal], 0, Global.System.Data.ParameterDirection.Input, 18, 2, "AdvanceDeposit", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", ""))
17140             Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_EstimatedRepairDate", Global.System.Data.SqlDbType.DateTime, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "EstimatedRepairDate", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", ""))
17141             Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_Status", Global.System.Data.SqlDbType.NChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "Status", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", ""))
17142             Me._adapter.InsertCommand = New Global.System.Data.SqlClient.SqlCommand()
17143             Me._adapter.InsertCommand.Connection = Me.Connection
17144             Me._adapter.InsertCommand.CommandText = "INSERT INTO [dbo].[Service] ([S_ID], [ServiceCode], [CustomerID], [ServiceType], "& _
17145                 "[ServiceCreationDate], [ItemDescription], [ProblemDescription], [ChargesQuote], "& _
17146                 "[AdvanceDeposit], [EstimatedRepairDate], [Remarks], [Status]) VALUES (@S_ID, @Se"& _
17147                 "rviceCode, @CustomerID, @ServiceType, @ServiceCreationDate, @ItemDescription, @P"& _
17148                 "roblemDescription, @ChargesQuote, @AdvanceDeposit, @EstimatedRepairDate, @Remark"& _
17149                 "s, @Status);"&Global.Microsoft.VisualBasic.ChrW(13)&Global.Microsoft.VisualBasic.ChrW(10)&"SELECT S_ID, ServiceCode, CustomerID, ServiceType, ServiceCreation"& _
17150                 "Date, ItemDescription, ProblemDescription, ChargesQuote, AdvanceDeposit, Estimat"& _
17151                 "edRepairDate, Remarks, Status FROM Service WHERE (S_ID = @S_ID)"
17152             Me._adapter.InsertCommand.CommandType = Global.System.Data.CommandType.Text
17153             Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@S_ID", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "S_ID", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", ""))
17154             Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@ServiceCode", Global.System.Data.SqlDbType.NChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "ServiceCode", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", ""))
17155             Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@CustomerID", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "CustomerID", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", ""))
17156             Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@ServiceType", Global.System.Data.SqlDbType.NChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "ServiceType", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", ""))
17157             Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@ServiceCreationDate", Global.System.Data.SqlDbType.DateTime, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "ServiceCreationDate", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", ""))
17158             Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@ItemDescription", Global.System.Data.SqlDbType.NVarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "ItemDescription", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", ""))
17159             Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@ProblemDescription", Global.System.Data.SqlDbType.NVarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "ProblemDescription", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", ""))
17160             Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@ChargesQuote", Global.System.Data.SqlDbType.[Decimal], 0, Global.System.Data.ParameterDirection.Input, 18, 2, "ChargesQuote", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", ""))
17161             Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@AdvanceDeposit", Global.System.Data.SqlDbType.[Decimal], 0, Global.System.Data.ParameterDirection.Input, 18, 2, "AdvanceDeposit", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", ""))
17162             Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@EstimatedRepairDate", Global.System.Data.SqlDbType.DateTime, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "EstimatedRepairDate", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", ""))
17163             Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Remarks", Global.System.Data.SqlDbType.NVarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "Remarks", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", ""))
17164             Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Status", Global.System.Data.SqlDbType.NChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "Status", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", ""))
17165             Me._adapter.UpdateCommand = New Global.System.Data.SqlClient.SqlCommand()
17166             Me._adapter.UpdateCommand.Connection = Me.Connection
17167             Me._adapter.UpdateCommand.CommandText = "UPDATE [dbo].[Service] SET [S_ID] = @S_ID, [ServiceCode] = @ServiceCode, [Custome"& _
17168                 "rID] = @CustomerID, [ServiceType] = @ServiceType, [ServiceCreationDate] = @Servi"& _
17169                 "ceCreationDate, [ItemDescription] = @ItemDescription, [ProblemDescription] = @Pr"& _
17170                 "oblemDescription, [ChargesQuote] = @ChargesQuote, [AdvanceDeposit] = @AdvanceDep"& _
17171                 "osit, [EstimatedRepairDate] = @EstimatedRepairDate, [Remarks] = @Remarks, [Statu"& _
17172                 "s] = @Status WHERE (([S_ID] = @Original_S_ID) AND ([ServiceCode] = @Original_Ser"& _
17173                 "viceCode) AND ([CustomerID] = @Original_CustomerID) AND ((@IsNull_ServiceType = "& _
17174                 "1 AND [ServiceType] IS NULL) OR ([ServiceType] = @Original_ServiceType)) AND ([S"& _
17175                 "erviceCreationDate] = @Original_ServiceCreationDate) AND ([ChargesQuote] = @Orig"& _
17176                 "inal_ChargesQuote) AND ([AdvanceDeposit] = @Original_AdvanceDeposit) AND ([Estim"& _
17177                 "atedRepairDate] = @Original_EstimatedRepairDate) AND ([Status] = @Original_Statu"& _
17178                 "s));"&Global.Microsoft.VisualBasic.ChrW(13)&Global.Microsoft.VisualBasic.ChrW(10)&"SELECT S_ID, ServiceCode, CustomerID, ServiceType, ServiceCreationDate, It"& _
17179                 "emDescription, ProblemDescription, ChargesQuote, AdvanceDeposit, EstimatedRepair"& _
17180                 "Date, Remarks, Status FROM Service WHERE (S_ID = @S_ID)"
17181             Me._adapter.UpdateCommand.CommandType = Global.System.Data.CommandType.Text
17182             Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@S_ID", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "S_ID", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", ""))
17183             Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@ServiceCode", Global.System.Data.SqlDbType.NChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "ServiceCode", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", ""))
17184             Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@CustomerID", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "CustomerID", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", ""))
17185             Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@ServiceType", Global.System.Data.SqlDbType.NChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "ServiceType", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", ""))
17186             Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@ServiceCreationDate", Global.System.Data.SqlDbType.DateTime, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "ServiceCreationDate", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", ""))
17187             Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@ItemDescription", Global.System.Data.SqlDbType.NVarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "ItemDescription", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", ""))
17188             Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@ProblemDescription", Global.System.Data.SqlDbType.NVarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "ProblemDescription", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", ""))
17189             Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@ChargesQuote", Global.System.Data.SqlDbType.[Decimal], 0, Global.System.Data.ParameterDirection.Input, 18, 2, "ChargesQuote", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", ""))
17190             Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@AdvanceDeposit", Global.System.Data.SqlDbType.[Decimal], 0, Global.System.Data.ParameterDirection.Input, 18, 2, "AdvanceDeposit", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", ""))
17191             Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@EstimatedRepairDate", Global.System.Data.SqlDbType.DateTime, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "EstimatedRepairDate", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", ""))
17192             Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Remarks", Global.System.Data.SqlDbType.NVarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "Remarks", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", ""))
17193             Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Status", Global.System.Data.SqlDbType.NChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "Status", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", ""))
17194             Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_S_ID", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "S_ID", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", ""))
17195             Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_ServiceCode", Global.System.Data.SqlDbType.NChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "ServiceCode", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", ""))
17196             Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_CustomerID", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "CustomerID", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", ""))
17197             Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@IsNull_ServiceType", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "ServiceType", Global.System.Data.DataRowVersion.Original, true, Nothing, "", "", ""))
17198             Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_ServiceType", Global.System.Data.SqlDbType.NChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "ServiceType", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", ""))
17199             Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_ServiceCreationDate", Global.System.Data.SqlDbType.DateTime, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "ServiceCreationDate", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", ""))
17200             Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_ChargesQuote", Global.System.Data.SqlDbType.[Decimal], 0, Global.System.Data.ParameterDirection.Input, 18, 2, "ChargesQuote", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", ""))
17201             Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_AdvanceDeposit", Global.System.Data.SqlDbType.[Decimal], 0, Global.System.Data.ParameterDirection.Input, 18, 2, "AdvanceDeposit", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", ""))
17202             Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_EstimatedRepairDate", Global.System.Data.SqlDbType.DateTime, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "EstimatedRepairDate", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", ""))
17203             Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_Status", Global.System.Data.SqlDbType.NChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "Status", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", ""))
17204         End Sub
17205         
17206         <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
17207          Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0")> _
17208         Private Sub InitConnection()
17209             Me._connection = New Global.System.Data.SqlClient.SqlConnection()
17210             Me._connection.ConnectionString = Global.Sales_and_Inventory_System.My.MySettings.Default.SIS_DBConnectionString1
17211         End Sub
17212         
17213         <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
17214          Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0")> _
17215         Private Sub InitCommandCollection()
17216             Me._commandCollection = New Global.System.Data.SqlClient.SqlCommand(0) {}
17217             Me._commandCollection(0) = New Global.System.Data.SqlClient.SqlCommand()
17218             Me._commandCollection(0).Connection = Me.Connection
17219             Me._commandCollection(0).CommandText = "SELECT S_ID, ServiceCode, CustomerID, ServiceType, ServiceCreationDate, ItemDescr"& _
17220                 "iption, ProblemDescription, ChargesQuote, AdvanceDeposit, EstimatedRepairDate, R"& _
17221                 "emarks, Status FROM dbo.Service"
17222             Me._commandCollection(0).CommandType = Global.System.Data.CommandType.Text
17223         End Sub
17224         
17225         <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
17226          Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0"), _
17227          Global.System.ComponentModel.Design.HelpKeywordAttribute("vs.data.TableAdapter"), _
17228          Global.System.ComponentModel.DataObjectMethodAttribute(Global.System.ComponentModel.DataObjectMethodType.Fill, true)> _
17229         Public Overloads Overridable Function Fill(ByVal dataTable As SIS_DBDataSet.ServiceDataTable) As Integer
17230             Me.Adapter.SelectCommand = Me.CommandCollection(0)
17231             If (Me.ClearBeforeFill = true) Then
17232                 dataTable.Clear
17233             End If
17234             Dim returnValue As Integer = Me.Adapter.Fill(dataTable)
17235             Return returnValue
17236         End Function
17237         
17238         <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
17239          Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0"), _
17240          Global.System.ComponentModel.Design.HelpKeywordAttribute("vs.data.TableAdapter"), _
17241          Global.System.ComponentModel.DataObjectMethodAttribute(Global.System.ComponentModel.DataObjectMethodType.[Select], true)> _
17242         Public Overloads Overridable Function GetData() As SIS_DBDataSet.ServiceDataTable
17243             Me.Adapter.SelectCommand = Me.CommandCollection(0)
17244             Dim dataTable As SIS_DBDataSet.ServiceDataTable = New SIS_DBDataSet.ServiceDataTable()
17245             Me.Adapter.Fill(dataTable)
17246             Return dataTable
17247         End Function
17248         
17249         <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
17250          Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0"), _
17251          Global.System.ComponentModel.Design.HelpKeywordAttribute("vs.data.TableAdapter")> _
17252         Public Overloads Overridable Function Update(ByVal dataTable As SIS_DBDataSet.ServiceDataTable) As Integer
17253             Return Me.Adapter.Update(dataTable)
17254         End Function
17255         
17256         <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
17257          Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0"), _
17258          Global.System.ComponentModel.Design.HelpKeywordAttribute("vs.data.TableAdapter")> _
17259         Public Overloads Overridable Function Update(ByVal dataSet As SIS_DBDataSet) As Integer
17260             Return Me.Adapter.Update(dataSet, "Service")
17261         End Function
17262         
17263         <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
17264          Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0"), _
17265          Global.System.ComponentModel.Design.HelpKeywordAttribute("vs.data.TableAdapter")> _
17266         Public Overloads Overridable Function Update(ByVal dataRow As Global.System.Data.DataRow) As Integer
17267             Return Me.Adapter.Update(New Global.System.Data.DataRow() {dataRow})
17268         End Function
17269         
17270         <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
17271          Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0"), _
17272          Global.System.ComponentModel.Design.HelpKeywordAttribute("vs.data.TableAdapter")> _
17273         Public Overloads Overridable Function Update(ByVal dataRows() As Global.System.Data.DataRow) As Integer
17274             Return Me.Adapter.Update(dataRows)
17275         End Function
17276         
17277         <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
17278          Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0"), _
17279          Global.System.ComponentModel.Design.HelpKeywordAttribute("vs.data.TableAdapter"), _
17280          Global.System.ComponentModel.DataObjectMethodAttribute(Global.System.ComponentModel.DataObjectMethodType.Delete, true)> _
17281         Public Overloads Overridable Function Delete(ByVal Original_S_ID As Integer, ByVal Original_ServiceCode As String, ByVal Original_CustomerID As Integer, ByVal Original_ServiceType As String, ByVal Original_ServiceCreationDate As Date, ByVal Original_ChargesQuote As Decimal, ByVal Original_AdvanceDeposit As Decimal, ByVal Original_EstimatedRepairDate As Date, ByVal Original_Status As String) As Integer
17282             Me.Adapter.DeleteCommand.Parameters(0).Value = CType(Original_S_ID,Integer)
17283             If (Original_ServiceCode Is Nothing) Then
17284                 Throw New Global.System.ArgumentNullException("Original_ServiceCode")
17285             Else
17286                 Me.Adapter.DeleteCommand.Parameters(1).Value = CType(Original_ServiceCode,String)
17287             End If
17288             Me.Adapter.DeleteCommand.Parameters(2).Value = CType(Original_CustomerID,Integer)
17289             If (Original_ServiceType Is Nothing) Then
17290                 Me.Adapter.DeleteCommand.Parameters(3).Value = CType(1,Object)
17291                 Me.Adapter.DeleteCommand.Parameters(4).Value = Global.System.DBNull.Value
17292             Else
17293                 Me.Adapter.DeleteCommand.Parameters(3).Value = CType(0,Object)
17294                 Me.Adapter.DeleteCommand.Parameters(4).Value = CType(Original_ServiceType,String)
17295             End If
17296             Me.Adapter.DeleteCommand.Parameters(5).Value = CType(Original_ServiceCreationDate,Date)
17297             Me.Adapter.DeleteCommand.Parameters(6).Value = CType(Original_ChargesQuote,Decimal)
17298             Me.Adapter.DeleteCommand.Parameters(7).Value = CType(Original_AdvanceDeposit,Decimal)
17299             Me.Adapter.DeleteCommand.Parameters(8).Value = CType(Original_EstimatedRepairDate,Date)
17300             If (Original_Status Is Nothing) Then
17301                 Throw New Global.System.ArgumentNullException("Original_Status")
17302             Else
17303                 Me.Adapter.DeleteCommand.Parameters(9).Value = CType(Original_Status,String)
17304             End If
17305             Dim previousConnectionState As Global.System.Data.ConnectionState = Me.Adapter.DeleteCommand.Connection.State
17306             If ((Me.Adapter.DeleteCommand.Connection.State And Global.System.Data.ConnectionState.Open) _
17307                         <> Global.System.Data.ConnectionState.Open) Then
17308                 Me.Adapter.DeleteCommand.Connection.Open
17309             End If
17310             Try
17311                 Dim returnValue As Integer = Me.Adapter.DeleteCommand.ExecuteNonQuery
17312                 Return returnValue
17313             Finally
17314                 If (previousConnectionState = Global.System.Data.ConnectionState.Closed) Then
17315                     Me.Adapter.DeleteCommand.Connection.Close
17316                 End If
17317             End Try
17318         End Function
17319         
17320         <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
17321          Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0"), _
17322          Global.System.ComponentModel.Design.HelpKeywordAttribute("vs.data.TableAdapter"), _
17323          Global.System.ComponentModel.DataObjectMethodAttribute(Global.System.ComponentModel.DataObjectMethodType.Insert, true)> _
17324         Public Overloads Overridable Function Insert(ByVal S_ID As Integer, ByVal ServiceCode As String, ByVal CustomerID As Integer, ByVal ServiceType As String, ByVal ServiceCreationDate As Date, ByVal ItemDescription As String, ByVal ProblemDescription As String, ByVal ChargesQuote As Decimal, ByVal AdvanceDeposit As Decimal, ByVal EstimatedRepairDate As Date, ByVal Remarks As String, ByVal Status As String) As Integer
17325             Me.Adapter.InsertCommand.Parameters(0).Value = CType(S_ID,Integer)
17326             If (ServiceCode Is Nothing) Then
17327                 Throw New Global.System.ArgumentNullException("ServiceCode")
17328             Else
17329                 Me.Adapter.InsertCommand.Parameters(1).Value = CType(ServiceCode,String)
17330             End If
17331             Me.Adapter.InsertCommand.Parameters(2).Value = CType(CustomerID,Integer)
17332             If (ServiceType Is Nothing) Then
17333                 Me.Adapter.InsertCommand.Parameters(3).Value = Global.System.DBNull.Value
17334             Else
17335                 Me.Adapter.InsertCommand.Parameters(3).Value = CType(ServiceType,String)
17336             End If
17337             Me.Adapter.InsertCommand.Parameters(4).Value = CType(ServiceCreationDate,Date)
17338             If (ItemDescription Is Nothing) Then
17339                 Throw New Global.System.ArgumentNullException("ItemDescription")
17340             Else
17341                 Me.Adapter.InsertCommand.Parameters(5).Value = CType(ItemDescription,String)
17342             End If
17343             If (ProblemDescription Is Nothing) Then
17344                 Me.Adapter.InsertCommand.Parameters(6).Value = Global.System.DBNull.Value
17345             Else
17346                 Me.Adapter.InsertCommand.Parameters(6).Value = CType(ProblemDescription,String)
17347             End If
17348             Me.Adapter.InsertCommand.Parameters(7).Value = CType(ChargesQuote,Decimal)
17349             Me.Adapter.InsertCommand.Parameters(8).Value = CType(AdvanceDeposit,Decimal)
17350             Me.Adapter.InsertCommand.Parameters(9).Value = CType(EstimatedRepairDate,Date)
17351             If (Remarks Is Nothing) Then
17352                 Me.Adapter.InsertCommand.Parameters(10).Value = Global.System.DBNull.Value
17353             Else
17354                 Me.Adapter.InsertCommand.Parameters(10).Value = CType(Remarks,String)
17355             End If
17356             If (Status Is Nothing) Then
17357                 Throw New Global.System.ArgumentNullException("Status")
17358             Else
17359                 Me.Adapter.InsertCommand.Parameters(11).Value = CType(Status,String)
17360             End If
17361             Dim previousConnectionState As Global.System.Data.ConnectionState = Me.Adapter.InsertCommand.Connection.State
17362             If ((Me.Adapter.InsertCommand.Connection.State And Global.System.Data.ConnectionState.Open) _
17363                         <> Global.System.Data.ConnectionState.Open) Then
17364                 Me.Adapter.InsertCommand.Connection.Open
17365             End If
17366             Try
17367                 Dim returnValue As Integer = Me.Adapter.InsertCommand.ExecuteNonQuery
17368                 Return returnValue
17369             Finally
17370                 If (previousConnectionState = Global.System.Data.ConnectionState.Closed) Then
17371                     Me.Adapter.InsertCommand.Connection.Close
17372                 End If
17373             End Try
17374         End Function
17375         
17376         <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
17377          Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0"), _
17378          Global.System.ComponentModel.Design.HelpKeywordAttribute("vs.data.TableAdapter"), _
17379          Global.System.ComponentModel.DataObjectMethodAttribute(Global.System.ComponentModel.DataObjectMethodType.Update, true)> _
17380         Public Overloads Overridable Function Update( _
17381                     ByVal S_ID As Integer, _
17382                     ByVal ServiceCode As String, _
17383                     ByVal CustomerID As Integer, _
17384                     ByVal ServiceType As String, _
17385                     ByVal ServiceCreationDate As Date, _
17386                     ByVal ItemDescription As String, _
17387                     ByVal ProblemDescription As String, _
17388                     ByVal ChargesQuote As Decimal, _
17389                     ByVal AdvanceDeposit As Decimal, _
17390                     ByVal EstimatedRepairDate As Date, _
17391                     ByVal Remarks As String, _
17392                     ByVal Status As String, _
17393                     ByVal Original_S_ID As Integer, _
17394                     ByVal Original_ServiceCode As String, _
17395                     ByVal Original_CustomerID As Integer, _
17396                     ByVal Original_ServiceType As String, _
17397                     ByVal Original_ServiceCreationDate As Date, _
17398                     ByVal Original_ChargesQuote As Decimal, _
17399                     ByVal Original_AdvanceDeposit As Decimal, _
17400                     ByVal Original_EstimatedRepairDate As Date, _
17401                     ByVal Original_Status As String) As Integer
17402             Me.Adapter.UpdateCommand.Parameters(0).Value = CType(S_ID,Integer)
17403             If (ServiceCode Is Nothing) Then
17404                 Throw New Global.System.ArgumentNullException("ServiceCode")
17405             Else
17406                 Me.Adapter.UpdateCommand.Parameters(1).Value = CType(ServiceCode,String)
17407             End If
17408             Me.Adapter.UpdateCommand.Parameters(2).Value = CType(CustomerID,Integer)
17409             If (ServiceType Is Nothing) Then
17410                 Me.Adapter.UpdateCommand.Parameters(3).Value = Global.System.DBNull.Value
17411             Else
17412                 Me.Adapter.UpdateCommand.Parameters(3).Value = CType(ServiceType,String)
17413             End If
17414             Me.Adapter.UpdateCommand.Parameters(4).Value = CType(ServiceCreationDate,Date)
17415             If (ItemDescription Is Nothing) Then
17416                 Throw New Global.System.ArgumentNullException("ItemDescription")
17417             Else
17418                 Me.Adapter.UpdateCommand.Parameters(5).Value = CType(ItemDescription,String)
17419             End If
17420             If (ProblemDescription Is Nothing) Then
17421                 Me.Adapter.UpdateCommand.Parameters(6).Value = Global.System.DBNull.Value
17422             Else
17423                 Me.Adapter.UpdateCommand.Parameters(6).Value = CType(ProblemDescription,String)
17424             End If
17425             Me.Adapter.UpdateCommand.Parameters(7).Value = CType(ChargesQuote,Decimal)
17426             Me.Adapter.UpdateCommand.Parameters(8).Value = CType(AdvanceDeposit,Decimal)
17427             Me.Adapter.UpdateCommand.Parameters(9).Value = CType(EstimatedRepairDate,Date)
17428             If (Remarks Is Nothing) Then
17429                 Me.Adapter.UpdateCommand.Parameters(10).Value = Global.System.DBNull.Value
17430             Else
17431                 Me.Adapter.UpdateCommand.Parameters(10).Value = CType(Remarks,String)
17432             End If
17433             If (Status Is Nothing) Then
17434                 Throw New Global.System.ArgumentNullException("Status")
17435             Else
17436                 Me.Adapter.UpdateCommand.Parameters(11).Value = CType(Status,String)
17437             End If
17438             Me.Adapter.UpdateCommand.Parameters(12).Value = CType(Original_S_ID,Integer)
17439             If (Original_ServiceCode Is Nothing) Then
17440                 Throw New Global.System.ArgumentNullException("Original_ServiceCode")
17441             Else
17442                 Me.Adapter.UpdateCommand.Parameters(13).Value = CType(Original_ServiceCode,String)
17443             End If
17444             Me.Adapter.UpdateCommand.Parameters(14).Value = CType(Original_CustomerID,Integer)
17445             If (Original_ServiceType Is Nothing) Then
17446                 Me.Adapter.UpdateCommand.Parameters(15).Value = CType(1,Object)
17447                 Me.Adapter.UpdateCommand.Parameters(16).Value = Global.System.DBNull.Value
17448             Else
17449                 Me.Adapter.UpdateCommand.Parameters(15).Value = CType(0,Object)
17450                 Me.Adapter.UpdateCommand.Parameters(16).Value = CType(Original_ServiceType,String)
17451             End If
17452             Me.Adapter.UpdateCommand.Parameters(17).Value = CType(Original_ServiceCreationDate,Date)
17453             Me.Adapter.UpdateCommand.Parameters(18).Value = CType(Original_ChargesQuote,Decimal)
17454             Me.Adapter.UpdateCommand.Parameters(19).Value = CType(Original_AdvanceDeposit,Decimal)
17455             Me.Adapter.UpdateCommand.Parameters(20).Value = CType(Original_EstimatedRepairDate,Date)
17456             If (Original_Status Is Nothing) Then
17457                 Throw New Global.System.ArgumentNullException("Original_Status")
17458             Else
17459                 Me.Adapter.UpdateCommand.Parameters(21).Value = CType(Original_Status,String)
17460             End If
17461             Dim previousConnectionState As Global.System.Data.ConnectionState = Me.Adapter.UpdateCommand.Connection.State
17462             If ((Me.Adapter.UpdateCommand.Connection.State And Global.System.Data.ConnectionState.Open) _
17463                         <> Global.System.Data.ConnectionState.Open) Then
17464                 Me.Adapter.UpdateCommand.Connection.Open
17465             End If
17466             Try
17467                 Dim returnValue As Integer = Me.Adapter.UpdateCommand.ExecuteNonQuery
17468                 Return returnValue
17469             Finally
17470                 If (previousConnectionState = Global.System.Data.ConnectionState.Closed) Then
17471                     Me.Adapter.UpdateCommand.Connection.Close
17472                 End If
17473             End Try
17474         End Function
17475         
17476         <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
17477          Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0"), _
17478          Global.System.ComponentModel.Design.HelpKeywordAttribute("vs.data.TableAdapter"), _
17479          Global.System.ComponentModel.DataObjectMethodAttribute(Global.System.ComponentModel.DataObjectMethodType.Update, true)> _
17480         Public Overloads Overridable Function Update( _
17481                     ByVal ServiceCode As String, _
17482                     ByVal CustomerID As Integer, _
17483                     ByVal ServiceType As String, _
17484                     ByVal ServiceCreationDate As Date, _
17485                     ByVal ItemDescription As String, _
17486                     ByVal ProblemDescription As String, _
17487                     ByVal ChargesQuote As Decimal, _
17488                     ByVal AdvanceDeposit As Decimal, _
17489                     ByVal EstimatedRepairDate As Date, _
17490                     ByVal Remarks As String, _
17491                     ByVal Status As String, _
17492                     ByVal Original_S_ID As Integer, _
17493                     ByVal Original_ServiceCode As String, _
17494                     ByVal Original_CustomerID As Integer, _
17495                     ByVal Original_ServiceType As String, _
17496                     ByVal Original_ServiceCreationDate As Date, _
17497                     ByVal Original_ChargesQuote As Decimal, _
17498                     ByVal Original_AdvanceDeposit As Decimal, _
17499                     ByVal Original_EstimatedRepairDate As Date, _
17500                     ByVal Original_Status As String) As Integer
17501             Return Me.Update(Original_S_ID, ServiceCode, CustomerID, ServiceType, ServiceCreationDate, ItemDescription, ProblemDescription, ChargesQuote, AdvanceDeposit, EstimatedRepairDate, Remarks, Status, Original_S_ID, Original_ServiceCode, Original_CustomerID, Original_ServiceType, Original_ServiceCreationDate, Original_ChargesQuote, Original_AdvanceDeposit, Original_EstimatedRepairDate, Original_Status)
17502         End Function
17503     End Class
17504     
17505     '''<summary>
17506     '''Represents the connection and commands used to retrieve and save data.
17507     '''</summary>
17508     <Global.System.ComponentModel.DesignerCategoryAttribute("code"), _
17509      Global.System.ComponentModel.ToolboxItem(true), _
17510      Global.System.ComponentModel.DataObjectAttribute(true), _
17511      Global.System.ComponentModel.DesignerAttribute("Microsoft.VSDesigner.DataSource.Design.TableAdapterDesigner, Microsoft.VSDesigner"& _
17512         ", Version=10.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a"), _
17513      Global.System.ComponentModel.Design.HelpKeywordAttribute("vs.data.TableAdapter")> _
17514     Partial Public Class StockTableAdapter
17515         Inherits Global.System.ComponentModel.Component
17516         
17517         Private WithEvents _adapter As Global.System.Data.SqlClient.SqlDataAdapter
17518         
17519         Private _connection As Global.System.Data.SqlClient.SqlConnection
17520         
17521         Private _transaction As Global.System.Data.SqlClient.SqlTransaction
17522         
17523         Private _commandCollection() As Global.System.Data.SqlClient.SqlCommand
17524         
17525         Private _clearBeforeFill As Boolean
17526         
17527         <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
17528          Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0")> _
17529         Public Sub New()
17530             MyBase.New
17531             Me.ClearBeforeFill = true
17532         End Sub
17533         
17534         <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
17535          Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0")> _
17536         Protected Friend ReadOnly Property Adapter() As Global.System.Data.SqlClient.SqlDataAdapter
17537             Get
17538                 If (Me._adapter Is Nothing) Then
17539                     Me.InitAdapter
17540                 End If
17541                 Return Me._adapter
17542             End Get
17543         End Property
17544         
17545         <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
17546          Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0")> _
17547         Friend Property Connection() As Global.System.Data.SqlClient.SqlConnection
17548             Get
17549                 If (Me._connection Is Nothing) Then
17550                     Me.InitConnection
17551                 End If
17552                 Return Me._connection
17553             End Get
17554             Set
17555                 Me._connection = value
17556                 If (Not (Me.Adapter.InsertCommand) Is Nothing) Then
17557                     Me.Adapter.InsertCommand.Connection = value
17558                 End If
17559                 If (Not (Me.Adapter.DeleteCommand) Is Nothing) Then
17560                     Me.Adapter.DeleteCommand.Connection = value
17561                 End If
17562                 If (Not (Me.Adapter.UpdateCommand) Is Nothing) Then
17563                     Me.Adapter.UpdateCommand.Connection = value
17564                 End If
17565                 Dim i As Integer = 0
17566                 Do While (i < Me.CommandCollection.Length)
17567                     If (Not (Me.CommandCollection(i)) Is Nothing) Then
17568                         CType(Me.CommandCollection(i),Global.System.Data.SqlClient.SqlCommand).Connection = value
17569                     End If
17570                     i = (i + 1)
17571                 Loop
17572             End Set
17573         End Property
17574         
17575         <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
17576          Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0")> _
17577         Friend Property Transaction() As Global.System.Data.SqlClient.SqlTransaction
17578             Get
17579                 Return Me._transaction
17580             End Get
17581             Set
17582                 Me._transaction = value
17583                 Dim i As Integer = 0
17584                 Do While (i < Me.CommandCollection.Length)
17585                     Me.CommandCollection(i).Transaction = Me._transaction
17586                     i = (i + 1)
17587                 Loop
17588                 If ((Not (Me.Adapter) Is Nothing) _
17589                             AndAlso (Not (Me.Adapter.DeleteCommand) Is Nothing)) Then
17590                     Me.Adapter.DeleteCommand.Transaction = Me._transaction
17591                 End If
17592                 If ((Not (Me.Adapter) Is Nothing) _
17593                             AndAlso (Not (Me.Adapter.InsertCommand) Is Nothing)) Then
17594                     Me.Adapter.InsertCommand.Transaction = Me._transaction
17595                 End If
17596                 If ((Not (Me.Adapter) Is Nothing) _
17597                             AndAlso (Not (Me.Adapter.UpdateCommand) Is Nothing)) Then
17598                     Me.Adapter.UpdateCommand.Transaction = Me._transaction
17599                 End If
17600             End Set
17601         End Property
17602         
17603         <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
17604          Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0")> _
17605         Protected ReadOnly Property CommandCollection() As Global.System.Data.SqlClient.SqlCommand()
17606             Get
17607                 If (Me._commandCollection Is Nothing) Then
17608                     Me.InitCommandCollection
17609                 End If
17610                 Return Me._commandCollection
17611             End Get
17612         End Property
17613         
17614         <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
17615          Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0")> _
17616         Public Property ClearBeforeFill() As Boolean
17617             Get
17618                 Return Me._clearBeforeFill
17619             End Get
17620             Set
17621                 Me._clearBeforeFill = value
17622             End Set
17623         End Property
17624         
17625         <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
17626          Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0")> _
17627         Private Sub InitAdapter()
17628             Me._adapter = New Global.System.Data.SqlClient.SqlDataAdapter()
17629             Dim tableMapping As Global.System.Data.Common.DataTableMapping = New Global.System.Data.Common.DataTableMapping()
17630             tableMapping.SourceTable = "Table"
17631             tableMapping.DataSetTable = "Stock"
17632             tableMapping.ColumnMappings.Add("ST_ID", "ST_ID")
17633             tableMapping.ColumnMappings.Add("Stock_ID", "Stock_ID")
17634             tableMapping.ColumnMappings.Add("Date", "Date")
17635             tableMapping.ColumnMappings.Add("SupplierID", "SupplierID")
17636             tableMapping.ColumnMappings.Add("GrandTotal", "GrandTotal")
17637             tableMapping.ColumnMappings.Add("TotalPayment", "TotalPayment")
17638             tableMapping.ColumnMappings.Add("PaymentDue", "PaymentDue")
17639             tableMapping.ColumnMappings.Add("Remarks", "Remarks")
17640             Me._adapter.TableMappings.Add(tableMapping)
17641             Me._adapter.DeleteCommand = New Global.System.Data.SqlClient.SqlCommand()
17642             Me._adapter.DeleteCommand.Connection = Me.Connection
17643             Me._adapter.DeleteCommand.CommandText = "DELETE FROM [dbo].[Stock] WHERE (([ST_ID] = @Original_ST_ID) AND ([Stock_ID] = @O"& _
17644                 "riginal_Stock_ID) AND ([Date] = @Original_Date) AND ([SupplierID] = @Original_Su"& _
17645                 "pplierID) AND ([GrandTotal] = @Original_GrandTotal) AND ([TotalPayment] = @Origi"& _
17646                 "nal_TotalPayment) AND ([PaymentDue] = @Original_PaymentDue))"
17647             Me._adapter.DeleteCommand.CommandType = Global.System.Data.CommandType.Text
17648             Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_ST_ID", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "ST_ID", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", ""))
17649             Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_Stock_ID", Global.System.Data.SqlDbType.NChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "Stock_ID", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", ""))
17650             Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_Date", Global.System.Data.SqlDbType.DateTime, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "Date", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", ""))
17651             Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_SupplierID", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "SupplierID", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", ""))
17652             Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_GrandTotal", Global.System.Data.SqlDbType.[Decimal], 0, Global.System.Data.ParameterDirection.Input, 18, 2, "GrandTotal", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", ""))
17653             Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_TotalPayment", Global.System.Data.SqlDbType.[Decimal], 0, Global.System.Data.ParameterDirection.Input, 18, 2, "TotalPayment", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", ""))
17654             Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_PaymentDue", Global.System.Data.SqlDbType.[Decimal], 0, Global.System.Data.ParameterDirection.Input, 18, 2, "PaymentDue", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", ""))
17655             Me._adapter.InsertCommand = New Global.System.Data.SqlClient.SqlCommand()
17656             Me._adapter.InsertCommand.Connection = Me.Connection
17657             Me._adapter.InsertCommand.CommandText = "INSERT INTO [dbo].[Stock] ([ST_ID], [Stock_ID], [Date], [SupplierID], [GrandTotal"& _
17658                 "], [TotalPayment], [PaymentDue], [Remarks]) VALUES (@ST_ID, @Stock_ID, @Date, @S"& _
17659                 "upplierID, @GrandTotal, @TotalPayment, @PaymentDue, @Remarks);"&Global.Microsoft.VisualBasic.ChrW(13)&Global.Microsoft.VisualBasic.ChrW(10)&"SELECT ST_ID, St"& _
17660                 "ock_ID, Date, SupplierID, GrandTotal, TotalPayment, PaymentDue, Remarks FROM Sto"& _
17661                 "ck WHERE (ST_ID = @ST_ID)"
17662             Me._adapter.InsertCommand.CommandType = Global.System.Data.CommandType.Text
17663             Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@ST_ID", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "ST_ID", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", ""))
17664             Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Stock_ID", Global.System.Data.SqlDbType.NChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "Stock_ID", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", ""))
17665             Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Date", Global.System.Data.SqlDbType.DateTime, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "Date", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", ""))
17666             Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@SupplierID", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "SupplierID", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", ""))
17667             Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@GrandTotal", Global.System.Data.SqlDbType.[Decimal], 0, Global.System.Data.ParameterDirection.Input, 18, 2, "GrandTotal", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", ""))
17668             Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@TotalPayment", Global.System.Data.SqlDbType.[Decimal], 0, Global.System.Data.ParameterDirection.Input, 18, 2, "TotalPayment", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", ""))
17669             Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@PaymentDue", Global.System.Data.SqlDbType.[Decimal], 0, Global.System.Data.ParameterDirection.Input, 18, 2, "PaymentDue", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", ""))
17670             Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Remarks", Global.System.Data.SqlDbType.NVarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "Remarks", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", ""))
17671             Me._adapter.UpdateCommand = New Global.System.Data.SqlClient.SqlCommand()
17672             Me._adapter.UpdateCommand.Connection = Me.Connection
17673             Me._adapter.UpdateCommand.CommandText = "UPDATE [dbo].[Stock] SET [ST_ID] = @ST_ID, [Stock_ID] = @Stock_ID, [Date] = @Date"& _
17674                 ", [SupplierID] = @SupplierID, [GrandTotal] = @GrandTotal, [TotalPayment] = @Tota"& _
17675                 "lPayment, [PaymentDue] = @PaymentDue, [Remarks] = @Remarks WHERE (([ST_ID] = @Or"& _
17676                 "iginal_ST_ID) AND ([Stock_ID] = @Original_Stock_ID) AND ([Date] = @Original_Date"& _
17677                 ") AND ([SupplierID] = @Original_SupplierID) AND ([GrandTotal] = @Original_GrandT"& _
17678                 "otal) AND ([TotalPayment] = @Original_TotalPayment) AND ([PaymentDue] = @Origina"& _
17679                 "l_PaymentDue));"&Global.Microsoft.VisualBasic.ChrW(13)&Global.Microsoft.VisualBasic.ChrW(10)&"SELECT ST_ID, Stock_ID, Date, SupplierID, GrandTotal, TotalPaym"& _
17680                 "ent, PaymentDue, Remarks FROM Stock WHERE (ST_ID = @ST_ID)"
17681             Me._adapter.UpdateCommand.CommandType = Global.System.Data.CommandType.Text
17682             Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@ST_ID", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "ST_ID", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", ""))
17683             Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Stock_ID", Global.System.Data.SqlDbType.NChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "Stock_ID", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", ""))
17684             Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Date", Global.System.Data.SqlDbType.DateTime, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "Date", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", ""))
17685             Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@SupplierID", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "SupplierID", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", ""))
17686             Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@GrandTotal", Global.System.Data.SqlDbType.[Decimal], 0, Global.System.Data.ParameterDirection.Input, 18, 2, "GrandTotal", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", ""))
17687             Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@TotalPayment", Global.System.Data.SqlDbType.[Decimal], 0, Global.System.Data.ParameterDirection.Input, 18, 2, "TotalPayment", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", ""))
17688             Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@PaymentDue", Global.System.Data.SqlDbType.[Decimal], 0, Global.System.Data.ParameterDirection.Input, 18, 2, "PaymentDue", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", ""))
17689             Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Remarks", Global.System.Data.SqlDbType.NVarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "Remarks", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", ""))
17690             Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_ST_ID", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "ST_ID", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", ""))
17691             Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_Stock_ID", Global.System.Data.SqlDbType.NChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "Stock_ID", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", ""))
17692             Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_Date", Global.System.Data.SqlDbType.DateTime, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "Date", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", ""))
17693             Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_SupplierID", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "SupplierID", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", ""))
17694             Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_GrandTotal", Global.System.Data.SqlDbType.[Decimal], 0, Global.System.Data.ParameterDirection.Input, 18, 2, "GrandTotal", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", ""))
17695             Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_TotalPayment", Global.System.Data.SqlDbType.[Decimal], 0, Global.System.Data.ParameterDirection.Input, 18, 2, "TotalPayment", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", ""))
17696             Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_PaymentDue", Global.System.Data.SqlDbType.[Decimal], 0, Global.System.Data.ParameterDirection.Input, 18, 2, "PaymentDue", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", ""))
17697         End Sub
17698         
17699         <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
17700          Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0")> _
17701         Private Sub InitConnection()
17702             Me._connection = New Global.System.Data.SqlClient.SqlConnection()
17703             Me._connection.ConnectionString = Global.Sales_and_Inventory_System.My.MySettings.Default.SIS_DBConnectionString1
17704         End Sub
17705         
17706         <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
17707          Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0")> _
17708         Private Sub InitCommandCollection()
17709             Me._commandCollection = New Global.System.Data.SqlClient.SqlCommand(0) {}
17710             Me._commandCollection(0) = New Global.System.Data.SqlClient.SqlCommand()
17711             Me._commandCollection(0).Connection = Me.Connection
17712             Me._commandCollection(0).CommandText = "SELECT ST_ID, Stock_ID, Date, SupplierID, GrandTotal, TotalPayment, PaymentDue, R"& _
17713                 "emarks FROM dbo.Stock"
17714             Me._commandCollection(0).CommandType = Global.System.Data.CommandType.Text
17715         End Sub
17716         
17717         <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
17718          Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0"), _
17719          Global.System.ComponentModel.Design.HelpKeywordAttribute("vs.data.TableAdapter"), _
17720          Global.System.ComponentModel.DataObjectMethodAttribute(Global.System.ComponentModel.DataObjectMethodType.Fill, true)> _
17721         Public Overloads Overridable Function Fill(ByVal dataTable As SIS_DBDataSet.StockDataTable) As Integer
17722             Me.Adapter.SelectCommand = Me.CommandCollection(0)
17723             If (Me.ClearBeforeFill = true) Then
17724                 dataTable.Clear
17725             End If
17726             Dim returnValue As Integer = Me.Adapter.Fill(dataTable)
17727             Return returnValue
17728         End Function
17729         
17730         <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
17731          Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0"), _
17732          Global.System.ComponentModel.Design.HelpKeywordAttribute("vs.data.TableAdapter"), _
17733          Global.System.ComponentModel.DataObjectMethodAttribute(Global.System.ComponentModel.DataObjectMethodType.[Select], true)> _
17734         Public Overloads Overridable Function GetData() As SIS_DBDataSet.StockDataTable
17735             Me.Adapter.SelectCommand = Me.CommandCollection(0)
17736             Dim dataTable As SIS_DBDataSet.StockDataTable = New SIS_DBDataSet.StockDataTable()
17737             Me.Adapter.Fill(dataTable)
17738             Return dataTable
17739         End Function
17740         
17741         <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
17742          Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0"), _
17743          Global.System.ComponentModel.Design.HelpKeywordAttribute("vs.data.TableAdapter")> _
17744         Public Overloads Overridable Function Update(ByVal dataTable As SIS_DBDataSet.StockDataTable) As Integer
17745             Return Me.Adapter.Update(dataTable)
17746         End Function
17747         
17748         <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
17749          Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0"), _
17750          Global.System.ComponentModel.Design.HelpKeywordAttribute("vs.data.TableAdapter")> _
17751         Public Overloads Overridable Function Update(ByVal dataSet As SIS_DBDataSet) As Integer
17752             Return Me.Adapter.Update(dataSet, "Stock")
17753         End Function
17754         
17755         <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
17756          Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0"), _
17757          Global.System.ComponentModel.Design.HelpKeywordAttribute("vs.data.TableAdapter")> _
17758         Public Overloads Overridable Function Update(ByVal dataRow As Global.System.Data.DataRow) As Integer
17759             Return Me.Adapter.Update(New Global.System.Data.DataRow() {dataRow})
17760         End Function
17761         
17762         <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
17763          Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0"), _
17764          Global.System.ComponentModel.Design.HelpKeywordAttribute("vs.data.TableAdapter")> _
17765         Public Overloads Overridable Function Update(ByVal dataRows() As Global.System.Data.DataRow) As Integer
17766             Return Me.Adapter.Update(dataRows)
17767         End Function
17768         
17769         <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
17770          Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0"), _
17771          Global.System.ComponentModel.Design.HelpKeywordAttribute("vs.data.TableAdapter"), _
17772          Global.System.ComponentModel.DataObjectMethodAttribute(Global.System.ComponentModel.DataObjectMethodType.Delete, true)> _
17773         Public Overloads Overridable Function Delete(ByVal Original_ST_ID As Integer, ByVal Original_Stock_ID As String, ByVal Original_Date As Date, ByVal Original_SupplierID As Integer, ByVal Original_GrandTotal As Decimal, ByVal Original_TotalPayment As Decimal, ByVal Original_PaymentDue As Decimal) As Integer
17774             Me.Adapter.DeleteCommand.Parameters(0).Value = CType(Original_ST_ID,Integer)
17775             If (Original_Stock_ID Is Nothing) Then
17776                 Throw New Global.System.ArgumentNullException("Original_Stock_ID")
17777             Else
17778                 Me.Adapter.DeleteCommand.Parameters(1).Value = CType(Original_Stock_ID,String)
17779             End If
17780             Me.Adapter.DeleteCommand.Parameters(2).Value = CType(Original_Date,Date)
17781             Me.Adapter.DeleteCommand.Parameters(3).Value = CType(Original_SupplierID,Integer)
17782             Me.Adapter.DeleteCommand.Parameters(4).Value = CType(Original_GrandTotal,Decimal)
17783             Me.Adapter.DeleteCommand.Parameters(5).Value = CType(Original_TotalPayment,Decimal)
17784             Me.Adapter.DeleteCommand.Parameters(6).Value = CType(Original_PaymentDue,Decimal)
17785             Dim previousConnectionState As Global.System.Data.ConnectionState = Me.Adapter.DeleteCommand.Connection.State
17786             If ((Me.Adapter.DeleteCommand.Connection.State And Global.System.Data.ConnectionState.Open) _
17787                         <> Global.System.Data.ConnectionState.Open) Then
17788                 Me.Adapter.DeleteCommand.Connection.Open
17789             End If
17790             Try
17791                 Dim returnValue As Integer = Me.Adapter.DeleteCommand.ExecuteNonQuery
17792                 Return returnValue
17793             Finally
17794                 If (previousConnectionState = Global.System.Data.ConnectionState.Closed) Then
17795                     Me.Adapter.DeleteCommand.Connection.Close
17796                 End If
17797             End Try
17798         End Function
17799         
17800         <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
17801          Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0"), _
17802          Global.System.ComponentModel.Design.HelpKeywordAttribute("vs.data.TableAdapter"), _
17803          Global.System.ComponentModel.DataObjectMethodAttribute(Global.System.ComponentModel.DataObjectMethodType.Insert, true)> _
17804         Public Overloads Overridable Function Insert(ByVal ST_ID As Integer, ByVal Stock_ID As String, ByVal _Date As Date, ByVal SupplierID As Integer, ByVal GrandTotal As Decimal, ByVal TotalPayment As Decimal, ByVal PaymentDue As Decimal, ByVal Remarks As String) As Integer
17805             Me.Adapter.InsertCommand.Parameters(0).Value = CType(ST_ID,Integer)
17806             If (Stock_ID Is Nothing) Then
17807                 Throw New Global.System.ArgumentNullException("Stock_ID")
17808             Else
17809                 Me.Adapter.InsertCommand.Parameters(1).Value = CType(Stock_ID,String)
17810             End If
17811             Me.Adapter.InsertCommand.Parameters(2).Value = CType(_Date,Date)
17812             Me.Adapter.InsertCommand.Parameters(3).Value = CType(SupplierID,Integer)
17813             Me.Adapter.InsertCommand.Parameters(4).Value = CType(GrandTotal,Decimal)
17814             Me.Adapter.InsertCommand.Parameters(5).Value = CType(TotalPayment,Decimal)
17815             Me.Adapter.InsertCommand.Parameters(6).Value = CType(PaymentDue,Decimal)
17816             If (Remarks Is Nothing) Then
17817                 Me.Adapter.InsertCommand.Parameters(7).Value = Global.System.DBNull.Value
17818             Else
17819                 Me.Adapter.InsertCommand.Parameters(7).Value = CType(Remarks,String)
17820             End If
17821             Dim previousConnectionState As Global.System.Data.ConnectionState = Me.Adapter.InsertCommand.Connection.State
17822             If ((Me.Adapter.InsertCommand.Connection.State And Global.System.Data.ConnectionState.Open) _
17823                         <> Global.System.Data.ConnectionState.Open) Then
17824                 Me.Adapter.InsertCommand.Connection.Open
17825             End If
17826             Try
17827                 Dim returnValue As Integer = Me.Adapter.InsertCommand.ExecuteNonQuery
17828                 Return returnValue
17829             Finally
17830                 If (previousConnectionState = Global.System.Data.ConnectionState.Closed) Then
17831                     Me.Adapter.InsertCommand.Connection.Close
17832                 End If
17833             End Try
17834         End Function
17835         
17836         <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
17837          Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0"), _
17838          Global.System.ComponentModel.Design.HelpKeywordAttribute("vs.data.TableAdapter"), _
17839          Global.System.ComponentModel.DataObjectMethodAttribute(Global.System.ComponentModel.DataObjectMethodType.Update, true)> _
17840         Public Overloads Overridable Function Update(ByVal ST_ID As Integer, ByVal Stock_ID As String, ByVal _Date As Date, ByVal SupplierID As Integer, ByVal GrandTotal As Decimal, ByVal TotalPayment As Decimal, ByVal PaymentDue As Decimal, ByVal Remarks As String, ByVal Original_ST_ID As Integer, ByVal Original_Stock_ID As String, ByVal Original_Date As Date, ByVal Original_SupplierID As Integer, ByVal Original_GrandTotal As Decimal, ByVal Original_TotalPayment As Decimal, ByVal Original_PaymentDue As Decimal) As Integer
17841             Me.Adapter.UpdateCommand.Parameters(0).Value = CType(ST_ID,Integer)
17842             If (Stock_ID Is Nothing) Then
17843                 Throw New Global.System.ArgumentNullException("Stock_ID")
17844             Else
17845                 Me.Adapter.UpdateCommand.Parameters(1).Value = CType(Stock_ID,String)
17846             End If
17847             Me.Adapter.UpdateCommand.Parameters(2).Value = CType(_Date,Date)
17848             Me.Adapter.UpdateCommand.Parameters(3).Value = CType(SupplierID,Integer)
17849             Me.Adapter.UpdateCommand.Parameters(4).Value = CType(GrandTotal,Decimal)
17850             Me.Adapter.UpdateCommand.Parameters(5).Value = CType(TotalPayment,Decimal)
17851             Me.Adapter.UpdateCommand.Parameters(6).Value = CType(PaymentDue,Decimal)
17852             If (Remarks Is Nothing) Then
17853                 Me.Adapter.UpdateCommand.Parameters(7).Value = Global.System.DBNull.Value
17854             Else
17855                 Me.Adapter.UpdateCommand.Parameters(7).Value = CType(Remarks,String)
17856             End If
17857             Me.Adapter.UpdateCommand.Parameters(8).Value = CType(Original_ST_ID,Integer)
17858             If (Original_Stock_ID Is Nothing) Then
17859                 Throw New Global.System.ArgumentNullException("Original_Stock_ID")
17860             Else
17861                 Me.Adapter.UpdateCommand.Parameters(9).Value = CType(Original_Stock_ID,String)
17862             End If
17863             Me.Adapter.UpdateCommand.Parameters(10).Value = CType(Original_Date,Date)
17864             Me.Adapter.UpdateCommand.Parameters(11).Value = CType(Original_SupplierID,Integer)
17865             Me.Adapter.UpdateCommand.Parameters(12).Value = CType(Original_GrandTotal,Decimal)
17866             Me.Adapter.UpdateCommand.Parameters(13).Value = CType(Original_TotalPayment,Decimal)
17867             Me.Adapter.UpdateCommand.Parameters(14).Value = CType(Original_PaymentDue,Decimal)
17868             Dim previousConnectionState As Global.System.Data.ConnectionState = Me.Adapter.UpdateCommand.Connection.State
17869             If ((Me.Adapter.UpdateCommand.Connection.State And Global.System.Data.ConnectionState.Open) _
17870                         <> Global.System.Data.ConnectionState.Open) Then
17871                 Me.Adapter.UpdateCommand.Connection.Open
17872             End If
17873             Try
17874                 Dim returnValue As Integer = Me.Adapter.UpdateCommand.ExecuteNonQuery
17875                 Return returnValue
17876             Finally
17877                 If (previousConnectionState = Global.System.Data.ConnectionState.Closed) Then
17878                     Me.Adapter.UpdateCommand.Connection.Close
17879                 End If
17880             End Try
17881         End Function
17882         
17883         <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
17884          Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0"), _
17885          Global.System.ComponentModel.Design.HelpKeywordAttribute("vs.data.TableAdapter"), _
17886          Global.System.ComponentModel.DataObjectMethodAttribute(Global.System.ComponentModel.DataObjectMethodType.Update, true)> _
17887         Public Overloads Overridable Function Update(ByVal Stock_ID As String, ByVal _Date As Date, ByVal SupplierID As Integer, ByVal GrandTotal As Decimal, ByVal TotalPayment As Decimal, ByVal PaymentDue As Decimal, ByVal Remarks As String, ByVal Original_ST_ID As Integer, ByVal Original_Stock_ID As String, ByVal Original_Date As Date, ByVal Original_SupplierID As Integer, ByVal Original_GrandTotal As Decimal, ByVal Original_TotalPayment As Decimal, ByVal Original_PaymentDue As Decimal) As Integer
17888             Return Me.Update(Original_ST_ID, Stock_ID, _Date, SupplierID, GrandTotal, TotalPayment, PaymentDue, Remarks, Original_ST_ID, Original_Stock_ID, Original_Date, Original_SupplierID, Original_GrandTotal, Original_TotalPayment, Original_PaymentDue)
17889         End Function
17890     End Class
17891     
17892     '''<summary>
17893     '''Represents the connection and commands used to retrieve and save data.
17894     '''</summary>
17895     <Global.System.ComponentModel.DesignerCategoryAttribute("code"), _
17896      Global.System.ComponentModel.ToolboxItem(true), _
17897      Global.System.ComponentModel.DataObjectAttribute(true), _
17898      Global.System.ComponentModel.DesignerAttribute("Microsoft.VSDesigner.DataSource.Design.TableAdapterDesigner, Microsoft.VSDesigner"& _
17899         ", Version=10.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a"), _
17900      Global.System.ComponentModel.Design.HelpKeywordAttribute("vs.data.TableAdapter")> _
17901     Partial Public Class Stock_ProductTableAdapter
17902         Inherits Global.System.ComponentModel.Component
17903         
17904         Private WithEvents _adapter As Global.System.Data.SqlClient.SqlDataAdapter
17905         
17906         Private _connection As Global.System.Data.SqlClient.SqlConnection
17907         
17908         Private _transaction As Global.System.Data.SqlClient.SqlTransaction
17909         
17910         Private _commandCollection() As Global.System.Data.SqlClient.SqlCommand
17911         
17912         Private _clearBeforeFill As Boolean
17913         
17914         <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
17915          Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0")> _
17916         Public Sub New()
17917             MyBase.New
17918             Me.ClearBeforeFill = true
17919         End Sub
17920         
17921         <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
17922          Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0")> _
17923         Protected Friend ReadOnly Property Adapter() As Global.System.Data.SqlClient.SqlDataAdapter
17924             Get
17925                 If (Me._adapter Is Nothing) Then
17926                     Me.InitAdapter
17927                 End If
17928                 Return Me._adapter
17929             End Get
17930         End Property
17931         
17932         <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
17933          Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0")> _
17934         Friend Property Connection() As Global.System.Data.SqlClient.SqlConnection
17935             Get
17936                 If (Me._connection Is Nothing) Then
17937                     Me.InitConnection
17938                 End If
17939                 Return Me._connection
17940             End Get
17941             Set
17942                 Me._connection = value
17943                 If (Not (Me.Adapter.InsertCommand) Is Nothing) Then
17944                     Me.Adapter.InsertCommand.Connection = value
17945                 End If
17946                 If (Not (Me.Adapter.DeleteCommand) Is Nothing) Then
17947                     Me.Adapter.DeleteCommand.Connection = value
17948                 End If
17949                 If (Not (Me.Adapter.UpdateCommand) Is Nothing) Then
17950                     Me.Adapter.UpdateCommand.Connection = value
17951                 End If
17952                 Dim i As Integer = 0
17953                 Do While (i < Me.CommandCollection.Length)
17954                     If (Not (Me.CommandCollection(i)) Is Nothing) Then
17955                         CType(Me.CommandCollection(i),Global.System.Data.SqlClient.SqlCommand).Connection = value
17956                     End If
17957                     i = (i + 1)
17958                 Loop
17959             End Set
17960         End Property
17961         
17962         <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
17963          Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0")> _
17964         Friend Property Transaction() As Global.System.Data.SqlClient.SqlTransaction
17965             Get
17966                 Return Me._transaction
17967             End Get
17968             Set
17969                 Me._transaction = value
17970                 Dim i As Integer = 0
17971                 Do While (i < Me.CommandCollection.Length)
17972                     Me.CommandCollection(i).Transaction = Me._transaction
17973                     i = (i + 1)
17974                 Loop
17975                 If ((Not (Me.Adapter) Is Nothing) _
17976                             AndAlso (Not (Me.Adapter.DeleteCommand) Is Nothing)) Then
17977                     Me.Adapter.DeleteCommand.Transaction = Me._transaction
17978                 End If
17979                 If ((Not (Me.Adapter) Is Nothing) _
17980                             AndAlso (Not (Me.Adapter.InsertCommand) Is Nothing)) Then
17981                     Me.Adapter.InsertCommand.Transaction = Me._transaction
17982                 End If
17983                 If ((Not (Me.Adapter) Is Nothing) _
17984                             AndAlso (Not (Me.Adapter.UpdateCommand) Is Nothing)) Then
17985                     Me.Adapter.UpdateCommand.Transaction = Me._transaction
17986                 End If
17987             End Set
17988         End Property
17989         
17990         <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
17991          Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0")> _
17992         Protected ReadOnly Property CommandCollection() As Global.System.Data.SqlClient.SqlCommand()
17993             Get
17994                 If (Me._commandCollection Is Nothing) Then
17995                     Me.InitCommandCollection
17996                 End If
17997                 Return Me._commandCollection
17998             End Get
17999         End Property
18000         
18001         <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
18002          Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0")> _
18003         Public Property ClearBeforeFill() As Boolean
18004             Get
18005                 Return Me._clearBeforeFill
18006             End Get
18007             Set
18008                 Me._clearBeforeFill = value
18009             End Set
18010         End Property
18011         
18012         <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
18013          Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0")> _
18014         Private Sub InitAdapter()
18015             Me._adapter = New Global.System.Data.SqlClient.SqlDataAdapter()
18016             Dim tableMapping As Global.System.Data.Common.DataTableMapping = New Global.System.Data.Common.DataTableMapping()
18017             tableMapping.SourceTable = "Table"
18018             tableMapping.DataSetTable = "Stock_Product"
18019             tableMapping.ColumnMappings.Add("SP_ID", "SP_ID")
18020             tableMapping.ColumnMappings.Add("StockID", "StockID")
18021             tableMapping.ColumnMappings.Add("ProductID", "ProductID")
18022             tableMapping.ColumnMappings.Add("Qty", "Qty")
18023             tableMapping.ColumnMappings.Add("Price", "Price")
18024             tableMapping.ColumnMappings.Add("TotalAmount", "TotalAmount")
18025             Me._adapter.TableMappings.Add(tableMapping)
18026             Me._adapter.DeleteCommand = New Global.System.Data.SqlClient.SqlCommand()
18027             Me._adapter.DeleteCommand.Connection = Me.Connection
18028             Me._adapter.DeleteCommand.CommandText = "DELETE FROM [dbo].[Stock_Product] WHERE (([SP_ID] = @Original_SP_ID) AND ([StockI"& _
18029                 "D] = @Original_StockID) AND ([ProductID] = @Original_ProductID) AND ([Qty] = @Or"& _
18030                 "iginal_Qty) AND ([Price] = @Original_Price) AND ([TotalAmount] = @Original_Total"& _
18031                 "Amount))"
18032             Me._adapter.DeleteCommand.CommandType = Global.System.Data.CommandType.Text
18033             Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_SP_ID", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "SP_ID", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", ""))
18034             Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_StockID", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "StockID", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", ""))
18035             Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_ProductID", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "ProductID", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", ""))
18036             Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_Qty", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "Qty", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", ""))
18037             Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_Price", Global.System.Data.SqlDbType.[Decimal], 0, Global.System.Data.ParameterDirection.Input, 18, 2, "Price", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", ""))
18038             Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_TotalAmount", Global.System.Data.SqlDbType.[Decimal], 0, Global.System.Data.ParameterDirection.Input, 18, 2, "TotalAmount", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", ""))
18039             Me._adapter.InsertCommand = New Global.System.Data.SqlClient.SqlCommand()
18040             Me._adapter.InsertCommand.Connection = Me.Connection
18041             Me._adapter.InsertCommand.CommandText = "INSERT INTO [dbo].[Stock_Product] ([StockID], [ProductID], [Qty], [Price], [Total"& _
18042                 "Amount]) VALUES (@StockID, @ProductID, @Qty, @Price, @TotalAmount);"&Global.Microsoft.VisualBasic.ChrW(13)&Global.Microsoft.VisualBasic.ChrW(10)&"SELECT SP_I"& _
18043                 "D, StockID, ProductID, Qty, Price, TotalAmount FROM Stock_Product WHERE (SP_ID ="& _
18044                 " SCOPE_IDENTITY())"
18045             Me._adapter.InsertCommand.CommandType = Global.System.Data.CommandType.Text
18046             Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@StockID", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "StockID", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", ""))
18047             Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@ProductID", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "ProductID", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", ""))
18048             Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Qty", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "Qty", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", ""))
18049             Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Price", Global.System.Data.SqlDbType.[Decimal], 0, Global.System.Data.ParameterDirection.Input, 18, 2, "Price", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", ""))
18050             Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@TotalAmount", Global.System.Data.SqlDbType.[Decimal], 0, Global.System.Data.ParameterDirection.Input, 18, 2, "TotalAmount", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", ""))
18051             Me._adapter.UpdateCommand = New Global.System.Data.SqlClient.SqlCommand()
18052             Me._adapter.UpdateCommand.Connection = Me.Connection
18053             Me._adapter.UpdateCommand.CommandText = "UPDATE [dbo].[Stock_Product] SET [StockID] = @StockID, [ProductID] = @ProductID, "& _
18054                 "[Qty] = @Qty, [Price] = @Price, [TotalAmount] = @TotalAmount WHERE (([SP_ID] = @"& _
18055                 "Original_SP_ID) AND ([StockID] = @Original_StockID) AND ([ProductID] = @Original"& _
18056                 "_ProductID) AND ([Qty] = @Original_Qty) AND ([Price] = @Original_Price) AND ([To"& _
18057                 "talAmount] = @Original_TotalAmount));"&Global.Microsoft.VisualBasic.ChrW(13)&Global.Microsoft.VisualBasic.ChrW(10)&"SELECT SP_ID, StockID, ProductID, Qty, Pr"& _
18058                 "ice, TotalAmount FROM Stock_Product WHERE (SP_ID = @SP_ID)"
18059             Me._adapter.UpdateCommand.CommandType = Global.System.Data.CommandType.Text
18060             Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@StockID", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "StockID", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", ""))
18061             Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@ProductID", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "ProductID", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", ""))
18062             Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Qty", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "Qty", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", ""))
18063             Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Price", Global.System.Data.SqlDbType.[Decimal], 0, Global.System.Data.ParameterDirection.Input, 18, 2, "Price", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", ""))
18064             Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@TotalAmount", Global.System.Data.SqlDbType.[Decimal], 0, Global.System.Data.ParameterDirection.Input, 18, 2, "TotalAmount", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", ""))
18065             Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_SP_ID", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "SP_ID", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", ""))
18066             Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_StockID", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "StockID", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", ""))
18067             Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_ProductID", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "ProductID", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", ""))
18068             Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_Qty", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "Qty", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", ""))
18069             Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_Price", Global.System.Data.SqlDbType.[Decimal], 0, Global.System.Data.ParameterDirection.Input, 18, 2, "Price", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", ""))
18070             Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_TotalAmount", Global.System.Data.SqlDbType.[Decimal], 0, Global.System.Data.ParameterDirection.Input, 18, 2, "TotalAmount", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", ""))
18071             Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@SP_ID", Global.System.Data.SqlDbType.Int, 4, Global.System.Data.ParameterDirection.Input, 0, 0, "SP_ID", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", ""))
18072         End Sub
18073         
18074         <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
18075          Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0")> _
18076         Private Sub InitConnection()
18077             Me._connection = New Global.System.Data.SqlClient.SqlConnection()
18078             Me._connection.ConnectionString = Global.Sales_and_Inventory_System.My.MySettings.Default.SIS_DBConnectionString1
18079         End Sub
18080         
18081         <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
18082          Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0")> _
18083         Private Sub InitCommandCollection()
18084             Me._commandCollection = New Global.System.Data.SqlClient.SqlCommand(0) {}
18085             Me._commandCollection(0) = New Global.System.Data.SqlClient.SqlCommand()
18086             Me._commandCollection(0).Connection = Me.Connection
18087             Me._commandCollection(0).CommandText = "SELECT SP_ID, StockID, ProductID, Qty, Price, TotalAmount FROM dbo.Stock_Product"
18088             Me._commandCollection(0).CommandType = Global.System.Data.CommandType.Text
18089         End Sub
18090         
18091         <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
18092          Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0"), _
18093          Global.System.ComponentModel.Design.HelpKeywordAttribute("vs.data.TableAdapter"), _
18094          Global.System.ComponentModel.DataObjectMethodAttribute(Global.System.ComponentModel.DataObjectMethodType.Fill, true)> _
18095         Public Overloads Overridable Function Fill(ByVal dataTable As SIS_DBDataSet.Stock_ProductDataTable) As Integer
18096             Me.Adapter.SelectCommand = Me.CommandCollection(0)
18097             If (Me.ClearBeforeFill = true) Then
18098                 dataTable.Clear
18099             End If
18100             Dim returnValue As Integer = Me.Adapter.Fill(dataTable)
18101             Return returnValue
18102         End Function
18103         
18104         <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
18105          Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0"), _
18106          Global.System.ComponentModel.Design.HelpKeywordAttribute("vs.data.TableAdapter"), _
18107          Global.System.ComponentModel.DataObjectMethodAttribute(Global.System.ComponentModel.DataObjectMethodType.[Select], true)> _
18108         Public Overloads Overridable Function GetData() As SIS_DBDataSet.Stock_ProductDataTable
18109             Me.Adapter.SelectCommand = Me.CommandCollection(0)
18110             Dim dataTable As SIS_DBDataSet.Stock_ProductDataTable = New SIS_DBDataSet.Stock_ProductDataTable()
18111             Me.Adapter.Fill(dataTable)
18112             Return dataTable
18113         End Function
18114         
18115         <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
18116          Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0"), _
18117          Global.System.ComponentModel.Design.HelpKeywordAttribute("vs.data.TableAdapter")> _
18118         Public Overloads Overridable Function Update(ByVal dataTable As SIS_DBDataSet.Stock_ProductDataTable) As Integer
18119             Return Me.Adapter.Update(dataTable)
18120         End Function
18121         
18122         <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
18123          Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0"), _
18124          Global.System.ComponentModel.Design.HelpKeywordAttribute("vs.data.TableAdapter")> _
18125         Public Overloads Overridable Function Update(ByVal dataSet As SIS_DBDataSet) As Integer
18126             Return Me.Adapter.Update(dataSet, "Stock_Product")
18127         End Function
18128         
18129         <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
18130          Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0"), _
18131          Global.System.ComponentModel.Design.HelpKeywordAttribute("vs.data.TableAdapter")> _
18132         Public Overloads Overridable Function Update(ByVal dataRow As Global.System.Data.DataRow) As Integer
18133             Return Me.Adapter.Update(New Global.System.Data.DataRow() {dataRow})
18134         End Function
18135         
18136         <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
18137          Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0"), _
18138          Global.System.ComponentModel.Design.HelpKeywordAttribute("vs.data.TableAdapter")> _
18139         Public Overloads Overridable Function Update(ByVal dataRows() As Global.System.Data.DataRow) As Integer
18140             Return Me.Adapter.Update(dataRows)
18141         End Function
18142         
18143         <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
18144          Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0"), _
18145          Global.System.ComponentModel.Design.HelpKeywordAttribute("vs.data.TableAdapter"), _
18146          Global.System.ComponentModel.DataObjectMethodAttribute(Global.System.ComponentModel.DataObjectMethodType.Delete, true)> _
18147         Public Overloads Overridable Function Delete(ByVal Original_SP_ID As Integer, ByVal Original_StockID As Integer, ByVal Original_ProductID As Integer, ByVal Original_Qty As Integer, ByVal Original_Price As Decimal, ByVal Original_TotalAmount As Decimal) As Integer
18148             Me.Adapter.DeleteCommand.Parameters(0).Value = CType(Original_SP_ID,Integer)
18149             Me.Adapter.DeleteCommand.Parameters(1).Value = CType(Original_StockID,Integer)
18150             Me.Adapter.DeleteCommand.Parameters(2).Value = CType(Original_ProductID,Integer)
18151             Me.Adapter.DeleteCommand.Parameters(3).Value = CType(Original_Qty,Integer)
18152             Me.Adapter.DeleteCommand.Parameters(4).Value = CType(Original_Price,Decimal)
18153             Me.Adapter.DeleteCommand.Parameters(5).Value = CType(Original_TotalAmount,Decimal)
18154             Dim previousConnectionState As Global.System.Data.ConnectionState = Me.Adapter.DeleteCommand.Connection.State
18155             If ((Me.Adapter.DeleteCommand.Connection.State And Global.System.Data.ConnectionState.Open) _
18156                         <> Global.System.Data.ConnectionState.Open) Then
18157                 Me.Adapter.DeleteCommand.Connection.Open
18158             End If
18159             Try
18160                 Dim returnValue As Integer = Me.Adapter.DeleteCommand.ExecuteNonQuery
18161                 Return returnValue
18162             Finally
18163                 If (previousConnectionState = Global.System.Data.ConnectionState.Closed) Then
18164                     Me.Adapter.DeleteCommand.Connection.Close
18165                 End If
18166             End Try
18167         End Function
18168         
18169         <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
18170          Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0"), _
18171          Global.System.ComponentModel.Design.HelpKeywordAttribute("vs.data.TableAdapter"), _
18172          Global.System.ComponentModel.DataObjectMethodAttribute(Global.System.ComponentModel.DataObjectMethodType.Insert, true)> _
18173         Public Overloads Overridable Function Insert(ByVal StockID As Integer, ByVal ProductID As Integer, ByVal Qty As Integer, ByVal Price As Decimal, ByVal TotalAmount As Decimal) As Integer
18174             Me.Adapter.InsertCommand.Parameters(0).Value = CType(StockID,Integer)
18175             Me.Adapter.InsertCommand.Parameters(1).Value = CType(ProductID,Integer)
18176             Me.Adapter.InsertCommand.Parameters(2).Value = CType(Qty,Integer)
18177             Me.Adapter.InsertCommand.Parameters(3).Value = CType(Price,Decimal)
18178             Me.Adapter.InsertCommand.Parameters(4).Value = CType(TotalAmount,Decimal)
18179             Dim previousConnectionState As Global.System.Data.ConnectionState = Me.Adapter.InsertCommand.Connection.State
18180             If ((Me.Adapter.InsertCommand.Connection.State And Global.System.Data.ConnectionState.Open) _
18181                         <> Global.System.Data.ConnectionState.Open) Then
18182                 Me.Adapter.InsertCommand.Connection.Open
18183             End If
18184             Try
18185                 Dim returnValue As Integer = Me.Adapter.InsertCommand.ExecuteNonQuery
18186                 Return returnValue
18187             Finally
18188                 If (previousConnectionState = Global.System.Data.ConnectionState.Closed) Then
18189                     Me.Adapter.InsertCommand.Connection.Close
18190                 End If
18191             End Try
18192         End Function
18193         
18194         <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
18195          Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0"), _
18196          Global.System.ComponentModel.Design.HelpKeywordAttribute("vs.data.TableAdapter"), _
18197          Global.System.ComponentModel.DataObjectMethodAttribute(Global.System.ComponentModel.DataObjectMethodType.Update, true)> _
18198         Public Overloads Overridable Function Update(ByVal StockID As Integer, ByVal ProductID As Integer, ByVal Qty As Integer, ByVal Price As Decimal, ByVal TotalAmount As Decimal, ByVal Original_SP_ID As Integer, ByVal Original_StockID As Integer, ByVal Original_ProductID As Integer, ByVal Original_Qty As Integer, ByVal Original_Price As Decimal, ByVal Original_TotalAmount As Decimal, ByVal SP_ID As Integer) As Integer
18199             Me.Adapter.UpdateCommand.Parameters(0).Value = CType(StockID,Integer)
18200             Me.Adapter.UpdateCommand.Parameters(1).Value = CType(ProductID,Integer)
18201             Me.Adapter.UpdateCommand.Parameters(2).Value = CType(Qty,Integer)
18202             Me.Adapter.UpdateCommand.Parameters(3).Value = CType(Price,Decimal)
18203             Me.Adapter.UpdateCommand.Parameters(4).Value = CType(TotalAmount,Decimal)
18204             Me.Adapter.UpdateCommand.Parameters(5).Value = CType(Original_SP_ID,Integer)
18205             Me.Adapter.UpdateCommand.Parameters(6).Value = CType(Original_StockID,Integer)
18206             Me.Adapter.UpdateCommand.Parameters(7).Value = CType(Original_ProductID,Integer)
18207             Me.Adapter.UpdateCommand.Parameters(8).Value = CType(Original_Qty,Integer)
18208             Me.Adapter.UpdateCommand.Parameters(9).Value = CType(Original_Price,Decimal)
18209             Me.Adapter.UpdateCommand.Parameters(10).Value = CType(Original_TotalAmount,Decimal)
18210             Me.Adapter.UpdateCommand.Parameters(11).Value = CType(SP_ID,Integer)
18211             Dim previousConnectionState As Global.System.Data.ConnectionState = Me.Adapter.UpdateCommand.Connection.State
18212             If ((Me.Adapter.UpdateCommand.Connection.State And Global.System.Data.ConnectionState.Open) _
18213                         <> Global.System.Data.ConnectionState.Open) Then
18214                 Me.Adapter.UpdateCommand.Connection.Open
18215             End If
18216             Try
18217                 Dim returnValue As Integer = Me.Adapter.UpdateCommand.ExecuteNonQuery
18218                 Return returnValue
18219             Finally
18220                 If (previousConnectionState = Global.System.Data.ConnectionState.Closed) Then
18221                     Me.Adapter.UpdateCommand.Connection.Close
18222                 End If
18223             End Try
18224         End Function
18225         
18226         <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
18227          Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0"), _
18228          Global.System.ComponentModel.Design.HelpKeywordAttribute("vs.data.TableAdapter"), _
18229          Global.System.ComponentModel.DataObjectMethodAttribute(Global.System.ComponentModel.DataObjectMethodType.Update, true)> _
18230         Public Overloads Overridable Function Update(ByVal StockID As Integer, ByVal ProductID As Integer, ByVal Qty As Integer, ByVal Price As Decimal, ByVal TotalAmount As Decimal, ByVal Original_SP_ID As Integer, ByVal Original_StockID As Integer, ByVal Original_ProductID As Integer, ByVal Original_Qty As Integer, ByVal Original_Price As Decimal, ByVal Original_TotalAmount As Decimal) As Integer
18231             Return Me.Update(StockID, ProductID, Qty, Price, TotalAmount, Original_SP_ID, Original_StockID, Original_ProductID, Original_Qty, Original_Price, Original_TotalAmount, Original_SP_ID)
18232         End Function
18233     End Class
18234     
18235     '''<summary>
18236     '''Represents the connection and commands used to retrieve and save data.
18237     '''</summary>
18238     <Global.System.ComponentModel.DesignerCategoryAttribute("code"), _
18239      Global.System.ComponentModel.ToolboxItem(true), _
18240      Global.System.ComponentModel.DataObjectAttribute(true), _
18241      Global.System.ComponentModel.DesignerAttribute("Microsoft.VSDesigner.DataSource.Design.TableAdapterDesigner, Microsoft.VSDesigner"& _
18242         ", Version=10.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a"), _
18243      Global.System.ComponentModel.Design.HelpKeywordAttribute("vs.data.TableAdapter")> _
18244     Partial Public Class SubCategoryTableAdapter
18245         Inherits Global.System.ComponentModel.Component
18246         
18247         Private WithEvents _adapter As Global.System.Data.SqlClient.SqlDataAdapter
18248         
18249         Private _connection As Global.System.Data.SqlClient.SqlConnection
18250         
18251         Private _transaction As Global.System.Data.SqlClient.SqlTransaction
18252         
18253         Private _commandCollection() As Global.System.Data.SqlClient.SqlCommand
18254         
18255         Private _clearBeforeFill As Boolean
18256         
18257         <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
18258          Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0")> _
18259         Public Sub New()
18260             MyBase.New
18261             Me.ClearBeforeFill = true
18262         End Sub
18263         
18264         <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
18265          Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0")> _
18266         Protected Friend ReadOnly Property Adapter() As Global.System.Data.SqlClient.SqlDataAdapter
18267             Get
18268                 If (Me._adapter Is Nothing) Then
18269                     Me.InitAdapter
18270                 End If
18271                 Return Me._adapter
18272             End Get
18273         End Property
18274         
18275         <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
18276          Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0")> _
18277         Friend Property Connection() As Global.System.Data.SqlClient.SqlConnection
18278             Get
18279                 If (Me._connection Is Nothing) Then
18280                     Me.InitConnection
18281                 End If
18282                 Return Me._connection
18283             End Get
18284             Set
18285                 Me._connection = value
18286                 If (Not (Me.Adapter.InsertCommand) Is Nothing) Then
18287                     Me.Adapter.InsertCommand.Connection = value
18288                 End If
18289                 If (Not (Me.Adapter.DeleteCommand) Is Nothing) Then
18290                     Me.Adapter.DeleteCommand.Connection = value
18291                 End If
18292                 If (Not (Me.Adapter.UpdateCommand) Is Nothing) Then
18293                     Me.Adapter.UpdateCommand.Connection = value
18294                 End If
18295                 Dim i As Integer = 0
18296                 Do While (i < Me.CommandCollection.Length)
18297                     If (Not (Me.CommandCollection(i)) Is Nothing) Then
18298                         CType(Me.CommandCollection(i),Global.System.Data.SqlClient.SqlCommand).Connection = value
18299                     End If
18300                     i = (i + 1)
18301                 Loop
18302             End Set
18303         End Property
18304         
18305         <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
18306          Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0")> _
18307         Friend Property Transaction() As Global.System.Data.SqlClient.SqlTransaction
18308             Get
18309                 Return Me._transaction
18310             End Get
18311             Set
18312                 Me._transaction = value
18313                 Dim i As Integer = 0
18314                 Do While (i < Me.CommandCollection.Length)
18315                     Me.CommandCollection(i).Transaction = Me._transaction
18316                     i = (i + 1)
18317                 Loop
18318                 If ((Not (Me.Adapter) Is Nothing) _
18319                             AndAlso (Not (Me.Adapter.DeleteCommand) Is Nothing)) Then
18320                     Me.Adapter.DeleteCommand.Transaction = Me._transaction
18321                 End If
18322                 If ((Not (Me.Adapter) Is Nothing) _
18323                             AndAlso (Not (Me.Adapter.InsertCommand) Is Nothing)) Then
18324                     Me.Adapter.InsertCommand.Transaction = Me._transaction
18325                 End If
18326                 If ((Not (Me.Adapter) Is Nothing) _
18327                             AndAlso (Not (Me.Adapter.UpdateCommand) Is Nothing)) Then
18328                     Me.Adapter.UpdateCommand.Transaction = Me._transaction
18329                 End If
18330             End Set
18331         End Property
18332         
18333         <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
18334          Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0")> _
18335         Protected ReadOnly Property CommandCollection() As Global.System.Data.SqlClient.SqlCommand()
18336             Get
18337                 If (Me._commandCollection Is Nothing) Then
18338                     Me.InitCommandCollection
18339                 End If
18340                 Return Me._commandCollection
18341             End Get
18342         End Property
18343         
18344         <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
18345          Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0")> _
18346         Public Property ClearBeforeFill() As Boolean
18347             Get
18348                 Return Me._clearBeforeFill
18349             End Get
18350             Set
18351                 Me._clearBeforeFill = value
18352             End Set
18353         End Property
18354         
18355         <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
18356          Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0")> _
18357         Private Sub InitAdapter()
18358             Me._adapter = New Global.System.Data.SqlClient.SqlDataAdapter()
18359             Dim tableMapping As Global.System.Data.Common.DataTableMapping = New Global.System.Data.Common.DataTableMapping()
18360             tableMapping.SourceTable = "Table"
18361             tableMapping.DataSetTable = "SubCategory"
18362             tableMapping.ColumnMappings.Add("ID", "ID")
18363             tableMapping.ColumnMappings.Add("SubCategoryName", "SubCategoryName")
18364             tableMapping.ColumnMappings.Add("Category", "Category")
18365             Me._adapter.TableMappings.Add(tableMapping)
18366             Me._adapter.DeleteCommand = New Global.System.Data.SqlClient.SqlCommand()
18367             Me._adapter.DeleteCommand.Connection = Me.Connection
18368             Me._adapter.DeleteCommand.CommandText = "DELETE FROM [dbo].[SubCategory] WHERE (([ID] = @Original_ID) AND ([SubCategoryNam"& _
18369                 "e] = @Original_SubCategoryName) AND ([Category] = @Original_Category))"
18370             Me._adapter.DeleteCommand.CommandType = Global.System.Data.CommandType.Text
18371             Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_ID", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "ID", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", ""))
18372             Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_SubCategoryName", Global.System.Data.SqlDbType.NChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "SubCategoryName", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", ""))
18373             Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_Category", Global.System.Data.SqlDbType.NChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "Category", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", ""))
18374             Me._adapter.InsertCommand = New Global.System.Data.SqlClient.SqlCommand()
18375             Me._adapter.InsertCommand.Connection = Me.Connection
18376             Me._adapter.InsertCommand.CommandText = "INSERT INTO [dbo].[SubCategory] ([ID], [SubCategoryName], [Category]) VALUES (@ID"& _
18377                 ", @SubCategoryName, @Category);"&Global.Microsoft.VisualBasic.ChrW(13)&Global.Microsoft.VisualBasic.ChrW(10)&"SELECT ID, SubCategoryName, Category FROM SubCa"& _
18378                 "tegory WHERE (ID = @ID)"
18379             Me._adapter.InsertCommand.CommandType = Global.System.Data.CommandType.Text
18380             Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@ID", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "ID", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", ""))
18381             Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@SubCategoryName", Global.System.Data.SqlDbType.NChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "SubCategoryName", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", ""))
18382             Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Category", Global.System.Data.SqlDbType.NChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "Category", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", ""))
18383             Me._adapter.UpdateCommand = New Global.System.Data.SqlClient.SqlCommand()
18384             Me._adapter.UpdateCommand.Connection = Me.Connection
18385             Me._adapter.UpdateCommand.CommandText = "UPDATE [dbo].[SubCategory] SET [ID] = @ID, [SubCategoryName] = @SubCategoryName, "& _
18386                 "[Category] = @Category WHERE (([ID] = @Original_ID) AND ([SubCategoryName] = @Or"& _
18387                 "iginal_SubCategoryName) AND ([Category] = @Original_Category));"&Global.Microsoft.VisualBasic.ChrW(13)&Global.Microsoft.VisualBasic.ChrW(10)&"SELECT ID, SubC"& _
18388                 "ategoryName, Category FROM SubCategory WHERE (ID = @ID)"
18389             Me._adapter.UpdateCommand.CommandType = Global.System.Data.CommandType.Text
18390             Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@ID", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "ID", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", ""))
18391             Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@SubCategoryName", Global.System.Data.SqlDbType.NChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "SubCategoryName", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", ""))
18392             Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Category", Global.System.Data.SqlDbType.NChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "Category", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", ""))
18393             Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_ID", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "ID", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", ""))
18394             Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_SubCategoryName", Global.System.Data.SqlDbType.NChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "SubCategoryName", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", ""))
18395             Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_Category", Global.System.Data.SqlDbType.NChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "Category", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", ""))
18396         End Sub
18397         
18398         <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
18399          Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0")> _
18400         Private Sub InitConnection()
18401             Me._connection = New Global.System.Data.SqlClient.SqlConnection()
18402             Me._connection.ConnectionString = Global.Sales_and_Inventory_System.My.MySettings.Default.SIS_DBConnectionString1
18403         End Sub
18404         
18405         <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
18406          Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0")> _
18407         Private Sub InitCommandCollection()
18408             Me._commandCollection = New Global.System.Data.SqlClient.SqlCommand(0) {}
18409             Me._commandCollection(0) = New Global.System.Data.SqlClient.SqlCommand()
18410             Me._commandCollection(0).Connection = Me.Connection
18411             Me._commandCollection(0).CommandText = "SELECT ID, SubCategoryName, Category FROM dbo.SubCategory"
18412             Me._commandCollection(0).CommandType = Global.System.Data.CommandType.Text
18413         End Sub
18414         
18415         <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
18416          Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0"), _
18417          Global.System.ComponentModel.Design.HelpKeywordAttribute("vs.data.TableAdapter"), _
18418          Global.System.ComponentModel.DataObjectMethodAttribute(Global.System.ComponentModel.DataObjectMethodType.Fill, true)> _
18419         Public Overloads Overridable Function Fill(ByVal dataTable As SIS_DBDataSet.SubCategoryDataTable) As Integer
18420             Me.Adapter.SelectCommand = Me.CommandCollection(0)
18421             If (Me.ClearBeforeFill = true) Then
18422                 dataTable.Clear
18423             End If
18424             Dim returnValue As Integer = Me.Adapter.Fill(dataTable)
18425             Return returnValue
18426         End Function
18427         
18428         <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
18429          Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0"), _
18430          Global.System.ComponentModel.Design.HelpKeywordAttribute("vs.data.TableAdapter"), _
18431          Global.System.ComponentModel.DataObjectMethodAttribute(Global.System.ComponentModel.DataObjectMethodType.[Select], true)> _
18432         Public Overloads Overridable Function GetData() As SIS_DBDataSet.SubCategoryDataTable
18433             Me.Adapter.SelectCommand = Me.CommandCollection(0)
18434             Dim dataTable As SIS_DBDataSet.SubCategoryDataTable = New SIS_DBDataSet.SubCategoryDataTable()
18435             Me.Adapter.Fill(dataTable)
18436             Return dataTable
18437         End Function
18438         
18439         <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
18440          Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0"), _
18441          Global.System.ComponentModel.Design.HelpKeywordAttribute("vs.data.TableAdapter")> _
18442         Public Overloads Overridable Function Update(ByVal dataTable As SIS_DBDataSet.SubCategoryDataTable) As Integer
18443             Return Me.Adapter.Update(dataTable)
18444         End Function
18445         
18446         <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
18447          Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0"), _
18448          Global.System.ComponentModel.Design.HelpKeywordAttribute("vs.data.TableAdapter")> _
18449         Public Overloads Overridable Function Update(ByVal dataSet As SIS_DBDataSet) As Integer
18450             Return Me.Adapter.Update(dataSet, "SubCategory")
18451         End Function
18452         
18453         <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
18454          Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0"), _
18455          Global.System.ComponentModel.Design.HelpKeywordAttribute("vs.data.TableAdapter")> _
18456         Public Overloads Overridable Function Update(ByVal dataRow As Global.System.Data.DataRow) As Integer
18457             Return Me.Adapter.Update(New Global.System.Data.DataRow() {dataRow})
18458         End Function
18459         
18460         <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
18461          Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0"), _
18462          Global.System.ComponentModel.Design.HelpKeywordAttribute("vs.data.TableAdapter")> _
18463         Public Overloads Overridable Function Update(ByVal dataRows() As Global.System.Data.DataRow) As Integer
18464             Return Me.Adapter.Update(dataRows)
18465         End Function
18466         
18467         <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
18468          Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0"), _
18469          Global.System.ComponentModel.Design.HelpKeywordAttribute("vs.data.TableAdapter"), _
18470          Global.System.ComponentModel.DataObjectMethodAttribute(Global.System.ComponentModel.DataObjectMethodType.Delete, true)> _
18471         Public Overloads Overridable Function Delete(ByVal Original_ID As Integer, ByVal Original_SubCategoryName As String, ByVal Original_Category As String) As Integer
18472             Me.Adapter.DeleteCommand.Parameters(0).Value = CType(Original_ID,Integer)
18473             If (Original_SubCategoryName Is Nothing) Then
18474                 Throw New Global.System.ArgumentNullException("Original_SubCategoryName")
18475             Else
18476                 Me.Adapter.DeleteCommand.Parameters(1).Value = CType(Original_SubCategoryName,String)
18477             End If
18478             If (Original_Category Is Nothing) Then
18479                 Throw New Global.System.ArgumentNullException("Original_Category")
18480             Else
18481                 Me.Adapter.DeleteCommand.Parameters(2).Value = CType(Original_Category,String)
18482             End If
18483             Dim previousConnectionState As Global.System.Data.ConnectionState = Me.Adapter.DeleteCommand.Connection.State
18484             If ((Me.Adapter.DeleteCommand.Connection.State And Global.System.Data.ConnectionState.Open) _
18485                         <> Global.System.Data.ConnectionState.Open) Then
18486                 Me.Adapter.DeleteCommand.Connection.Open
18487             End If
18488             Try
18489                 Dim returnValue As Integer = Me.Adapter.DeleteCommand.ExecuteNonQuery
18490                 Return returnValue
18491             Finally
18492                 If (previousConnectionState = Global.System.Data.ConnectionState.Closed) Then
18493                     Me.Adapter.DeleteCommand.Connection.Close
18494                 End If
18495             End Try
18496         End Function
18497         
18498         <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
18499          Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0"), _
18500          Global.System.ComponentModel.Design.HelpKeywordAttribute("vs.data.TableAdapter"), _
18501          Global.System.ComponentModel.DataObjectMethodAttribute(Global.System.ComponentModel.DataObjectMethodType.Insert, true)> _
18502         Public Overloads Overridable Function Insert(ByVal ID As Integer, ByVal SubCategoryName As String, ByVal Category As String) As Integer
18503             Me.Adapter.InsertCommand.Parameters(0).Value = CType(ID,Integer)
18504             If (SubCategoryName Is Nothing) Then
18505                 Throw New Global.System.ArgumentNullException("SubCategoryName")
18506             Else
18507                 Me.Adapter.InsertCommand.Parameters(1).Value = CType(SubCategoryName,String)
18508             End If
18509             If (Category Is Nothing) Then
18510                 Throw New Global.System.ArgumentNullException("Category")
18511             Else
18512                 Me.Adapter.InsertCommand.Parameters(2).Value = CType(Category,String)
18513             End If
18514             Dim previousConnectionState As Global.System.Data.ConnectionState = Me.Adapter.InsertCommand.Connection.State
18515             If ((Me.Adapter.InsertCommand.Connection.State And Global.System.Data.ConnectionState.Open) _
18516                         <> Global.System.Data.ConnectionState.Open) Then
18517                 Me.Adapter.InsertCommand.Connection.Open
18518             End If
18519             Try
18520                 Dim returnValue As Integer = Me.Adapter.InsertCommand.ExecuteNonQuery
18521                 Return returnValue
18522             Finally
18523                 If (previousConnectionState = Global.System.Data.ConnectionState.Closed) Then
18524                     Me.Adapter.InsertCommand.Connection.Close
18525                 End If
18526             End Try
18527         End Function
18528         
18529         <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
18530          Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0"), _
18531          Global.System.ComponentModel.Design.HelpKeywordAttribute("vs.data.TableAdapter"), _
18532          Global.System.ComponentModel.DataObjectMethodAttribute(Global.System.ComponentModel.DataObjectMethodType.Update, true)> _
18533         Public Overloads Overridable Function Update(ByVal ID As Integer, ByVal SubCategoryName As String, ByVal Category As String, ByVal Original_ID As Integer, ByVal Original_SubCategoryName As String, ByVal Original_Category As String) As Integer
18534             Me.Adapter.UpdateCommand.Parameters(0).Value = CType(ID,Integer)
18535             If (SubCategoryName Is Nothing) Then
18536                 Throw New Global.System.ArgumentNullException("SubCategoryName")
18537             Else
18538                 Me.Adapter.UpdateCommand.Parameters(1).Value = CType(SubCategoryName,String)
18539             End If
18540             If (Category Is Nothing) Then
18541                 Throw New Global.System.ArgumentNullException("Category")
18542             Else
18543                 Me.Adapter.UpdateCommand.Parameters(2).Value = CType(Category,String)
18544             End If
18545             Me.Adapter.UpdateCommand.Parameters(3).Value = CType(Original_ID,Integer)
18546             If (Original_SubCategoryName Is Nothing) Then
18547                 Throw New Global.System.ArgumentNullException("Original_SubCategoryName")
18548             Else
18549                 Me.Adapter.UpdateCommand.Parameters(4).Value = CType(Original_SubCategoryName,String)
18550             End If
18551             If (Original_Category Is Nothing) Then
18552                 Throw New Global.System.ArgumentNullException("Original_Category")
18553             Else
18554                 Me.Adapter.UpdateCommand.Parameters(5).Value = CType(Original_Category,String)
18555             End If
18556             Dim previousConnectionState As Global.System.Data.ConnectionState = Me.Adapter.UpdateCommand.Connection.State
18557             If ((Me.Adapter.UpdateCommand.Connection.State And Global.System.Data.ConnectionState.Open) _
18558                         <> Global.System.Data.ConnectionState.Open) Then
18559                 Me.Adapter.UpdateCommand.Connection.Open
18560             End If
18561             Try
18562                 Dim returnValue As Integer = Me.Adapter.UpdateCommand.ExecuteNonQuery
18563                 Return returnValue
18564             Finally
18565                 If (previousConnectionState = Global.System.Data.ConnectionState.Closed) Then
18566                     Me.Adapter.UpdateCommand.Connection.Close
18567                 End If
18568             End Try
18569         End Function
18570         
18571         <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
18572          Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0"), _
18573          Global.System.ComponentModel.Design.HelpKeywordAttribute("vs.data.TableAdapter"), _
18574          Global.System.ComponentModel.DataObjectMethodAttribute(Global.System.ComponentModel.DataObjectMethodType.Update, true)> _
18575         Public Overloads Overridable Function Update(ByVal SubCategoryName As String, ByVal Category As String, ByVal Original_ID As Integer, ByVal Original_SubCategoryName As String, ByVal Original_Category As String) As Integer
18576             Return Me.Update(Original_ID, SubCategoryName, Category, Original_ID, Original_SubCategoryName, Original_Category)
18577         End Function
18578     End Class
18579     
18580     '''<summary>
18581     '''Represents the connection and commands used to retrieve and save data.
18582     '''</summary>
18583     <Global.System.ComponentModel.DesignerCategoryAttribute("code"), _
18584      Global.System.ComponentModel.ToolboxItem(true), _
18585      Global.System.ComponentModel.DataObjectAttribute(true), _
18586      Global.System.ComponentModel.DesignerAttribute("Microsoft.VSDesigner.DataSource.Design.TableAdapterDesigner, Microsoft.VSDesigner"& _
18587         ", Version=10.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a"), _
18588      Global.System.ComponentModel.Design.HelpKeywordAttribute("vs.data.TableAdapter")> _
18589     Partial Public Class SupplierTableAdapter
18590         Inherits Global.System.ComponentModel.Component
18591         
18592         Private WithEvents _adapter As Global.System.Data.SqlClient.SqlDataAdapter
18593         
18594         Private _connection As Global.System.Data.SqlClient.SqlConnection
18595         
18596         Private _transaction As Global.System.Data.SqlClient.SqlTransaction
18597         
18598         Private _commandCollection() As Global.System.Data.SqlClient.SqlCommand
18599         
18600         Private _clearBeforeFill As Boolean
18601         
18602         <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
18603          Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0")> _
18604         Public Sub New()
18605             MyBase.New
18606             Me.ClearBeforeFill = true
18607         End Sub
18608         
18609         <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
18610          Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0")> _
18611         Protected Friend ReadOnly Property Adapter() As Global.System.Data.SqlClient.SqlDataAdapter
18612             Get
18613                 If (Me._adapter Is Nothing) Then
18614                     Me.InitAdapter
18615                 End If
18616                 Return Me._adapter
18617             End Get
18618         End Property
18619         
18620         <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
18621          Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0")> _
18622         Friend Property Connection() As Global.System.Data.SqlClient.SqlConnection
18623             Get
18624                 If (Me._connection Is Nothing) Then
18625                     Me.InitConnection
18626                 End If
18627                 Return Me._connection
18628             End Get
18629             Set
18630                 Me._connection = value
18631                 If (Not (Me.Adapter.InsertCommand) Is Nothing) Then
18632                     Me.Adapter.InsertCommand.Connection = value
18633                 End If
18634                 If (Not (Me.Adapter.DeleteCommand) Is Nothing) Then
18635                     Me.Adapter.DeleteCommand.Connection = value
18636                 End If
18637                 If (Not (Me.Adapter.UpdateCommand) Is Nothing) Then
18638                     Me.Adapter.UpdateCommand.Connection = value
18639                 End If
18640                 Dim i As Integer = 0
18641                 Do While (i < Me.CommandCollection.Length)
18642                     If (Not (Me.CommandCollection(i)) Is Nothing) Then
18643                         CType(Me.CommandCollection(i),Global.System.Data.SqlClient.SqlCommand).Connection = value
18644                     End If
18645                     i = (i + 1)
18646                 Loop
18647             End Set
18648         End Property
18649         
18650         <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
18651          Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0")> _
18652         Friend Property Transaction() As Global.System.Data.SqlClient.SqlTransaction
18653             Get
18654                 Return Me._transaction
18655             End Get
18656             Set
18657                 Me._transaction = value
18658                 Dim i As Integer = 0
18659                 Do While (i < Me.CommandCollection.Length)
18660                     Me.CommandCollection(i).Transaction = Me._transaction
18661                     i = (i + 1)
18662                 Loop
18663                 If ((Not (Me.Adapter) Is Nothing) _
18664                             AndAlso (Not (Me.Adapter.DeleteCommand) Is Nothing)) Then
18665                     Me.Adapter.DeleteCommand.Transaction = Me._transaction
18666                 End If
18667                 If ((Not (Me.Adapter) Is Nothing) _
18668                             AndAlso (Not (Me.Adapter.InsertCommand) Is Nothing)) Then
18669                     Me.Adapter.InsertCommand.Transaction = Me._transaction
18670                 End If
18671                 If ((Not (Me.Adapter) Is Nothing) _
18672                             AndAlso (Not (Me.Adapter.UpdateCommand) Is Nothing)) Then
18673                     Me.Adapter.UpdateCommand.Transaction = Me._transaction
18674                 End If
18675             End Set
18676         End Property
18677         
18678         <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
18679          Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0")> _
18680         Protected ReadOnly Property CommandCollection() As Global.System.Data.SqlClient.SqlCommand()
18681             Get
18682                 If (Me._commandCollection Is Nothing) Then
18683                     Me.InitCommandCollection
18684                 End If
18685                 Return Me._commandCollection
18686             End Get
18687         End Property
18688         
18689         <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
18690          Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0")> _
18691         Public Property ClearBeforeFill() As Boolean
18692             Get
18693                 Return Me._clearBeforeFill
18694             End Get
18695             Set
18696                 Me._clearBeforeFill = value
18697             End Set
18698         End Property
18699         
18700         <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
18701          Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0")> _
18702         Private Sub InitAdapter()
18703             Me._adapter = New Global.System.Data.SqlClient.SqlDataAdapter()
18704             Dim tableMapping As Global.System.Data.Common.DataTableMapping = New Global.System.Data.Common.DataTableMapping()
18705             tableMapping.SourceTable = "Table"
18706             tableMapping.DataSetTable = "Supplier"
18707             tableMapping.ColumnMappings.Add("ID", "ID")
18708             tableMapping.ColumnMappings.Add("SupplierID", "SupplierID")
18709             tableMapping.ColumnMappings.Add("Name", "Name")
18710             tableMapping.ColumnMappings.Add("Address", "Address")
18711             tableMapping.ColumnMappings.Add("City", "City")
18712             tableMapping.ColumnMappings.Add("State", "State")
18713             tableMapping.ColumnMappings.Add("ZipCode", "ZipCode")
18714             tableMapping.ColumnMappings.Add("ContactNo", "ContactNo")
18715             tableMapping.ColumnMappings.Add("EmailID", "EmailID")
18716             tableMapping.ColumnMappings.Add("Remarks", "Remarks")
18717             Me._adapter.TableMappings.Add(tableMapping)
18718             Me._adapter.DeleteCommand = New Global.System.Data.SqlClient.SqlCommand()
18719             Me._adapter.DeleteCommand.Connection = Me.Connection
18720             Me._adapter.DeleteCommand.CommandText = "DELETE FROM [dbo].[Supplier] WHERE (([ID] = @Original_ID) AND ([SupplierID] = @Or"& _
18721                 "iginal_SupplierID) AND ([Name] = @Original_Name) AND ([Address] = @Original_Addr"& _
18722                 "ess) AND ([City] = @Original_City) AND ([State] = @Original_State) AND ((@IsNull"& _
18723                 "_ZipCode = 1 AND [ZipCode] IS NULL) OR ([ZipCode] = @Original_ZipCode)) AND ([Co"& _
18724                 "ntactNo] = @Original_ContactNo) AND ((@IsNull_EmailID = 1 AND [EmailID] IS NULL)"& _
18725                 " OR ([EmailID] = @Original_EmailID)))"
18726             Me._adapter.DeleteCommand.CommandType = Global.System.Data.CommandType.Text
18727             Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_ID", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "ID", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", ""))
18728             Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_SupplierID", Global.System.Data.SqlDbType.NChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "SupplierID", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", ""))
18729             Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_Name", Global.System.Data.SqlDbType.NChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "Name", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", ""))
18730             Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_Address", Global.System.Data.SqlDbType.NVarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "Address", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", ""))
18731             Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_City", Global.System.Data.SqlDbType.NChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "City", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", ""))
18732             Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_State", Global.System.Data.SqlDbType.NChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "State", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", ""))
18733             Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@IsNull_ZipCode", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "ZipCode", Global.System.Data.DataRowVersion.Original, true, Nothing, "", "", ""))
18734             Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_ZipCode", Global.System.Data.SqlDbType.NChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "ZipCode", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", ""))
18735             Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_ContactNo", Global.System.Data.SqlDbType.NChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "ContactNo", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", ""))
18736             Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@IsNull_EmailID", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "EmailID", Global.System.Data.DataRowVersion.Original, true, Nothing, "", "", ""))
18737             Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_EmailID", Global.System.Data.SqlDbType.NChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "EmailID", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", ""))
18738             Me._adapter.InsertCommand = New Global.System.Data.SqlClient.SqlCommand()
18739             Me._adapter.InsertCommand.Connection = Me.Connection
18740             Me._adapter.InsertCommand.CommandText = "INSERT INTO [dbo].[Supplier] ([ID], [SupplierID], [Name], [Address], [City], [Sta"& _
18741                 "te], [ZipCode], [ContactNo], [EmailID], [Remarks]) VALUES (@ID, @SupplierID, @Na"& _
18742                 "me, @Address, @City, @State, @ZipCode, @ContactNo, @EmailID, @Remarks);"&Global.Microsoft.VisualBasic.ChrW(13)&Global.Microsoft.VisualBasic.ChrW(10)&"SELECT "& _
18743                 "ID, SupplierID, Name, Address, City, State, ZipCode, ContactNo, EmailID, Remarks"& _
18744                 " FROM Supplier WHERE (ID = @ID)"
18745             Me._adapter.InsertCommand.CommandType = Global.System.Data.CommandType.Text
18746             Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@ID", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "ID", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", ""))
18747             Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@SupplierID", Global.System.Data.SqlDbType.NChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "SupplierID", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", ""))
18748             Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Name", Global.System.Data.SqlDbType.NChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "Name", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", ""))
18749             Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Address", Global.System.Data.SqlDbType.NVarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "Address", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", ""))
18750             Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@City", Global.System.Data.SqlDbType.NChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "City", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", ""))
18751             Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@State", Global.System.Data.SqlDbType.NChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "State", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", ""))
18752             Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@ZipCode", Global.System.Data.SqlDbType.NChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "ZipCode", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", ""))
18753             Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@ContactNo", Global.System.Data.SqlDbType.NChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "ContactNo", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", ""))
18754             Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@EmailID", Global.System.Data.SqlDbType.NChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "EmailID", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", ""))
18755             Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Remarks", Global.System.Data.SqlDbType.NVarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "Remarks", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", ""))
18756             Me._adapter.UpdateCommand = New Global.System.Data.SqlClient.SqlCommand()
18757             Me._adapter.UpdateCommand.Connection = Me.Connection
18758             Me._adapter.UpdateCommand.CommandText = "UPDATE [dbo].[Supplier] SET [ID] = @ID, [SupplierID] = @SupplierID, [Name] = @Nam"& _
18759                 "e, [Address] = @Address, [City] = @City, [State] = @State, [ZipCode] = @ZipCode,"& _
18760                 " [ContactNo] = @ContactNo, [EmailID] = @EmailID, [Remarks] = @Remarks WHERE (([I"& _
18761                 "D] = @Original_ID) AND ([SupplierID] = @Original_SupplierID) AND ([Name] = @Orig"& _
18762                 "inal_Name) AND ([Address] = @Original_Address) AND ([City] = @Original_City) AND"& _
18763                 " ([State] = @Original_State) AND ((@IsNull_ZipCode = 1 AND [ZipCode] IS NULL) OR"& _
18764                 " ([ZipCode] = @Original_ZipCode)) AND ([ContactNo] = @Original_ContactNo) AND (("& _
18765                 "@IsNull_EmailID = 1 AND [EmailID] IS NULL) OR ([EmailID] = @Original_EmailID)));"& _
18766                 ""&Global.Microsoft.VisualBasic.ChrW(13)&Global.Microsoft.VisualBasic.ChrW(10)&"SELECT ID, SupplierID, Name, Address, City, State, ZipCode, ContactNo, EmailID"& _
18767                 ", Remarks FROM Supplier WHERE (ID = @ID)"
18768             Me._adapter.UpdateCommand.CommandType = Global.System.Data.CommandType.Text
18769             Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@ID", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "ID", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", ""))
18770             Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@SupplierID", Global.System.Data.SqlDbType.NChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "SupplierID", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", ""))
18771             Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Name", Global.System.Data.SqlDbType.NChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "Name", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", ""))
18772             Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Address", Global.System.Data.SqlDbType.NVarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "Address", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", ""))
18773             Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@City", Global.System.Data.SqlDbType.NChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "City", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", ""))
18774             Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@State", Global.System.Data.SqlDbType.NChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "State", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", ""))
18775             Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@ZipCode", Global.System.Data.SqlDbType.NChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "ZipCode", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", ""))
18776             Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@ContactNo", Global.System.Data.SqlDbType.NChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "ContactNo", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", ""))
18777             Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@EmailID", Global.System.Data.SqlDbType.NChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "EmailID", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", ""))
18778             Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Remarks", Global.System.Data.SqlDbType.NVarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "Remarks", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", ""))
18779             Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_ID", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "ID", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", ""))
18780             Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_SupplierID", Global.System.Data.SqlDbType.NChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "SupplierID", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", ""))
18781             Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_Name", Global.System.Data.SqlDbType.NChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "Name", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", ""))
18782             Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_Address", Global.System.Data.SqlDbType.NVarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "Address", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", ""))
18783             Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_City", Global.System.Data.SqlDbType.NChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "City", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", ""))
18784             Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_State", Global.System.Data.SqlDbType.NChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "State", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", ""))
18785             Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@IsNull_ZipCode", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "ZipCode", Global.System.Data.DataRowVersion.Original, true, Nothing, "", "", ""))
18786             Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_ZipCode", Global.System.Data.SqlDbType.NChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "ZipCode", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", ""))
18787             Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_ContactNo", Global.System.Data.SqlDbType.NChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "ContactNo", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", ""))
18788             Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@IsNull_EmailID", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "EmailID", Global.System.Data.DataRowVersion.Original, true, Nothing, "", "", ""))
18789             Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_EmailID", Global.System.Data.SqlDbType.NChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "EmailID", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", ""))
18790         End Sub
18791         
18792         <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
18793          Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0")> _
18794         Private Sub InitConnection()
18795             Me._connection = New Global.System.Data.SqlClient.SqlConnection()
18796             Me._connection.ConnectionString = Global.Sales_and_Inventory_System.My.MySettings.Default.SIS_DBConnectionString1
18797         End Sub
18798         
18799         <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
18800          Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0")> _
18801         Private Sub InitCommandCollection()
18802             Me._commandCollection = New Global.System.Data.SqlClient.SqlCommand(0) {}
18803             Me._commandCollection(0) = New Global.System.Data.SqlClient.SqlCommand()
18804             Me._commandCollection(0).Connection = Me.Connection
18805             Me._commandCollection(0).CommandText = "SELECT ID, SupplierID, Name, Address, City, State, ZipCode, ContactNo, EmailID, R"& _
18806                 "emarks FROM dbo.Supplier"
18807             Me._commandCollection(0).CommandType = Global.System.Data.CommandType.Text
18808         End Sub
18809         
18810         <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
18811          Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0"), _
18812          Global.System.ComponentModel.Design.HelpKeywordAttribute("vs.data.TableAdapter"), _
18813          Global.System.ComponentModel.DataObjectMethodAttribute(Global.System.ComponentModel.DataObjectMethodType.Fill, true)> _
18814         Public Overloads Overridable Function Fill(ByVal dataTable As SIS_DBDataSet.SupplierDataTable) As Integer
18815             Me.Adapter.SelectCommand = Me.CommandCollection(0)
18816             If (Me.ClearBeforeFill = true) Then
18817                 dataTable.Clear
18818             End If
18819             Dim returnValue As Integer = Me.Adapter.Fill(dataTable)
18820             Return returnValue
18821         End Function
18822         
18823         <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
18824          Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0"), _
18825          Global.System.ComponentModel.Design.HelpKeywordAttribute("vs.data.TableAdapter"), _
18826          Global.System.ComponentModel.DataObjectMethodAttribute(Global.System.ComponentModel.DataObjectMethodType.[Select], true)> _
18827         Public Overloads Overridable Function GetData() As SIS_DBDataSet.SupplierDataTable
18828             Me.Adapter.SelectCommand = Me.CommandCollection(0)
18829             Dim dataTable As SIS_DBDataSet.SupplierDataTable = New SIS_DBDataSet.SupplierDataTable()
18830             Me.Adapter.Fill(dataTable)
18831             Return dataTable
18832         End Function
18833         
18834         <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
18835          Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0"), _
18836          Global.System.ComponentModel.Design.HelpKeywordAttribute("vs.data.TableAdapter")> _
18837         Public Overloads Overridable Function Update(ByVal dataTable As SIS_DBDataSet.SupplierDataTable) As Integer
18838             Return Me.Adapter.Update(dataTable)
18839         End Function
18840         
18841         <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
18842          Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0"), _
18843          Global.System.ComponentModel.Design.HelpKeywordAttribute("vs.data.TableAdapter")> _
18844         Public Overloads Overridable Function Update(ByVal dataSet As SIS_DBDataSet) As Integer
18845             Return Me.Adapter.Update(dataSet, "Supplier")
18846         End Function
18847         
18848         <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
18849          Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0"), _
18850          Global.System.ComponentModel.Design.HelpKeywordAttribute("vs.data.TableAdapter")> _
18851         Public Overloads Overridable Function Update(ByVal dataRow As Global.System.Data.DataRow) As Integer
18852             Return Me.Adapter.Update(New Global.System.Data.DataRow() {dataRow})
18853         End Function
18854         
18855         <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
18856          Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0"), _
18857          Global.System.ComponentModel.Design.HelpKeywordAttribute("vs.data.TableAdapter")> _
18858         Public Overloads Overridable Function Update(ByVal dataRows() As Global.System.Data.DataRow) As Integer
18859             Return Me.Adapter.Update(dataRows)
18860         End Function
18861         
18862         <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
18863          Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0"), _
18864          Global.System.ComponentModel.Design.HelpKeywordAttribute("vs.data.TableAdapter"), _
18865          Global.System.ComponentModel.DataObjectMethodAttribute(Global.System.ComponentModel.DataObjectMethodType.Delete, true)> _
18866         Public Overloads Overridable Function Delete(ByVal Original_ID As Integer, ByVal Original_SupplierID As String, ByVal Original_Name As String, ByVal Original_Address As String, ByVal Original_City As String, ByVal Original_State As String, ByVal Original_ZipCode As String, ByVal Original_ContactNo As String, ByVal Original_EmailID As String) As Integer
18867             Me.Adapter.DeleteCommand.Parameters(0).Value = CType(Original_ID,Integer)
18868             If (Original_SupplierID Is Nothing) Then
18869                 Throw New Global.System.ArgumentNullException("Original_SupplierID")
18870             Else
18871                 Me.Adapter.DeleteCommand.Parameters(1).Value = CType(Original_SupplierID,String)
18872             End If
18873             If (Original_Name Is Nothing) Then
18874                 Throw New Global.System.ArgumentNullException("Original_Name")
18875             Else
18876                 Me.Adapter.DeleteCommand.Parameters(2).Value = CType(Original_Name,String)
18877             End If
18878             If (Original_Address Is Nothing) Then
18879                 Throw New Global.System.ArgumentNullException("Original_Address")
18880             Else
18881                 Me.Adapter.DeleteCommand.Parameters(3).Value = CType(Original_Address,String)
18882             End If
18883             If (Original_City Is Nothing) Then
18884                 Throw New Global.System.ArgumentNullException("Original_City")
18885             Else
18886                 Me.Adapter.DeleteCommand.Parameters(4).Value = CType(Original_City,String)
18887             End If
18888             If (Original_State Is Nothing) Then
18889                 Throw New Global.System.ArgumentNullException("Original_State")
18890             Else
18891                 Me.Adapter.DeleteCommand.Parameters(5).Value = CType(Original_State,String)
18892             End If
18893             If (Original_ZipCode Is Nothing) Then
18894                 Me.Adapter.DeleteCommand.Parameters(6).Value = CType(1,Object)
18895                 Me.Adapter.DeleteCommand.Parameters(7).Value = Global.System.DBNull.Value
18896             Else
18897                 Me.Adapter.DeleteCommand.Parameters(6).Value = CType(0,Object)
18898                 Me.Adapter.DeleteCommand.Parameters(7).Value = CType(Original_ZipCode,String)
18899             End If
18900             If (Original_ContactNo Is Nothing) Then
18901                 Throw New Global.System.ArgumentNullException("Original_ContactNo")
18902             Else
18903                 Me.Adapter.DeleteCommand.Parameters(8).Value = CType(Original_ContactNo,String)
18904             End If
18905             If (Original_EmailID Is Nothing) Then
18906                 Me.Adapter.DeleteCommand.Parameters(9).Value = CType(1,Object)
18907                 Me.Adapter.DeleteCommand.Parameters(10).Value = Global.System.DBNull.Value
18908             Else
18909                 Me.Adapter.DeleteCommand.Parameters(9).Value = CType(0,Object)
18910                 Me.Adapter.DeleteCommand.Parameters(10).Value = CType(Original_EmailID,String)
18911             End If
18912             Dim previousConnectionState As Global.System.Data.ConnectionState = Me.Adapter.DeleteCommand.Connection.State
18913             If ((Me.Adapter.DeleteCommand.Connection.State And Global.System.Data.ConnectionState.Open) _
18914                         <> Global.System.Data.ConnectionState.Open) Then
18915                 Me.Adapter.DeleteCommand.Connection.Open
18916             End If
18917             Try
18918                 Dim returnValue As Integer = Me.Adapter.DeleteCommand.ExecuteNonQuery
18919                 Return returnValue
18920             Finally
18921                 If (previousConnectionState = Global.System.Data.ConnectionState.Closed) Then
18922                     Me.Adapter.DeleteCommand.Connection.Close
18923                 End If
18924             End Try
18925         End Function
18926         
18927         <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
18928          Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0"), _
18929          Global.System.ComponentModel.Design.HelpKeywordAttribute("vs.data.TableAdapter"), _
18930          Global.System.ComponentModel.DataObjectMethodAttribute(Global.System.ComponentModel.DataObjectMethodType.Insert, true)> _
18931         Public Overloads Overridable Function Insert(ByVal ID As Integer, ByVal SupplierID As String, ByVal Name As String, ByVal Address As String, ByVal City As String, ByVal State As String, ByVal ZipCode As String, ByVal ContactNo As String, ByVal EmailID As String, ByVal Remarks As String) As Integer
18932             Me.Adapter.InsertCommand.Parameters(0).Value = CType(ID,Integer)
18933             If (SupplierID Is Nothing) Then
18934                 Throw New Global.System.ArgumentNullException("SupplierID")
18935             Else
18936                 Me.Adapter.InsertCommand.Parameters(1).Value = CType(SupplierID,String)
18937             End If
18938             If (Name Is Nothing) Then
18939                 Throw New Global.System.ArgumentNullException("Name")
18940             Else
18941                 Me.Adapter.InsertCommand.Parameters(2).Value = CType(Name,String)
18942             End If
18943             If (Address Is Nothing) Then
18944                 Throw New Global.System.ArgumentNullException("Address")
18945             Else
18946                 Me.Adapter.InsertCommand.Parameters(3).Value = CType(Address,String)
18947             End If
18948             If (City Is Nothing) Then
18949                 Throw New Global.System.ArgumentNullException("City")
18950             Else
18951                 Me.Adapter.InsertCommand.Parameters(4).Value = CType(City,String)
18952             End If
18953             If (State Is Nothing) Then
18954                 Throw New Global.System.ArgumentNullException("State")
18955             Else
18956                 Me.Adapter.InsertCommand.Parameters(5).Value = CType(State,String)
18957             End If
18958             If (ZipCode Is Nothing) Then
18959                 Me.Adapter.InsertCommand.Parameters(6).Value = Global.System.DBNull.Value
18960             Else
18961                 Me.Adapter.InsertCommand.Parameters(6).Value = CType(ZipCode,String)
18962             End If
18963             If (ContactNo Is Nothing) Then
18964                 Throw New Global.System.ArgumentNullException("ContactNo")
18965             Else
18966                 Me.Adapter.InsertCommand.Parameters(7).Value = CType(ContactNo,String)
18967             End If
18968             If (EmailID Is Nothing) Then
18969                 Me.Adapter.InsertCommand.Parameters(8).Value = Global.System.DBNull.Value
18970             Else
18971                 Me.Adapter.InsertCommand.Parameters(8).Value = CType(EmailID,String)
18972             End If
18973             If (Remarks Is Nothing) Then
18974                 Me.Adapter.InsertCommand.Parameters(9).Value = Global.System.DBNull.Value
18975             Else
18976                 Me.Adapter.InsertCommand.Parameters(9).Value = CType(Remarks,String)
18977             End If
18978             Dim previousConnectionState As Global.System.Data.ConnectionState = Me.Adapter.InsertCommand.Connection.State
18979             If ((Me.Adapter.InsertCommand.Connection.State And Global.System.Data.ConnectionState.Open) _
18980                         <> Global.System.Data.ConnectionState.Open) Then
18981                 Me.Adapter.InsertCommand.Connection.Open
18982             End If
18983             Try
18984                 Dim returnValue As Integer = Me.Adapter.InsertCommand.ExecuteNonQuery
18985                 Return returnValue
18986             Finally
18987                 If (previousConnectionState = Global.System.Data.ConnectionState.Closed) Then
18988                     Me.Adapter.InsertCommand.Connection.Close
18989                 End If
18990             End Try
18991         End Function
18992         
18993         <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
18994          Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0"), _
18995          Global.System.ComponentModel.Design.HelpKeywordAttribute("vs.data.TableAdapter"), _
18996          Global.System.ComponentModel.DataObjectMethodAttribute(Global.System.ComponentModel.DataObjectMethodType.Update, true)> _
18997         Public Overloads Overridable Function Update( _
18998                     ByVal ID As Integer, _
18999                     ByVal SupplierID As String, _
19000                     ByVal Name As String, _
19001                     ByVal Address As String, _
19002                     ByVal City As String, _
19003                     ByVal State As String, _
19004                     ByVal ZipCode As String, _
19005                     ByVal ContactNo As String, _
19006                     ByVal EmailID As String, _
19007                     ByVal Remarks As String, _
19008                     ByVal Original_ID As Integer, _
19009                     ByVal Original_SupplierID As String, _
19010                     ByVal Original_Name As String, _
19011                     ByVal Original_Address As String, _
19012                     ByVal Original_City As String, _
19013                     ByVal Original_State As String, _
19014                     ByVal Original_ZipCode As String, _
19015                     ByVal Original_ContactNo As String, _
19016                     ByVal Original_EmailID As String) As Integer
19017             Me.Adapter.UpdateCommand.Parameters(0).Value = CType(ID,Integer)
19018             If (SupplierID Is Nothing) Then
19019                 Throw New Global.System.ArgumentNullException("SupplierID")
19020             Else
19021                 Me.Adapter.UpdateCommand.Parameters(1).Value = CType(SupplierID,String)
19022             End If
19023             If (Name Is Nothing) Then
19024                 Throw New Global.System.ArgumentNullException("Name")
19025             Else
19026                 Me.Adapter.UpdateCommand.Parameters(2).Value = CType(Name,String)
19027             End If
19028             If (Address Is Nothing) Then
19029                 Throw New Global.System.ArgumentNullException("Address")
19030             Else
19031                 Me.Adapter.UpdateCommand.Parameters(3).Value = CType(Address,String)
19032             End If
19033             If (City Is Nothing) Then
19034                 Throw New Global.System.ArgumentNullException("City")
19035             Else
19036                 Me.Adapter.UpdateCommand.Parameters(4).Value = CType(City,String)
19037             End If
19038             If (State Is Nothing) Then
19039                 Throw New Global.System.ArgumentNullException("State")
19040             Else
19041                 Me.Adapter.UpdateCommand.Parameters(5).Value = CType(State,String)
19042             End If
19043             If (ZipCode Is Nothing) Then
19044                 Me.Adapter.UpdateCommand.Parameters(6).Value = Global.System.DBNull.Value
19045             Else
19046                 Me.Adapter.UpdateCommand.Parameters(6).Value = CType(ZipCode,String)
19047             End If
19048             If (ContactNo Is Nothing) Then
19049                 Throw New Global.System.ArgumentNullException("ContactNo")
19050             Else
19051                 Me.Adapter.UpdateCommand.Parameters(7).Value = CType(ContactNo,String)
19052             End If
19053             If (EmailID Is Nothing) Then
19054                 Me.Adapter.UpdateCommand.Parameters(8).Value = Global.System.DBNull.Value
19055             Else
19056                 Me.Adapter.UpdateCommand.Parameters(8).Value = CType(EmailID,String)
19057             End If
19058             If (Remarks Is Nothing) Then
19059                 Me.Adapter.UpdateCommand.Parameters(9).Value = Global.System.DBNull.Value
19060             Else
19061                 Me.Adapter.UpdateCommand.Parameters(9).Value = CType(Remarks,String)
19062             End If
19063             Me.Adapter.UpdateCommand.Parameters(10).Value = CType(Original_ID,Integer)
19064             If (Original_SupplierID Is Nothing) Then
19065                 Throw New Global.System.ArgumentNullException("Original_SupplierID")
19066             Else
19067                 Me.Adapter.UpdateCommand.Parameters(11).Value = CType(Original_SupplierID,String)
19068             End If
19069             If (Original_Name Is Nothing) Then
19070                 Throw New Global.System.ArgumentNullException("Original_Name")
19071             Else
19072                 Me.Adapter.UpdateCommand.Parameters(12).Value = CType(Original_Name,String)
19073             End If
19074             If (Original_Address Is Nothing) Then
19075                 Throw New Global.System.ArgumentNullException("Original_Address")
19076             Else
19077                 Me.Adapter.UpdateCommand.Parameters(13).Value = CType(Original_Address,String)
19078             End If
19079             If (Original_City Is Nothing) Then
19080                 Throw New Global.System.ArgumentNullException("Original_City")
19081             Else
19082                 Me.Adapter.UpdateCommand.Parameters(14).Value = CType(Original_City,String)
19083             End If
19084             If (Original_State Is Nothing) Then
19085                 Throw New Global.System.ArgumentNullException("Original_State")
19086             Else
19087                 Me.Adapter.UpdateCommand.Parameters(15).Value = CType(Original_State,String)
19088             End If
19089             If (Original_ZipCode Is Nothing) Then
19090                 Me.Adapter.UpdateCommand.Parameters(16).Value = CType(1,Object)
19091                 Me.Adapter.UpdateCommand.Parameters(17).Value = Global.System.DBNull.Value
19092             Else
19093                 Me.Adapter.UpdateCommand.Parameters(16).Value = CType(0,Object)
19094                 Me.Adapter.UpdateCommand.Parameters(17).Value = CType(Original_ZipCode,String)
19095             End If
19096             If (Original_ContactNo Is Nothing) Then
19097                 Throw New Global.System.ArgumentNullException("Original_ContactNo")
19098             Else
19099                 Me.Adapter.UpdateCommand.Parameters(18).Value = CType(Original_ContactNo,String)
19100             End If
19101             If (Original_EmailID Is Nothing) Then
19102                 Me.Adapter.UpdateCommand.Parameters(19).Value = CType(1,Object)
19103                 Me.Adapter.UpdateCommand.Parameters(20).Value = Global.System.DBNull.Value
19104             Else
19105                 Me.Adapter.UpdateCommand.Parameters(19).Value = CType(0,Object)
19106                 Me.Adapter.UpdateCommand.Parameters(20).Value = CType(Original_EmailID,String)
19107             End If
19108             Dim previousConnectionState As Global.System.Data.ConnectionState = Me.Adapter.UpdateCommand.Connection.State
19109             If ((Me.Adapter.UpdateCommand.Connection.State And Global.System.Data.ConnectionState.Open) _
19110                         <> Global.System.Data.ConnectionState.Open) Then
19111                 Me.Adapter.UpdateCommand.Connection.Open
19112             End If
19113             Try
19114                 Dim returnValue As Integer = Me.Adapter.UpdateCommand.ExecuteNonQuery
19115                 Return returnValue
19116             Finally
19117                 If (previousConnectionState = Global.System.Data.ConnectionState.Closed) Then
19118                     Me.Adapter.UpdateCommand.Connection.Close
19119                 End If
19120             End Try
19121         End Function
19122         
19123         <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
19124          Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0"), _
19125          Global.System.ComponentModel.Design.HelpKeywordAttribute("vs.data.TableAdapter"), _
19126          Global.System.ComponentModel.DataObjectMethodAttribute(Global.System.ComponentModel.DataObjectMethodType.Update, true)> _
19127         Public Overloads Overridable Function Update( _
19128                     ByVal SupplierID As String, _
19129                     ByVal Name As String, _
19130                     ByVal Address As String, _
19131                     ByVal City As String, _
19132                     ByVal State As String, _
19133                     ByVal ZipCode As String, _
19134                     ByVal ContactNo As String, _
19135                     ByVal EmailID As String, _
19136                     ByVal Remarks As String, _
19137                     ByVal Original_ID As Integer, _
19138                     ByVal Original_SupplierID As String, _
19139                     ByVal Original_Name As String, _
19140                     ByVal Original_Address As String, _
19141                     ByVal Original_City As String, _
19142                     ByVal Original_State As String, _
19143                     ByVal Original_ZipCode As String, _
19144                     ByVal Original_ContactNo As String, _
19145                     ByVal Original_EmailID As String) As Integer
19146             Return Me.Update(Original_ID, SupplierID, Name, Address, City, State, ZipCode, ContactNo, EmailID, Remarks, Original_ID, Original_SupplierID, Original_Name, Original_Address, Original_City, Original_State, Original_ZipCode, Original_ContactNo, Original_EmailID)
19147         End Function
19148     End Class
19149     
19150     '''<summary>
19151     '''Represents the connection and commands used to retrieve and save data.
19152     '''</summary>
19153     <Global.System.ComponentModel.DesignerCategoryAttribute("code"), _
19154      Global.System.ComponentModel.ToolboxItem(true), _
19155      Global.System.ComponentModel.DataObjectAttribute(true), _
19156      Global.System.ComponentModel.DesignerAttribute("Microsoft.VSDesigner.DataSource.Design.TableAdapterDesigner, Microsoft.VSDesigner"& _
19157         ", Version=10.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a"), _
19158      Global.System.ComponentModel.Design.HelpKeywordAttribute("vs.data.TableAdapter")> _
19159     Partial Public Class Temp_StockTableAdapter
19160         Inherits Global.System.ComponentModel.Component
19161         
19162         Private WithEvents _adapter As Global.System.Data.SqlClient.SqlDataAdapter
19163         
19164         Private _connection As Global.System.Data.SqlClient.SqlConnection
19165         
19166         Private _transaction As Global.System.Data.SqlClient.SqlTransaction
19167         
19168         Private _commandCollection() As Global.System.Data.SqlClient.SqlCommand
19169         
19170         Private _clearBeforeFill As Boolean
19171         
19172         <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
19173          Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0")> _
19174         Public Sub New()
19175             MyBase.New
19176             Me.ClearBeforeFill = true
19177         End Sub
19178         
19179         <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
19180          Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0")> _
19181         Protected Friend ReadOnly Property Adapter() As Global.System.Data.SqlClient.SqlDataAdapter
19182             Get
19183                 If (Me._adapter Is Nothing) Then
19184                     Me.InitAdapter
19185                 End If
19186                 Return Me._adapter
19187             End Get
19188         End Property
19189         
19190         <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
19191          Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0")> _
19192         Friend Property Connection() As Global.System.Data.SqlClient.SqlConnection
19193             Get
19194                 If (Me._connection Is Nothing) Then
19195                     Me.InitConnection
19196                 End If
19197                 Return Me._connection
19198             End Get
19199             Set
19200                 Me._connection = value
19201                 If (Not (Me.Adapter.InsertCommand) Is Nothing) Then
19202                     Me.Adapter.InsertCommand.Connection = value
19203                 End If
19204                 If (Not (Me.Adapter.DeleteCommand) Is Nothing) Then
19205                     Me.Adapter.DeleteCommand.Connection = value
19206                 End If
19207                 If (Not (Me.Adapter.UpdateCommand) Is Nothing) Then
19208                     Me.Adapter.UpdateCommand.Connection = value
19209                 End If
19210                 Dim i As Integer = 0
19211                 Do While (i < Me.CommandCollection.Length)
19212                     If (Not (Me.CommandCollection(i)) Is Nothing) Then
19213                         CType(Me.CommandCollection(i),Global.System.Data.SqlClient.SqlCommand).Connection = value
19214                     End If
19215                     i = (i + 1)
19216                 Loop
19217             End Set
19218         End Property
19219         
19220         <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
19221          Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0")> _
19222         Friend Property Transaction() As Global.System.Data.SqlClient.SqlTransaction
19223             Get
19224                 Return Me._transaction
19225             End Get
19226             Set
19227                 Me._transaction = value
19228                 Dim i As Integer = 0
19229                 Do While (i < Me.CommandCollection.Length)
19230                     Me.CommandCollection(i).Transaction = Me._transaction
19231                     i = (i + 1)
19232                 Loop
19233                 If ((Not (Me.Adapter) Is Nothing) _
19234                             AndAlso (Not (Me.Adapter.DeleteCommand) Is Nothing)) Then
19235                     Me.Adapter.DeleteCommand.Transaction = Me._transaction
19236                 End If
19237                 If ((Not (Me.Adapter) Is Nothing) _
19238                             AndAlso (Not (Me.Adapter.InsertCommand) Is Nothing)) Then
19239                     Me.Adapter.InsertCommand.Transaction = Me._transaction
19240                 End If
19241                 If ((Not (Me.Adapter) Is Nothing) _
19242                             AndAlso (Not (Me.Adapter.UpdateCommand) Is Nothing)) Then
19243                     Me.Adapter.UpdateCommand.Transaction = Me._transaction
19244                 End If
19245             End Set
19246         End Property
19247         
19248         <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
19249          Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0")> _
19250         Protected ReadOnly Property CommandCollection() As Global.System.Data.SqlClient.SqlCommand()
19251             Get
19252                 If (Me._commandCollection Is Nothing) Then
19253                     Me.InitCommandCollection
19254                 End If
19255                 Return Me._commandCollection
19256             End Get
19257         End Property
19258         
19259         <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
19260          Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0")> _
19261         Public Property ClearBeforeFill() As Boolean
19262             Get
19263                 Return Me._clearBeforeFill
19264             End Get
19265             Set
19266                 Me._clearBeforeFill = value
19267             End Set
19268         End Property
19269         
19270         <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
19271          Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0")> _
19272         Private Sub InitAdapter()
19273             Me._adapter = New Global.System.Data.SqlClient.SqlDataAdapter()
19274             Dim tableMapping As Global.System.Data.Common.DataTableMapping = New Global.System.Data.Common.DataTableMapping()
19275             tableMapping.SourceTable = "Table"
19276             tableMapping.DataSetTable = "Temp_Stock"
19277             tableMapping.ColumnMappings.Add("ProductID", "ProductID")
19278             tableMapping.ColumnMappings.Add("Qty", "Qty")
19279             Me._adapter.TableMappings.Add(tableMapping)
19280             Me._adapter.DeleteCommand = New Global.System.Data.SqlClient.SqlCommand()
19281             Me._adapter.DeleteCommand.Connection = Me.Connection
19282             Me._adapter.DeleteCommand.CommandText = "DELETE FROM [dbo].[Temp_Stock] WHERE (([ProductID] = @Original_ProductID) AND ([Q"& _
19283                 "ty] = @Original_Qty))"
19284             Me._adapter.DeleteCommand.CommandType = Global.System.Data.CommandType.Text
19285             Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_ProductID", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "ProductID", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", ""))
19286             Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_Qty", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "Qty", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", ""))
19287             Me._adapter.InsertCommand = New Global.System.Data.SqlClient.SqlCommand()
19288             Me._adapter.InsertCommand.Connection = Me.Connection
19289             Me._adapter.InsertCommand.CommandText = "INSERT INTO [dbo].[Temp_Stock] ([ProductID], [Qty]) VALUES (@ProductID, @Qty);"&Global.Microsoft.VisualBasic.ChrW(13)&Global.Microsoft.VisualBasic.ChrW(10)&"S"& _
19290                 "ELECT ProductID, Qty FROM Temp_Stock WHERE (ProductID = @ProductID)"
19291             Me._adapter.InsertCommand.CommandType = Global.System.Data.CommandType.Text
19292             Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@ProductID", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "ProductID", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", ""))
19293             Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Qty", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "Qty", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", ""))
19294             Me._adapter.UpdateCommand = New Global.System.Data.SqlClient.SqlCommand()
19295             Me._adapter.UpdateCommand.Connection = Me.Connection
19296             Me._adapter.UpdateCommand.CommandText = "UPDATE [dbo].[Temp_Stock] SET [ProductID] = @ProductID, [Qty] = @Qty WHERE (([Pro"& _
19297                 "ductID] = @Original_ProductID) AND ([Qty] = @Original_Qty));"&Global.Microsoft.VisualBasic.ChrW(13)&Global.Microsoft.VisualBasic.ChrW(10)&"SELECT ProductID, "& _
19298                 "Qty FROM Temp_Stock WHERE (ProductID = @ProductID)"
19299             Me._adapter.UpdateCommand.CommandType = Global.System.Data.CommandType.Text
19300             Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@ProductID", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "ProductID", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", ""))
19301             Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Qty", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "Qty", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", ""))
19302             Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_ProductID", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "ProductID", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", ""))
19303             Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_Qty", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "Qty", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", ""))
19304         End Sub
19305         
19306         <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
19307          Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0")> _
19308         Private Sub InitConnection()
19309             Me._connection = New Global.System.Data.SqlClient.SqlConnection()
19310             Me._connection.ConnectionString = Global.Sales_and_Inventory_System.My.MySettings.Default.SIS_DBConnectionString1
19311         End Sub
19312         
19313         <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
19314          Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0")> _
19315         Private Sub InitCommandCollection()
19316             Me._commandCollection = New Global.System.Data.SqlClient.SqlCommand(0) {}
19317             Me._commandCollection(0) = New Global.System.Data.SqlClient.SqlCommand()
19318             Me._commandCollection(0).Connection = Me.Connection
19319             Me._commandCollection(0).CommandText = "SELECT ProductID, Qty FROM dbo.Temp_Stock"
19320             Me._commandCollection(0).CommandType = Global.System.Data.CommandType.Text
19321         End Sub
19322         
19323         <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
19324          Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0"), _
19325          Global.System.ComponentModel.Design.HelpKeywordAttribute("vs.data.TableAdapter"), _
19326          Global.System.ComponentModel.DataObjectMethodAttribute(Global.System.ComponentModel.DataObjectMethodType.Fill, true)> _
19327         Public Overloads Overridable Function Fill(ByVal dataTable As SIS_DBDataSet.Temp_StockDataTable) As Integer
19328             Me.Adapter.SelectCommand = Me.CommandCollection(0)
19329             If (Me.ClearBeforeFill = true) Then
19330                 dataTable.Clear
19331             End If
19332             Dim returnValue As Integer = Me.Adapter.Fill(dataTable)
19333             Return returnValue
19334         End Function
19335         
19336         <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
19337          Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0"), _
19338          Global.System.ComponentModel.Design.HelpKeywordAttribute("vs.data.TableAdapter"), _
19339          Global.System.ComponentModel.DataObjectMethodAttribute(Global.System.ComponentModel.DataObjectMethodType.[Select], true)> _
19340         Public Overloads Overridable Function GetData() As SIS_DBDataSet.Temp_StockDataTable
19341             Me.Adapter.SelectCommand = Me.CommandCollection(0)
19342             Dim dataTable As SIS_DBDataSet.Temp_StockDataTable = New SIS_DBDataSet.Temp_StockDataTable()
19343             Me.Adapter.Fill(dataTable)
19344             Return dataTable
19345         End Function
19346         
19347         <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
19348          Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0"), _
19349          Global.System.ComponentModel.Design.HelpKeywordAttribute("vs.data.TableAdapter")> _
19350         Public Overloads Overridable Function Update(ByVal dataTable As SIS_DBDataSet.Temp_StockDataTable) As Integer
19351             Return Me.Adapter.Update(dataTable)
19352         End Function
19353         
19354         <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
19355          Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0"), _
19356          Global.System.ComponentModel.Design.HelpKeywordAttribute("vs.data.TableAdapter")> _
19357         Public Overloads Overridable Function Update(ByVal dataSet As SIS_DBDataSet) As Integer
19358             Return Me.Adapter.Update(dataSet, "Temp_Stock")
19359         End Function
19360         
19361         <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
19362          Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0"), _
19363          Global.System.ComponentModel.Design.HelpKeywordAttribute("vs.data.TableAdapter")> _
19364         Public Overloads Overridable Function Update(ByVal dataRow As Global.System.Data.DataRow) As Integer
19365             Return Me.Adapter.Update(New Global.System.Data.DataRow() {dataRow})
19366         End Function
19367         
19368         <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
19369          Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0"), _
19370          Global.System.ComponentModel.Design.HelpKeywordAttribute("vs.data.TableAdapter")> _
19371         Public Overloads Overridable Function Update(ByVal dataRows() As Global.System.Data.DataRow) As Integer
19372             Return Me.Adapter.Update(dataRows)
19373         End Function
19374         
19375         <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
19376          Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0"), _
19377          Global.System.ComponentModel.Design.HelpKeywordAttribute("vs.data.TableAdapter"), _
19378          Global.System.ComponentModel.DataObjectMethodAttribute(Global.System.ComponentModel.DataObjectMethodType.Delete, true)> _
19379         Public Overloads Overridable Function Delete(ByVal Original_ProductID As Integer, ByVal Original_Qty As Integer) As Integer
19380             Me.Adapter.DeleteCommand.Parameters(0).Value = CType(Original_ProductID,Integer)
19381             Me.Adapter.DeleteCommand.Parameters(1).Value = CType(Original_Qty,Integer)
19382             Dim previousConnectionState As Global.System.Data.ConnectionState = Me.Adapter.DeleteCommand.Connection.State
19383             If ((Me.Adapter.DeleteCommand.Connection.State And Global.System.Data.ConnectionState.Open) _
19384                         <> Global.System.Data.ConnectionState.Open) Then
19385                 Me.Adapter.DeleteCommand.Connection.Open
19386             End If
19387             Try
19388                 Dim returnValue As Integer = Me.Adapter.DeleteCommand.ExecuteNonQuery
19389                 Return returnValue
19390             Finally
19391                 If (previousConnectionState = Global.System.Data.ConnectionState.Closed) Then
19392                     Me.Adapter.DeleteCommand.Connection.Close
19393                 End If
19394             End Try
19395         End Function
19396         
19397         <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
19398          Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0"), _
19399          Global.System.ComponentModel.Design.HelpKeywordAttribute("vs.data.TableAdapter"), _
19400          Global.System.ComponentModel.DataObjectMethodAttribute(Global.System.ComponentModel.DataObjectMethodType.Insert, true)> _
19401         Public Overloads Overridable Function Insert(ByVal ProductID As Integer, ByVal Qty As Integer) As Integer
19402             Me.Adapter.InsertCommand.Parameters(0).Value = CType(ProductID,Integer)
19403             Me.Adapter.InsertCommand.Parameters(1).Value = CType(Qty,Integer)
19404             Dim previousConnectionState As Global.System.Data.ConnectionState = Me.Adapter.InsertCommand.Connection.State
19405             If ((Me.Adapter.InsertCommand.Connection.State And Global.System.Data.ConnectionState.Open) _
19406                         <> Global.System.Data.ConnectionState.Open) Then
19407                 Me.Adapter.InsertCommand.Connection.Open
19408             End If
19409             Try
19410                 Dim returnValue As Integer = Me.Adapter.InsertCommand.ExecuteNonQuery
19411                 Return returnValue
19412             Finally
19413                 If (previousConnectionState = Global.System.Data.ConnectionState.Closed) Then
19414                     Me.Adapter.InsertCommand.Connection.Close
19415                 End If
19416             End Try
19417         End Function
19418         
19419         <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
19420          Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0"), _
19421          Global.System.ComponentModel.Design.HelpKeywordAttribute("vs.data.TableAdapter"), _
19422          Global.System.ComponentModel.DataObjectMethodAttribute(Global.System.ComponentModel.DataObjectMethodType.Update, true)> _
19423         Public Overloads Overridable Function Update(ByVal ProductID As Integer, ByVal Qty As Integer, ByVal Original_ProductID As Integer, ByVal Original_Qty As Integer) As Integer
19424             Me.Adapter.UpdateCommand.Parameters(0).Value = CType(ProductID,Integer)
19425             Me.Adapter.UpdateCommand.Parameters(1).Value = CType(Qty,Integer)
19426             Me.Adapter.UpdateCommand.Parameters(2).Value = CType(Original_ProductID,Integer)
19427             Me.Adapter.UpdateCommand.Parameters(3).Value = CType(Original_Qty,Integer)
19428             Dim previousConnectionState As Global.System.Data.ConnectionState = Me.Adapter.UpdateCommand.Connection.State
19429             If ((Me.Adapter.UpdateCommand.Connection.State And Global.System.Data.ConnectionState.Open) _
19430                         <> Global.System.Data.ConnectionState.Open) Then
19431                 Me.Adapter.UpdateCommand.Connection.Open
19432             End If
19433             Try
19434                 Dim returnValue As Integer = Me.Adapter.UpdateCommand.ExecuteNonQuery
19435                 Return returnValue
19436             Finally
19437                 If (previousConnectionState = Global.System.Data.ConnectionState.Closed) Then
19438                     Me.Adapter.UpdateCommand.Connection.Close
19439                 End If
19440             End Try
19441         End Function
19442         
19443         <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
19444          Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0"), _
19445          Global.System.ComponentModel.Design.HelpKeywordAttribute("vs.data.TableAdapter"), _
19446          Global.System.ComponentModel.DataObjectMethodAttribute(Global.System.ComponentModel.DataObjectMethodType.Update, true)> _
19447         Public Overloads Overridable Function Update(ByVal Qty As Integer, ByVal Original_ProductID As Integer, ByVal Original_Qty As Integer) As Integer
19448             Return Me.Update(Original_ProductID, Qty, Original_ProductID, Original_Qty)
19449         End Function
19450     End Class
19451     
19452     '''<summary>
19453     '''TableAdapterManager is used to coordinate TableAdapters in the dataset to enable Hierarchical Update scenarios
19454     '''</summary>
19455     <Global.System.ComponentModel.DesignerCategoryAttribute("code"), _
19456      Global.System.ComponentModel.ToolboxItem(true), _
19457      Global.System.ComponentModel.DesignerAttribute("Microsoft.VSDesigner.DataSource.Design.TableAdapterManagerDesigner, Microsoft.VSD"& _
19458         "esigner, Version=10.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a"), _
19459      Global.System.ComponentModel.Design.HelpKeywordAttribute("vs.data.TableAdapterManager")> _
19460     Partial Public Class TableAdapterManager
19461         Inherits Global.System.ComponentModel.Component
19462         
19463         Private _updateOrder As UpdateOrderOption
19464         
19465         Private _activationTableAdapter As ActivationTableAdapter
19466         
19467         Private _categoryTableAdapter As CategoryTableAdapter
19468         
19469         Private _companyTableAdapter As CompanyTableAdapter
19470         
19471         Private _company_ContactsTableAdapter As Company_ContactsTableAdapter
19472         
19473         Private _customerTableAdapter As CustomerTableAdapter
19474         
19475         Private _invoice_PaymentTableAdapter As Invoice_PaymentTableAdapter
19476         
19477         Private _invoice_ProductTableAdapter As Invoice_ProductTableAdapter
19478         
19479         Private _invoiceInfoTableAdapter As InvoiceInfoTableAdapter
19480         
19481         Private _logsTableAdapter As LogsTableAdapter
19482         
19483         Private _productTableAdapter As ProductTableAdapter
19484         
19485         Private _product_JoinTableAdapter As Product_JoinTableAdapter
19486         
19487         Private _quotationTableAdapter As QuotationTableAdapter
19488         
19489         Private _quotation_JoinTableAdapter As Quotation_JoinTableAdapter
19490         
19491         Private _registrationTableAdapter As RegistrationTableAdapter
19492         
19493         Private _serviceTableAdapter As ServiceTableAdapter
19494         
19495         Private _stockTableAdapter As StockTableAdapter
19496         
19497         Private _stock_ProductTableAdapter As Stock_ProductTableAdapter
19498         
19499         Private _subCategoryTableAdapter As SubCategoryTableAdapter
19500         
19501         Private _supplierTableAdapter As SupplierTableAdapter
19502         
19503         Private _temp_StockTableAdapter As Temp_StockTableAdapter
19504         
19505         Private _backupDataSetBeforeUpdate As Boolean
19506         
19507         Private _connection As Global.System.Data.IDbConnection
19508         
19509         <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
19510          Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0")> _
19511         Public Property UpdateOrder() As UpdateOrderOption
19512             Get
19513                 Return Me._updateOrder
19514             End Get
19515             Set
19516                 Me._updateOrder = value
19517             End Set
19518         End Property
19519         
19520         <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
19521          Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0"), _
19522          Global.System.ComponentModel.EditorAttribute("Microsoft.VSDesigner.DataSource.Design.TableAdapterManagerPropertyEditor, Microso"& _
19523             "ft.VSDesigner, Version=10.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3"& _
19524             "a", "System.Drawing.Design.UITypeEditor")> _
19525         Public Property ActivationTableAdapter() As ActivationTableAdapter
19526             Get
19527                 Return Me._activationTableAdapter
19528             End Get
19529             Set
19530                 Me._activationTableAdapter = value
19531             End Set
19532         End Property
19533         
19534         <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
19535          Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0"), _
19536          Global.System.ComponentModel.EditorAttribute("Microsoft.VSDesigner.DataSource.Design.TableAdapterManagerPropertyEditor, Microso"& _
19537             "ft.VSDesigner, Version=10.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3"& _
19538             "a", "System.Drawing.Design.UITypeEditor")> _
19539         Public Property CategoryTableAdapter() As CategoryTableAdapter
19540             Get
19541                 Return Me._categoryTableAdapter
19542             End Get
19543             Set
19544                 Me._categoryTableAdapter = value
19545             End Set
19546         End Property
19547         
19548         <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
19549          Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0"), _
19550          Global.System.ComponentModel.EditorAttribute("Microsoft.VSDesigner.DataSource.Design.TableAdapterManagerPropertyEditor, Microso"& _
19551             "ft.VSDesigner, Version=10.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3"& _
19552             "a", "System.Drawing.Design.UITypeEditor")> _
19553         Public Property CompanyTableAdapter() As CompanyTableAdapter
19554             Get
19555                 Return Me._companyTableAdapter
19556             End Get
19557             Set
19558                 Me._companyTableAdapter = value
19559             End Set
19560         End Property
19561         
19562         <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
19563          Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0"), _
19564          Global.System.ComponentModel.EditorAttribute("Microsoft.VSDesigner.DataSource.Design.TableAdapterManagerPropertyEditor, Microso"& _
19565             "ft.VSDesigner, Version=10.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3"& _
19566             "a", "System.Drawing.Design.UITypeEditor")> _
19567         Public Property Company_ContactsTableAdapter() As Company_ContactsTableAdapter
19568             Get
19569                 Return Me._company_ContactsTableAdapter
19570             End Get
19571             Set
19572                 Me._company_ContactsTableAdapter = value
19573             End Set
19574         End Property
19575         
19576         <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
19577          Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0"), _
19578          Global.System.ComponentModel.EditorAttribute("Microsoft.VSDesigner.DataSource.Design.TableAdapterManagerPropertyEditor, Microso"& _
19579             "ft.VSDesigner, Version=10.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3"& _
19580             "a", "System.Drawing.Design.UITypeEditor")> _
19581         Public Property CustomerTableAdapter() As CustomerTableAdapter
19582             Get
19583                 Return Me._customerTableAdapter
19584             End Get
19585             Set
19586                 Me._customerTableAdapter = value
19587             End Set
19588         End Property
19589         
19590         <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
19591          Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0"), _
19592          Global.System.ComponentModel.EditorAttribute("Microsoft.VSDesigner.DataSource.Design.TableAdapterManagerPropertyEditor, Microso"& _
19593             "ft.VSDesigner, Version=10.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3"& _
19594             "a", "System.Drawing.Design.UITypeEditor")> _
19595         Public Property Invoice_PaymentTableAdapter() As Invoice_PaymentTableAdapter
19596             Get
19597                 Return Me._invoice_PaymentTableAdapter
19598             End Get
19599             Set
19600                 Me._invoice_PaymentTableAdapter = value
19601             End Set
19602         End Property
19603         
19604         <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
19605          Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0"), _
19606          Global.System.ComponentModel.EditorAttribute("Microsoft.VSDesigner.DataSource.Design.TableAdapterManagerPropertyEditor, Microso"& _
19607             "ft.VSDesigner, Version=10.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3"& _
19608             "a", "System.Drawing.Design.UITypeEditor")> _
19609         Public Property Invoice_ProductTableAdapter() As Invoice_ProductTableAdapter
19610             Get
19611                 Return Me._invoice_ProductTableAdapter
19612             End Get
19613             Set
19614                 Me._invoice_ProductTableAdapter = value
19615             End Set
19616         End Property
19617         
19618         <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
19619          Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0"), _
19620          Global.System.ComponentModel.EditorAttribute("Microsoft.VSDesigner.DataSource.Design.TableAdapterManagerPropertyEditor, Microso"& _
19621             "ft.VSDesigner, Version=10.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3"& _
19622             "a", "System.Drawing.Design.UITypeEditor")> _
19623         Public Property InvoiceInfoTableAdapter() As InvoiceInfoTableAdapter
19624             Get
19625                 Return Me._invoiceInfoTableAdapter
19626             End Get
19627             Set
19628                 Me._invoiceInfoTableAdapter = value
19629             End Set
19630         End Property
19631         
19632         <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
19633          Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0"), _
19634          Global.System.ComponentModel.EditorAttribute("Microsoft.VSDesigner.DataSource.Design.TableAdapterManagerPropertyEditor, Microso"& _
19635             "ft.VSDesigner, Version=10.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3"& _
19636             "a", "System.Drawing.Design.UITypeEditor")> _
19637         Public Property LogsTableAdapter() As LogsTableAdapter
19638             Get
19639                 Return Me._logsTableAdapter
19640             End Get
19641             Set
19642                 Me._logsTableAdapter = value
19643             End Set
19644         End Property
19645         
19646         <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
19647          Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0"), _
19648          Global.System.ComponentModel.EditorAttribute("Microsoft.VSDesigner.DataSource.Design.TableAdapterManagerPropertyEditor, Microso"& _
19649             "ft.VSDesigner, Version=10.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3"& _
19650             "a", "System.Drawing.Design.UITypeEditor")> _
19651         Public Property ProductTableAdapter() As ProductTableAdapter
19652             Get
19653                 Return Me._productTableAdapter
19654             End Get
19655             Set
19656                 Me._productTableAdapter = value
19657             End Set
19658         End Property
19659         
19660         <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
19661          Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0"), _
19662          Global.System.ComponentModel.EditorAttribute("Microsoft.VSDesigner.DataSource.Design.TableAdapterManagerPropertyEditor, Microso"& _
19663             "ft.VSDesigner, Version=10.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3"& _
19664             "a", "System.Drawing.Design.UITypeEditor")> _
19665         Public Property Product_JoinTableAdapter() As Product_JoinTableAdapter
19666             Get
19667                 Return Me._product_JoinTableAdapter
19668             End Get
19669             Set
19670                 Me._product_JoinTableAdapter = value
19671             End Set
19672         End Property
19673         
19674         <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
19675          Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0"), _
19676          Global.System.ComponentModel.EditorAttribute("Microsoft.VSDesigner.DataSource.Design.TableAdapterManagerPropertyEditor, Microso"& _
19677             "ft.VSDesigner, Version=10.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3"& _
19678             "a", "System.Drawing.Design.UITypeEditor")> _
19679         Public Property QuotationTableAdapter() As QuotationTableAdapter
19680             Get
19681                 Return Me._quotationTableAdapter
19682             End Get
19683             Set
19684                 Me._quotationTableAdapter = value
19685             End Set
19686         End Property
19687         
19688         <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
19689          Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0"), _
19690          Global.System.ComponentModel.EditorAttribute("Microsoft.VSDesigner.DataSource.Design.TableAdapterManagerPropertyEditor, Microso"& _
19691             "ft.VSDesigner, Version=10.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3"& _
19692             "a", "System.Drawing.Design.UITypeEditor")> _
19693         Public Property Quotation_JoinTableAdapter() As Quotation_JoinTableAdapter
19694             Get
19695                 Return Me._quotation_JoinTableAdapter
19696             End Get
19697             Set
19698                 Me._quotation_JoinTableAdapter = value
19699             End Set
19700         End Property
19701         
19702         <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
19703          Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0"), _
19704          Global.System.ComponentModel.EditorAttribute("Microsoft.VSDesigner.DataSource.Design.TableAdapterManagerPropertyEditor, Microso"& _
19705             "ft.VSDesigner, Version=10.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3"& _
19706             "a", "System.Drawing.Design.UITypeEditor")> _
19707         Public Property RegistrationTableAdapter() As RegistrationTableAdapter
19708             Get
19709                 Return Me._registrationTableAdapter
19710             End Get
19711             Set
19712                 Me._registrationTableAdapter = value
19713             End Set
19714         End Property
19715         
19716         <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
19717          Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0"), _
19718          Global.System.ComponentModel.EditorAttribute("Microsoft.VSDesigner.DataSource.Design.TableAdapterManagerPropertyEditor, Microso"& _
19719             "ft.VSDesigner, Version=10.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3"& _
19720             "a", "System.Drawing.Design.UITypeEditor")> _
19721         Public Property ServiceTableAdapter() As ServiceTableAdapter
19722             Get
19723                 Return Me._serviceTableAdapter
19724             End Get
19725             Set
19726                 Me._serviceTableAdapter = value
19727             End Set
19728         End Property
19729         
19730         <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
19731          Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0"), _
19732          Global.System.ComponentModel.EditorAttribute("Microsoft.VSDesigner.DataSource.Design.TableAdapterManagerPropertyEditor, Microso"& _
19733             "ft.VSDesigner, Version=10.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3"& _
19734             "a", "System.Drawing.Design.UITypeEditor")> _
19735         Public Property StockTableAdapter() As StockTableAdapter
19736             Get
19737                 Return Me._stockTableAdapter
19738             End Get
19739             Set
19740                 Me._stockTableAdapter = value
19741             End Set
19742         End Property
19743         
19744         <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
19745          Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0"), _
19746          Global.System.ComponentModel.EditorAttribute("Microsoft.VSDesigner.DataSource.Design.TableAdapterManagerPropertyEditor, Microso"& _
19747             "ft.VSDesigner, Version=10.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3"& _
19748             "a", "System.Drawing.Design.UITypeEditor")> _
19749         Public Property Stock_ProductTableAdapter() As Stock_ProductTableAdapter
19750             Get
19751                 Return Me._stock_ProductTableAdapter
19752             End Get
19753             Set
19754                 Me._stock_ProductTableAdapter = value
19755             End Set
19756         End Property
19757         
19758         <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
19759          Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0"), _
19760          Global.System.ComponentModel.EditorAttribute("Microsoft.VSDesigner.DataSource.Design.TableAdapterManagerPropertyEditor, Microso"& _
19761             "ft.VSDesigner, Version=10.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3"& _
19762             "a", "System.Drawing.Design.UITypeEditor")> _
19763         Public Property SubCategoryTableAdapter() As SubCategoryTableAdapter
19764             Get
19765                 Return Me._subCategoryTableAdapter
19766             End Get
19767             Set
19768                 Me._subCategoryTableAdapter = value
19769             End Set
19770         End Property
19771         
19772         <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
19773          Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0"), _
19774          Global.System.ComponentModel.EditorAttribute("Microsoft.VSDesigner.DataSource.Design.TableAdapterManagerPropertyEditor, Microso"& _
19775             "ft.VSDesigner, Version=10.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3"& _
19776             "a", "System.Drawing.Design.UITypeEditor")> _
19777         Public Property SupplierTableAdapter() As SupplierTableAdapter
19778             Get
19779                 Return Me._supplierTableAdapter
19780             End Get
19781             Set
19782                 Me._supplierTableAdapter = value
19783             End Set
19784         End Property
19785         
19786         <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
19787          Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0"), _
19788          Global.System.ComponentModel.EditorAttribute("Microsoft.VSDesigner.DataSource.Design.TableAdapterManagerPropertyEditor, Microso"& _
19789             "ft.VSDesigner, Version=10.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3"& _
19790             "a", "System.Drawing.Design.UITypeEditor")> _
19791         Public Property Temp_StockTableAdapter() As Temp_StockTableAdapter
19792             Get
19793                 Return Me._temp_StockTableAdapter
19794             End Get
19795             Set
19796                 Me._temp_StockTableAdapter = value
19797             End Set
19798         End Property
19799         
19800         <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
19801          Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0")> _
19802         Public Property BackupDataSetBeforeUpdate() As Boolean
19803             Get
19804                 Return Me._backupDataSetBeforeUpdate
19805             End Get
19806             Set
19807                 Me._backupDataSetBeforeUpdate = value
19808             End Set
19809         End Property
19810         
19811         <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
19812          Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0"), _
19813          Global.System.ComponentModel.Browsable(false)> _
19814         Public Property Connection() As Global.System.Data.IDbConnection
19815             Get
19816                 If (Not (Me._connection) Is Nothing) Then
19817                     Return Me._connection
19818                 End If
19819                 If ((Not (Me._activationTableAdapter) Is Nothing) _
19820                             AndAlso (Not (Me._activationTableAdapter.Connection) Is Nothing)) Then
19821                     Return Me._activationTableAdapter.Connection
19822                 End If
19823                 If ((Not (Me._categoryTableAdapter) Is Nothing) _
19824                             AndAlso (Not (Me._categoryTableAdapter.Connection) Is Nothing)) Then
19825                     Return Me._categoryTableAdapter.Connection
19826                 End If
19827                 If ((Not (Me._companyTableAdapter) Is Nothing) _
19828                             AndAlso (Not (Me._companyTableAdapter.Connection) Is Nothing)) Then
19829                     Return Me._companyTableAdapter.Connection
19830                 End If
19831                 If ((Not (Me._company_ContactsTableAdapter) Is Nothing) _
19832                             AndAlso (Not (Me._company_ContactsTableAdapter.Connection) Is Nothing)) Then
19833                     Return Me._company_ContactsTableAdapter.Connection
19834                 End If
19835                 If ((Not (Me._customerTableAdapter) Is Nothing) _
19836                             AndAlso (Not (Me._customerTableAdapter.Connection) Is Nothing)) Then
19837                     Return Me._customerTableAdapter.Connection
19838                 End If
19839                 If ((Not (Me._invoice_PaymentTableAdapter) Is Nothing) _
19840                             AndAlso (Not (Me._invoice_PaymentTableAdapter.Connection) Is Nothing)) Then
19841                     Return Me._invoice_PaymentTableAdapter.Connection
19842                 End If
19843                 If ((Not (Me._invoice_ProductTableAdapter) Is Nothing) _
19844                             AndAlso (Not (Me._invoice_ProductTableAdapter.Connection) Is Nothing)) Then
19845                     Return Me._invoice_ProductTableAdapter.Connection
19846                 End If
19847                 If ((Not (Me._invoiceInfoTableAdapter) Is Nothing) _
19848                             AndAlso (Not (Me._invoiceInfoTableAdapter.Connection) Is Nothing)) Then
19849                     Return Me._invoiceInfoTableAdapter.Connection
19850                 End If
19851                 If ((Not (Me._logsTableAdapter) Is Nothing) _
19852                             AndAlso (Not (Me._logsTableAdapter.Connection) Is Nothing)) Then
19853                     Return Me._logsTableAdapter.Connection
19854                 End If
19855                 If ((Not (Me._productTableAdapter) Is Nothing) _
19856                             AndAlso (Not (Me._productTableAdapter.Connection) Is Nothing)) Then
19857                     Return Me._productTableAdapter.Connection
19858                 End If
19859                 If ((Not (Me._product_JoinTableAdapter) Is Nothing) _
19860                             AndAlso (Not (Me._product_JoinTableAdapter.Connection) Is Nothing)) Then
19861                     Return Me._product_JoinTableAdapter.Connection
19862                 End If
19863                 If ((Not (Me._quotationTableAdapter) Is Nothing) _
19864                             AndAlso (Not (Me._quotationTableAdapter.Connection) Is Nothing)) Then
19865                     Return Me._quotationTableAdapter.Connection
19866                 End If
19867                 If ((Not (Me._quotation_JoinTableAdapter) Is Nothing) _
19868                             AndAlso (Not (Me._quotation_JoinTableAdapter.Connection) Is Nothing)) Then
19869                     Return Me._quotation_JoinTableAdapter.Connection
19870                 End If
19871                 If ((Not (Me._registrationTableAdapter) Is Nothing) _
19872                             AndAlso (Not (Me._registrationTableAdapter.Connection) Is Nothing)) Then
19873                     Return Me._registrationTableAdapter.Connection
19874                 End If
19875                 If ((Not (Me._serviceTableAdapter) Is Nothing) _
19876                             AndAlso (Not (Me._serviceTableAdapter.Connection) Is Nothing)) Then
19877                     Return Me._serviceTableAdapter.Connection
19878                 End If
19879                 If ((Not (Me._stockTableAdapter) Is Nothing) _
19880                             AndAlso (Not (Me._stockTableAdapter.Connection) Is Nothing)) Then
19881                     Return Me._stockTableAdapter.Connection
19882                 End If
19883                 If ((Not (Me._stock_ProductTableAdapter) Is Nothing) _
19884                             AndAlso (Not (Me._stock_ProductTableAdapter.Connection) Is Nothing)) Then
19885                     Return Me._stock_ProductTableAdapter.Connection
19886                 End If
19887                 If ((Not (Me._subCategoryTableAdapter) Is Nothing) _
19888                             AndAlso (Not (Me._subCategoryTableAdapter.Connection) Is Nothing)) Then
19889                     Return Me._subCategoryTableAdapter.Connection
19890                 End If
19891                 If ((Not (Me._supplierTableAdapter) Is Nothing) _
19892                             AndAlso (Not (Me._supplierTableAdapter.Connection) Is Nothing)) Then
19893                     Return Me._supplierTableAdapter.Connection
19894                 End If
19895                 If ((Not (Me._temp_StockTableAdapter) Is Nothing) _
19896                             AndAlso (Not (Me._temp_StockTableAdapter.Connection) Is Nothing)) Then
19897                     Return Me._temp_StockTableAdapter.Connection
19898                 End If
19899                 Return Nothing
19900             End Get
19901             Set
19902                 Me._connection = value
19903             End Set
19904         End Property
19905         
19906         <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
19907          Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0"), _
19908          Global.System.ComponentModel.Browsable(false)> _
19909         Public ReadOnly Property TableAdapterInstanceCount() As Integer
19910             Get
19911                 Dim count As Integer = 0
19912                 If (Not (Me._activationTableAdapter) Is Nothing) Then
19913                     count = (count + 1)
19914                 End If
19915                 If (Not (Me._categoryTableAdapter) Is Nothing) Then
19916                     count = (count + 1)
19917                 End If
19918                 If (Not (Me._companyTableAdapter) Is Nothing) Then
19919                     count = (count + 1)
19920                 End If
19921                 If (Not (Me._company_ContactsTableAdapter) Is Nothing) Then
19922                     count = (count + 1)
19923                 End If
19924                 If (Not (Me._customerTableAdapter) Is Nothing) Then
19925                     count = (count + 1)
19926                 End If
19927                 If (Not (Me._invoice_PaymentTableAdapter) Is Nothing) Then
19928                     count = (count + 1)
19929                 End If
19930                 If (Not (Me._invoice_ProductTableAdapter) Is Nothing) Then
19931                     count = (count + 1)
19932                 End If
19933                 If (Not (Me._invoiceInfoTableAdapter) Is Nothing) Then
19934                     count = (count + 1)
19935                 End If
19936                 If (Not (Me._logsTableAdapter) Is Nothing) Then
19937                     count = (count + 1)
19938                 End If
19939                 If (Not (Me._productTableAdapter) Is Nothing) Then
19940                     count = (count + 1)
19941                 End If
19942                 If (Not (Me._product_JoinTableAdapter) Is Nothing) Then
19943                     count = (count + 1)
19944                 End If
19945                 If (Not (Me._quotationTableAdapter) Is Nothing) Then
19946                     count = (count + 1)
19947                 End If
19948                 If (Not (Me._quotation_JoinTableAdapter) Is Nothing) Then
19949                     count = (count + 1)
19950                 End If
19951                 If (Not (Me._registrationTableAdapter) Is Nothing) Then
19952                     count = (count + 1)
19953                 End If
19954                 If (Not (Me._serviceTableAdapter) Is Nothing) Then
19955                     count = (count + 1)
19956                 End If
19957                 If (Not (Me._stockTableAdapter) Is Nothing) Then
19958                     count = (count + 1)
19959                 End If
19960                 If (Not (Me._stock_ProductTableAdapter) Is Nothing) Then
19961                     count = (count + 1)
19962                 End If
19963                 If (Not (Me._subCategoryTableAdapter) Is Nothing) Then
19964                     count = (count + 1)
19965                 End If
19966                 If (Not (Me._supplierTableAdapter) Is Nothing) Then
19967                     count = (count + 1)
19968                 End If
19969                 If (Not (Me._temp_StockTableAdapter) Is Nothing) Then
19970                     count = (count + 1)
19971                 End If
19972                 Return count
19973             End Get
19974         End Property
19975         
19976         '''<summary>
19977         '''Update rows in top-down order.
19978         '''</summary>
19979         <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
19980          Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0")> _
19981         Private Function UpdateUpdatedRows(ByVal dataSet As SIS_DBDataSet, ByVal allChangedRows As Global.System.Collections.Generic.List(Of Global.System.Data.DataRow), ByVal allAddedRows As Global.System.Collections.Generic.List(Of Global.System.Data.DataRow)) As Integer
19982             Dim result As Integer = 0
19983             If (Not (Me._categoryTableAdapter) Is Nothing) Then
19984                 Dim updatedRows() As Global.System.Data.DataRow = dataSet.Category.Select(Nothing, Nothing, Global.System.Data.DataViewRowState.ModifiedCurrent)
19985                 updatedRows = Me.GetRealUpdatedRows(updatedRows, allAddedRows)
19986                 If ((Not (updatedRows) Is Nothing) _
19987                             AndAlso (0 < updatedRows.Length)) Then
19988                     result = (result + Me._categoryTableAdapter.Update(updatedRows))
19989                     allChangedRows.AddRange(updatedRows)
19990                 End If
19991             End If
19992             If (Not (Me._supplierTableAdapter) Is Nothing) Then
19993                 Dim updatedRows() As Global.System.Data.DataRow = dataSet.Supplier.Select(Nothing, Nothing, Global.System.Data.DataViewRowState.ModifiedCurrent)
19994                 updatedRows = Me.GetRealUpdatedRows(updatedRows, allAddedRows)
19995                 If ((Not (updatedRows) Is Nothing) _
19996                             AndAlso (0 < updatedRows.Length)) Then
19997                     result = (result + Me._supplierTableAdapter.Update(updatedRows))
19998                     allChangedRows.AddRange(updatedRows)
19999                 End If
20000             End If
20001             If (Not (Me._customerTableAdapter) Is Nothing) Then
20002                 Dim updatedRows() As Global.System.Data.DataRow = dataSet.Customer.Select(Nothing, Nothing, Global.System.Data.DataViewRowState.ModifiedCurrent)
20003                 updatedRows = Me.GetRealUpdatedRows(updatedRows, allAddedRows)
20004                 If ((Not (updatedRows) Is Nothing) _
20005                             AndAlso (0 < updatedRows.Length)) Then
20006                     result = (result + Me._customerTableAdapter.Update(updatedRows))
20007                     allChangedRows.AddRange(updatedRows)
20008                 End If
20009             End If
20010             If (Not (Me._subCategoryTableAdapter) Is Nothing) Then
20011                 Dim updatedRows() As Global.System.Data.DataRow = dataSet.SubCategory.Select(Nothing, Nothing, Global.System.Data.DataViewRowState.ModifiedCurrent)
20012                 updatedRows = Me.GetRealUpdatedRows(updatedRows, allAddedRows)
20013                 If ((Not (updatedRows) Is Nothing) _
20014                             AndAlso (0 < updatedRows.Length)) Then
20015                     result = (result + Me._subCategoryTableAdapter.Update(updatedRows))
20016                     allChangedRows.AddRange(updatedRows)
20017                 End If
20018             End If
20019             If (Not (Me._stockTableAdapter) Is Nothing) Then
20020                 Dim updatedRows() As Global.System.Data.DataRow = dataSet.Stock.Select(Nothing, Nothing, Global.System.Data.DataViewRowState.ModifiedCurrent)
20021                 updatedRows = Me.GetRealUpdatedRows(updatedRows, allAddedRows)
20022                 If ((Not (updatedRows) Is Nothing) _
20023                             AndAlso (0 < updatedRows.Length)) Then
20024                     result = (result + Me._stockTableAdapter.Update(updatedRows))
20025                     allChangedRows.AddRange(updatedRows)
20026                 End If
20027             End If
20028             If (Not (Me._registrationTableAdapter) Is Nothing) Then
20029                 Dim updatedRows() As Global.System.Data.DataRow = dataSet.Registration.Select(Nothing, Nothing, Global.System.Data.DataViewRowState.ModifiedCurrent)
20030                 updatedRows = Me.GetRealUpdatedRows(updatedRows, allAddedRows)
20031                 If ((Not (updatedRows) Is Nothing) _
20032                             AndAlso (0 < updatedRows.Length)) Then
20033                     result = (result + Me._registrationTableAdapter.Update(updatedRows))
20034                     allChangedRows.AddRange(updatedRows)
20035                 End If
20036             End If
20037             If (Not (Me._quotationTableAdapter) Is Nothing) Then
20038                 Dim updatedRows() As Global.System.Data.DataRow = dataSet.Quotation.Select(Nothing, Nothing, Global.System.Data.DataViewRowState.ModifiedCurrent)
20039                 updatedRows = Me.GetRealUpdatedRows(updatedRows, allAddedRows)
20040                 If ((Not (updatedRows) Is Nothing) _
20041                             AndAlso (0 < updatedRows.Length)) Then
20042                     result = (result + Me._quotationTableAdapter.Update(updatedRows))
20043                     allChangedRows.AddRange(updatedRows)
20044                 End If
20045             End If
20046             If (Not (Me._invoiceInfoTableAdapter) Is Nothing) Then
20047                 Dim updatedRows() As Global.System.Data.DataRow = dataSet.InvoiceInfo.Select(Nothing, Nothing, Global.System.Data.DataViewRowState.ModifiedCurrent)
20048                 updatedRows = Me.GetRealUpdatedRows(updatedRows, allAddedRows)
20049                 If ((Not (updatedRows) Is Nothing) _
20050                             AndAlso (0 < updatedRows.Length)) Then
20051                     result = (result + Me._invoiceInfoTableAdapter.Update(updatedRows))
20052                     allChangedRows.AddRange(updatedRows)
20053                 End If
20054             End If
20055             If (Not (Me._productTableAdapter) Is Nothing) Then
20056                 Dim updatedRows() As Global.System.Data.DataRow = dataSet.Product.Select(Nothing, Nothing, Global.System.Data.DataViewRowState.ModifiedCurrent)
20057                 updatedRows = Me.GetRealUpdatedRows(updatedRows, allAddedRows)
20058                 If ((Not (updatedRows) Is Nothing) _
20059                             AndAlso (0 < updatedRows.Length)) Then
20060                     result = (result + Me._productTableAdapter.Update(updatedRows))
20061                     allChangedRows.AddRange(updatedRows)
20062                 End If
20063             End If
20064             If (Not (Me._temp_StockTableAdapter) Is Nothing) Then
20065                 Dim updatedRows() As Global.System.Data.DataRow = dataSet.Temp_Stock.Select(Nothing, Nothing, Global.System.Data.DataViewRowState.ModifiedCurrent)
20066                 updatedRows = Me.GetRealUpdatedRows(updatedRows, allAddedRows)
20067                 If ((Not (updatedRows) Is Nothing) _
20068                             AndAlso (0 < updatedRows.Length)) Then
20069                     result = (result + Me._temp_StockTableAdapter.Update(updatedRows))
20070                     allChangedRows.AddRange(updatedRows)
20071                 End If
20072             End If
20073             If (Not (Me._stock_ProductTableAdapter) Is Nothing) Then
20074                 Dim updatedRows() As Global.System.Data.DataRow = dataSet.Stock_Product.Select(Nothing, Nothing, Global.System.Data.DataViewRowState.ModifiedCurrent)
20075                 updatedRows = Me.GetRealUpdatedRows(updatedRows, allAddedRows)
20076                 If ((Not (updatedRows) Is Nothing) _
20077                             AndAlso (0 < updatedRows.Length)) Then
20078                     result = (result + Me._stock_ProductTableAdapter.Update(updatedRows))
20079                     allChangedRows.AddRange(updatedRows)
20080                 End If
20081             End If
20082             If (Not (Me._serviceTableAdapter) Is Nothing) Then
20083                 Dim updatedRows() As Global.System.Data.DataRow = dataSet.Service.Select(Nothing, Nothing, Global.System.Data.DataViewRowState.ModifiedCurrent)
20084                 updatedRows = Me.GetRealUpdatedRows(updatedRows, allAddedRows)
20085                 If ((Not (updatedRows) Is Nothing) _
20086                             AndAlso (0 < updatedRows.Length)) Then
20087                     result = (result + Me._serviceTableAdapter.Update(updatedRows))
20088                     allChangedRows.AddRange(updatedRows)
20089                 End If
20090             End If
20091             If (Not (Me._quotation_JoinTableAdapter) Is Nothing) Then
20092                 Dim updatedRows() As Global.System.Data.DataRow = dataSet.Quotation_Join.Select(Nothing, Nothing, Global.System.Data.DataViewRowState.ModifiedCurrent)
20093                 updatedRows = Me.GetRealUpdatedRows(updatedRows, allAddedRows)
20094                 If ((Not (updatedRows) Is Nothing) _
20095                             AndAlso (0 < updatedRows.Length)) Then
20096                     result = (result + Me._quotation_JoinTableAdapter.Update(updatedRows))
20097                     allChangedRows.AddRange(updatedRows)
20098                 End If
20099             End If
20100             If (Not (Me._invoice_PaymentTableAdapter) Is Nothing) Then
20101                 Dim updatedRows() As Global.System.Data.DataRow = dataSet.Invoice_Payment.Select(Nothing, Nothing, Global.System.Data.DataViewRowState.ModifiedCurrent)
20102                 updatedRows = Me.GetRealUpdatedRows(updatedRows, allAddedRows)
20103                 If ((Not (updatedRows) Is Nothing) _
20104                             AndAlso (0 < updatedRows.Length)) Then
20105                     result = (result + Me._invoice_PaymentTableAdapter.Update(updatedRows))
20106                     allChangedRows.AddRange(updatedRows)
20107                 End If
20108             End If
20109             If (Not (Me._company_ContactsTableAdapter) Is Nothing) Then
20110                 Dim updatedRows() As Global.System.Data.DataRow = dataSet.Company_Contacts.Select(Nothing, Nothing, Global.System.Data.DataViewRowState.ModifiedCurrent)
20111                 updatedRows = Me.GetRealUpdatedRows(updatedRows, allAddedRows)
20112                 If ((Not (updatedRows) Is Nothing) _
20113                             AndAlso (0 < updatedRows.Length)) Then
20114                     result = (result + Me._company_ContactsTableAdapter.Update(updatedRows))
20115                     allChangedRows.AddRange(updatedRows)
20116                 End If
20117             End If
20118             If (Not (Me._companyTableAdapter) Is Nothing) Then
20119                 Dim updatedRows() As Global.System.Data.DataRow = dataSet.Company.Select(Nothing, Nothing, Global.System.Data.DataViewRowState.ModifiedCurrent)
20120                 updatedRows = Me.GetRealUpdatedRows(updatedRows, allAddedRows)
20121                 If ((Not (updatedRows) Is Nothing) _
20122                             AndAlso (0 < updatedRows.Length)) Then
20123                     result = (result + Me._companyTableAdapter.Update(updatedRows))
20124                     allChangedRows.AddRange(updatedRows)
20125                 End If
20126             End If
20127             If (Not (Me._invoice_ProductTableAdapter) Is Nothing) Then
20128                 Dim updatedRows() As Global.System.Data.DataRow = dataSet.Invoice_Product.Select(Nothing, Nothing, Global.System.Data.DataViewRowState.ModifiedCurrent)
20129                 updatedRows = Me.GetRealUpdatedRows(updatedRows, allAddedRows)
20130                 If ((Not (updatedRows) Is Nothing) _
20131                             AndAlso (0 < updatedRows.Length)) Then
20132                     result = (result + Me._invoice_ProductTableAdapter.Update(updatedRows))
20133                     allChangedRows.AddRange(updatedRows)
20134                 End If
20135             End If
20136             If (Not (Me._product_JoinTableAdapter) Is Nothing) Then
20137                 Dim updatedRows() As Global.System.Data.DataRow = dataSet.Product_Join.Select(Nothing, Nothing, Global.System.Data.DataViewRowState.ModifiedCurrent)
20138                 updatedRows = Me.GetRealUpdatedRows(updatedRows, allAddedRows)
20139                 If ((Not (updatedRows) Is Nothing) _
20140                             AndAlso (0 < updatedRows.Length)) Then
20141                     result = (result + Me._product_JoinTableAdapter.Update(updatedRows))
20142                     allChangedRows.AddRange(updatedRows)
20143                 End If
20144             End If
20145             If (Not (Me._activationTableAdapter) Is Nothing) Then
20146                 Dim updatedRows() As Global.System.Data.DataRow = dataSet.Activation.Select(Nothing, Nothing, Global.System.Data.DataViewRowState.ModifiedCurrent)
20147                 updatedRows = Me.GetRealUpdatedRows(updatedRows, allAddedRows)
20148                 If ((Not (updatedRows) Is Nothing) _
20149                             AndAlso (0 < updatedRows.Length)) Then
20150                     result = (result + Me._activationTableAdapter.Update(updatedRows))
20151                     allChangedRows.AddRange(updatedRows)
20152                 End If
20153             End If
20154             If (Not (Me._logsTableAdapter) Is Nothing) Then
20155                 Dim updatedRows() As Global.System.Data.DataRow = dataSet.Logs.Select(Nothing, Nothing, Global.System.Data.DataViewRowState.ModifiedCurrent)
20156                 updatedRows = Me.GetRealUpdatedRows(updatedRows, allAddedRows)
20157                 If ((Not (updatedRows) Is Nothing) _
20158                             AndAlso (0 < updatedRows.Length)) Then
20159                     result = (result + Me._logsTableAdapter.Update(updatedRows))
20160                     allChangedRows.AddRange(updatedRows)
20161                 End If
20162             End If
20163             Return result
20164         End Function
20165         
20166         '''<summary>
20167         '''Insert rows in top-down order.
20168         '''</summary>
20169         <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
20170          Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0")> _
20171         Private Function UpdateInsertedRows(ByVal dataSet As SIS_DBDataSet, ByVal allAddedRows As Global.System.Collections.Generic.List(Of Global.System.Data.DataRow)) As Integer
20172             Dim result As Integer = 0
20173             If (Not (Me._categoryTableAdapter) Is Nothing) Then
20174                 Dim addedRows() As Global.System.Data.DataRow = dataSet.Category.Select(Nothing, Nothing, Global.System.Data.DataViewRowState.Added)
20175                 If ((Not (addedRows) Is Nothing) _
20176                             AndAlso (0 < addedRows.Length)) Then
20177                     result = (result + Me._categoryTableAdapter.Update(addedRows))
20178                     allAddedRows.AddRange(addedRows)
20179                 End If
20180             End If
20181             If (Not (Me._supplierTableAdapter) Is Nothing) Then
20182                 Dim addedRows() As Global.System.Data.DataRow = dataSet.Supplier.Select(Nothing, Nothing, Global.System.Data.DataViewRowState.Added)
20183                 If ((Not (addedRows) Is Nothing) _
20184                             AndAlso (0 < addedRows.Length)) Then
20185                     result = (result + Me._supplierTableAdapter.Update(addedRows))
20186                     allAddedRows.AddRange(addedRows)
20187                 End If
20188             End If
20189             If (Not (Me._customerTableAdapter) Is Nothing) Then
20190                 Dim addedRows() As Global.System.Data.DataRow = dataSet.Customer.Select(Nothing, Nothing, Global.System.Data.DataViewRowState.Added)
20191                 If ((Not (addedRows) Is Nothing) _
20192                             AndAlso (0 < addedRows.Length)) Then
20193                     result = (result + Me._customerTableAdapter.Update(addedRows))
20194                     allAddedRows.AddRange(addedRows)
20195                 End If
20196             End If
20197             If (Not (Me._subCategoryTableAdapter) Is Nothing) Then
20198                 Dim addedRows() As Global.System.Data.DataRow = dataSet.SubCategory.Select(Nothing, Nothing, Global.System.Data.DataViewRowState.Added)
20199                 If ((Not (addedRows) Is Nothing) _
20200                             AndAlso (0 < addedRows.Length)) Then
20201                     result = (result + Me._subCategoryTableAdapter.Update(addedRows))
20202                     allAddedRows.AddRange(addedRows)
20203                 End If
20204             End If
20205             If (Not (Me._stockTableAdapter) Is Nothing) Then
20206                 Dim addedRows() As Global.System.Data.DataRow = dataSet.Stock.Select(Nothing, Nothing, Global.System.Data.DataViewRowState.Added)
20207                 If ((Not (addedRows) Is Nothing) _
20208                             AndAlso (0 < addedRows.Length)) Then
20209                     result = (result + Me._stockTableAdapter.Update(addedRows))
20210                     allAddedRows.AddRange(addedRows)
20211                 End If
20212             End If
20213             If (Not (Me._registrationTableAdapter) Is Nothing) Then
20214                 Dim addedRows() As Global.System.Data.DataRow = dataSet.Registration.Select(Nothing, Nothing, Global.System.Data.DataViewRowState.Added)
20215                 If ((Not (addedRows) Is Nothing) _
20216                             AndAlso (0 < addedRows.Length)) Then
20217                     result = (result + Me._registrationTableAdapter.Update(addedRows))
20218                     allAddedRows.AddRange(addedRows)
20219                 End If
20220             End If
20221             If (Not (Me._quotationTableAdapter) Is Nothing) Then
20222                 Dim addedRows() As Global.System.Data.DataRow = dataSet.Quotation.Select(Nothing, Nothing, Global.System.Data.DataViewRowState.Added)
20223                 If ((Not (addedRows) Is Nothing) _
20224                             AndAlso (0 < addedRows.Length)) Then
20225                     result = (result + Me._quotationTableAdapter.Update(addedRows))
20226                     allAddedRows.AddRange(addedRows)
20227                 End If
20228             End If
20229             If (Not (Me._invoiceInfoTableAdapter) Is Nothing) Then
20230                 Dim addedRows() As Global.System.Data.DataRow = dataSet.InvoiceInfo.Select(Nothing, Nothing, Global.System.Data.DataViewRowState.Added)
20231                 If ((Not (addedRows) Is Nothing) _
20232                             AndAlso (0 < addedRows.Length)) Then
20233                     result = (result + Me._invoiceInfoTableAdapter.Update(addedRows))
20234                     allAddedRows.AddRange(addedRows)
20235                 End If
20236             End If
20237             If (Not (Me._productTableAdapter) Is Nothing) Then
20238                 Dim addedRows() As Global.System.Data.DataRow = dataSet.Product.Select(Nothing, Nothing, Global.System.Data.DataViewRowState.Added)
20239                 If ((Not (addedRows) Is Nothing) _
20240                             AndAlso (0 < addedRows.Length)) Then
20241                     result = (result + Me._productTableAdapter.Update(addedRows))
20242                     allAddedRows.AddRange(addedRows)
20243                 End If
20244             End If
20245             If (Not (Me._temp_StockTableAdapter) Is Nothing) Then
20246                 Dim addedRows() As Global.System.Data.DataRow = dataSet.Temp_Stock.Select(Nothing, Nothing, Global.System.Data.DataViewRowState.Added)
20247                 If ((Not (addedRows) Is Nothing) _
20248                             AndAlso (0 < addedRows.Length)) Then
20249                     result = (result + Me._temp_StockTableAdapter.Update(addedRows))
20250                     allAddedRows.AddRange(addedRows)
20251                 End If
20252             End If
20253             If (Not (Me._stock_ProductTableAdapter) Is Nothing) Then
20254                 Dim addedRows() As Global.System.Data.DataRow = dataSet.Stock_Product.Select(Nothing, Nothing, Global.System.Data.DataViewRowState.Added)
20255                 If ((Not (addedRows) Is Nothing) _
20256                             AndAlso (0 < addedRows.Length)) Then
20257                     result = (result + Me._stock_ProductTableAdapter.Update(addedRows))
20258                     allAddedRows.AddRange(addedRows)
20259                 End If
20260             End If
20261             If (Not (Me._serviceTableAdapter) Is Nothing) Then
20262                 Dim addedRows() As Global.System.Data.DataRow = dataSet.Service.Select(Nothing, Nothing, Global.System.Data.DataViewRowState.Added)
20263                 If ((Not (addedRows) Is Nothing) _
20264                             AndAlso (0 < addedRows.Length)) Then
20265                     result = (result + Me._serviceTableAdapter.Update(addedRows))
20266                     allAddedRows.AddRange(addedRows)
20267                 End If
20268             End If
20269             If (Not (Me._quotation_JoinTableAdapter) Is Nothing) Then
20270                 Dim addedRows() As Global.System.Data.DataRow = dataSet.Quotation_Join.Select(Nothing, Nothing, Global.System.Data.DataViewRowState.Added)
20271                 If ((Not (addedRows) Is Nothing) _
20272                             AndAlso (0 < addedRows.Length)) Then
20273                     result = (result + Me._quotation_JoinTableAdapter.Update(addedRows))
20274                     allAddedRows.AddRange(addedRows)
20275                 End If
20276             End If
20277             If (Not (Me._invoice_PaymentTableAdapter) Is Nothing) Then
20278                 Dim addedRows() As Global.System.Data.DataRow = dataSet.Invoice_Payment.Select(Nothing, Nothing, Global.System.Data.DataViewRowState.Added)
20279                 If ((Not (addedRows) Is Nothing) _
20280                             AndAlso (0 < addedRows.Length)) Then
20281                     result = (result + Me._invoice_PaymentTableAdapter.Update(addedRows))
20282                     allAddedRows.AddRange(addedRows)
20283                 End If
20284             End If
20285             If (Not (Me._company_ContactsTableAdapter) Is Nothing) Then
20286                 Dim addedRows() As Global.System.Data.DataRow = dataSet.Company_Contacts.Select(Nothing, Nothing, Global.System.Data.DataViewRowState.Added)
20287                 If ((Not (addedRows) Is Nothing) _
20288                             AndAlso (0 < addedRows.Length)) Then
20289                     result = (result + Me._company_ContactsTableAdapter.Update(addedRows))
20290                     allAddedRows.AddRange(addedRows)
20291                 End If
20292             End If
20293             If (Not (Me._companyTableAdapter) Is Nothing) Then
20294                 Dim addedRows() As Global.System.Data.DataRow = dataSet.Company.Select(Nothing, Nothing, Global.System.Data.DataViewRowState.Added)
20295                 If ((Not (addedRows) Is Nothing) _
20296                             AndAlso (0 < addedRows.Length)) Then
20297                     result = (result + Me._companyTableAdapter.Update(addedRows))
20298                     allAddedRows.AddRange(addedRows)
20299                 End If
20300             End If
20301             If (Not (Me._invoice_ProductTableAdapter) Is Nothing) Then
20302                 Dim addedRows() As Global.System.Data.DataRow = dataSet.Invoice_Product.Select(Nothing, Nothing, Global.System.Data.DataViewRowState.Added)
20303                 If ((Not (addedRows) Is Nothing) _
20304                             AndAlso (0 < addedRows.Length)) Then
20305                     result = (result + Me._invoice_ProductTableAdapter.Update(addedRows))
20306                     allAddedRows.AddRange(addedRows)
20307                 End If
20308             End If
20309             If (Not (Me._product_JoinTableAdapter) Is Nothing) Then
20310                 Dim addedRows() As Global.System.Data.DataRow = dataSet.Product_Join.Select(Nothing, Nothing, Global.System.Data.DataViewRowState.Added)
20311                 If ((Not (addedRows) Is Nothing) _
20312                             AndAlso (0 < addedRows.Length)) Then
20313                     result = (result + Me._product_JoinTableAdapter.Update(addedRows))
20314                     allAddedRows.AddRange(addedRows)
20315                 End If
20316             End If
20317             If (Not (Me._activationTableAdapter) Is Nothing) Then
20318                 Dim addedRows() As Global.System.Data.DataRow = dataSet.Activation.Select(Nothing, Nothing, Global.System.Data.DataViewRowState.Added)
20319                 If ((Not (addedRows) Is Nothing) _
20320                             AndAlso (0 < addedRows.Length)) Then
20321                     result = (result + Me._activationTableAdapter.Update(addedRows))
20322                     allAddedRows.AddRange(addedRows)
20323                 End If
20324             End If
20325             If (Not (Me._logsTableAdapter) Is Nothing) Then
20326                 Dim addedRows() As Global.System.Data.DataRow = dataSet.Logs.Select(Nothing, Nothing, Global.System.Data.DataViewRowState.Added)
20327                 If ((Not (addedRows) Is Nothing) _
20328                             AndAlso (0 < addedRows.Length)) Then
20329                     result = (result + Me._logsTableAdapter.Update(addedRows))
20330                     allAddedRows.AddRange(addedRows)
20331                 End If
20332             End If
20333             Return result
20334         End Function
20335         
20336         '''<summary>
20337         '''Delete rows in bottom-up order.
20338         '''</summary>
20339         <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
20340          Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0")> _
20341         Private Function UpdateDeletedRows(ByVal dataSet As SIS_DBDataSet, ByVal allChangedRows As Global.System.Collections.Generic.List(Of Global.System.Data.DataRow)) As Integer
20342             Dim result As Integer = 0
20343             If (Not (Me._logsTableAdapter) Is Nothing) Then
20344                 Dim deletedRows() As Global.System.Data.DataRow = dataSet.Logs.Select(Nothing, Nothing, Global.System.Data.DataViewRowState.Deleted)
20345                 If ((Not (deletedRows) Is Nothing) _
20346                             AndAlso (0 < deletedRows.Length)) Then
20347                     result = (result + Me._logsTableAdapter.Update(deletedRows))
20348                     allChangedRows.AddRange(deletedRows)
20349                 End If
20350             End If
20351             If (Not (Me._activationTableAdapter) Is Nothing) Then
20352                 Dim deletedRows() As Global.System.Data.DataRow = dataSet.Activation.Select(Nothing, Nothing, Global.System.Data.DataViewRowState.Deleted)
20353                 If ((Not (deletedRows) Is Nothing) _
20354                             AndAlso (0 < deletedRows.Length)) Then
20355                     result = (result + Me._activationTableAdapter.Update(deletedRows))
20356                     allChangedRows.AddRange(deletedRows)
20357                 End If
20358             End If
20359             If (Not (Me._product_JoinTableAdapter) Is Nothing) Then
20360                 Dim deletedRows() As Global.System.Data.DataRow = dataSet.Product_Join.Select(Nothing, Nothing, Global.System.Data.DataViewRowState.Deleted)
20361                 If ((Not (deletedRows) Is Nothing) _
20362                             AndAlso (0 < deletedRows.Length)) Then
20363                     result = (result + Me._product_JoinTableAdapter.Update(deletedRows))
20364                     allChangedRows.AddRange(deletedRows)
20365                 End If
20366             End If
20367             If (Not (Me._invoice_ProductTableAdapter) Is Nothing) Then
20368                 Dim deletedRows() As Global.System.Data.DataRow = dataSet.Invoice_Product.Select(Nothing, Nothing, Global.System.Data.DataViewRowState.Deleted)
20369                 If ((Not (deletedRows) Is Nothing) _
20370                             AndAlso (0 < deletedRows.Length)) Then
20371                     result = (result + Me._invoice_ProductTableAdapter.Update(deletedRows))
20372                     allChangedRows.AddRange(deletedRows)
20373                 End If
20374             End If
20375             If (Not (Me._companyTableAdapter) Is Nothing) Then
20376                 Dim deletedRows() As Global.System.Data.DataRow = dataSet.Company.Select(Nothing, Nothing, Global.System.Data.DataViewRowState.Deleted)
20377                 If ((Not (deletedRows) Is Nothing) _
20378                             AndAlso (0 < deletedRows.Length)) Then
20379                     result = (result + Me._companyTableAdapter.Update(deletedRows))
20380                     allChangedRows.AddRange(deletedRows)
20381                 End If
20382             End If
20383             If (Not (Me._company_ContactsTableAdapter) Is Nothing) Then
20384                 Dim deletedRows() As Global.System.Data.DataRow = dataSet.Company_Contacts.Select(Nothing, Nothing, Global.System.Data.DataViewRowState.Deleted)
20385                 If ((Not (deletedRows) Is Nothing) _
20386                             AndAlso (0 < deletedRows.Length)) Then
20387                     result = (result + Me._company_ContactsTableAdapter.Update(deletedRows))
20388                     allChangedRows.AddRange(deletedRows)
20389                 End If
20390             End If
20391             If (Not (Me._invoice_PaymentTableAdapter) Is Nothing) Then
20392                 Dim deletedRows() As Global.System.Data.DataRow = dataSet.Invoice_Payment.Select(Nothing, Nothing, Global.System.Data.DataViewRowState.Deleted)
20393                 If ((Not (deletedRows) Is Nothing) _
20394                             AndAlso (0 < deletedRows.Length)) Then
20395                     result = (result + Me._invoice_PaymentTableAdapter.Update(deletedRows))
20396                     allChangedRows.AddRange(deletedRows)
20397                 End If
20398             End If
20399             If (Not (Me._quotation_JoinTableAdapter) Is Nothing) Then
20400                 Dim deletedRows() As Global.System.Data.DataRow = dataSet.Quotation_Join.Select(Nothing, Nothing, Global.System.Data.DataViewRowState.Deleted)
20401                 If ((Not (deletedRows) Is Nothing) _
20402                             AndAlso (0 < deletedRows.Length)) Then
20403                     result = (result + Me._quotation_JoinTableAdapter.Update(deletedRows))
20404                     allChangedRows.AddRange(deletedRows)
20405                 End If
20406             End If
20407             If (Not (Me._serviceTableAdapter) Is Nothing) Then
20408                 Dim deletedRows() As Global.System.Data.DataRow = dataSet.Service.Select(Nothing, Nothing, Global.System.Data.DataViewRowState.Deleted)
20409                 If ((Not (deletedRows) Is Nothing) _
20410                             AndAlso (0 < deletedRows.Length)) Then
20411                     result = (result + Me._serviceTableAdapter.Update(deletedRows))
20412                     allChangedRows.AddRange(deletedRows)
20413                 End If
20414             End If
20415             If (Not (Me._stock_ProductTableAdapter) Is Nothing) Then
20416                 Dim deletedRows() As Global.System.Data.DataRow = dataSet.Stock_Product.Select(Nothing, Nothing, Global.System.Data.DataViewRowState.Deleted)
20417                 If ((Not (deletedRows) Is Nothing) _
20418                             AndAlso (0 < deletedRows.Length)) Then
20419                     result = (result + Me._stock_ProductTableAdapter.Update(deletedRows))
20420                     allChangedRows.AddRange(deletedRows)
20421                 End If
20422             End If
20423             If (Not (Me._temp_StockTableAdapter) Is Nothing) Then
20424                 Dim deletedRows() As Global.System.Data.DataRow = dataSet.Temp_Stock.Select(Nothing, Nothing, Global.System.Data.DataViewRowState.Deleted)
20425                 If ((Not (deletedRows) Is Nothing) _
20426                             AndAlso (0 < deletedRows.Length)) Then
20427                     result = (result + Me._temp_StockTableAdapter.Update(deletedRows))
20428                     allChangedRows.AddRange(deletedRows)
20429                 End If
20430             End If
20431             If (Not (Me._productTableAdapter) Is Nothing) Then
20432                 Dim deletedRows() As Global.System.Data.DataRow = dataSet.Product.Select(Nothing, Nothing, Global.System.Data.DataViewRowState.Deleted)
20433                 If ((Not (deletedRows) Is Nothing) _
20434                             AndAlso (0 < deletedRows.Length)) Then
20435                     result = (result + Me._productTableAdapter.Update(deletedRows))
20436                     allChangedRows.AddRange(deletedRows)
20437                 End If
20438             End If
20439             If (Not (Me._invoiceInfoTableAdapter) Is Nothing) Then
20440                 Dim deletedRows() As Global.System.Data.DataRow = dataSet.InvoiceInfo.Select(Nothing, Nothing, Global.System.Data.DataViewRowState.Deleted)
20441                 If ((Not (deletedRows) Is Nothing) _
20442                             AndAlso (0 < deletedRows.Length)) Then
20443                     result = (result + Me._invoiceInfoTableAdapter.Update(deletedRows))
20444                     allChangedRows.AddRange(deletedRows)
20445                 End If
20446             End If
20447             If (Not (Me._quotationTableAdapter) Is Nothing) Then
20448                 Dim deletedRows() As Global.System.Data.DataRow = dataSet.Quotation.Select(Nothing, Nothing, Global.System.Data.DataViewRowState.Deleted)
20449                 If ((Not (deletedRows) Is Nothing) _
20450                             AndAlso (0 < deletedRows.Length)) Then
20451                     result = (result + Me._quotationTableAdapter.Update(deletedRows))
20452                     allChangedRows.AddRange(deletedRows)
20453                 End If
20454             End If
20455             If (Not (Me._registrationTableAdapter) Is Nothing) Then
20456                 Dim deletedRows() As Global.System.Data.DataRow = dataSet.Registration.Select(Nothing, Nothing, Global.System.Data.DataViewRowState.Deleted)
20457                 If ((Not (deletedRows) Is Nothing) _
20458                             AndAlso (0 < deletedRows.Length)) Then
20459                     result = (result + Me._registrationTableAdapter.Update(deletedRows))
20460                     allChangedRows.AddRange(deletedRows)
20461                 End If
20462             End If
20463             If (Not (Me._stockTableAdapter) Is Nothing) Then
20464                 Dim deletedRows() As Global.System.Data.DataRow = dataSet.Stock.Select(Nothing, Nothing, Global.System.Data.DataViewRowState.Deleted)
20465                 If ((Not (deletedRows) Is Nothing) _
20466                             AndAlso (0 < deletedRows.Length)) Then
20467                     result = (result + Me._stockTableAdapter.Update(deletedRows))
20468                     allChangedRows.AddRange(deletedRows)
20469                 End If
20470             End If
20471             If (Not (Me._subCategoryTableAdapter) Is Nothing) Then
20472                 Dim deletedRows() As Global.System.Data.DataRow = dataSet.SubCategory.Select(Nothing, Nothing, Global.System.Data.DataViewRowState.Deleted)
20473                 If ((Not (deletedRows) Is Nothing) _
20474                             AndAlso (0 < deletedRows.Length)) Then
20475                     result = (result + Me._subCategoryTableAdapter.Update(deletedRows))
20476                     allChangedRows.AddRange(deletedRows)
20477                 End If
20478             End If
20479             If (Not (Me._customerTableAdapter) Is Nothing) Then
20480                 Dim deletedRows() As Global.System.Data.DataRow = dataSet.Customer.Select(Nothing, Nothing, Global.System.Data.DataViewRowState.Deleted)
20481                 If ((Not (deletedRows) Is Nothing) _
20482                             AndAlso (0 < deletedRows.Length)) Then
20483                     result = (result + Me._customerTableAdapter.Update(deletedRows))
20484                     allChangedRows.AddRange(deletedRows)
20485                 End If
20486             End If
20487             If (Not (Me._supplierTableAdapter) Is Nothing) Then
20488                 Dim deletedRows() As Global.System.Data.DataRow = dataSet.Supplier.Select(Nothing, Nothing, Global.System.Data.DataViewRowState.Deleted)
20489                 If ((Not (deletedRows) Is Nothing) _
20490                             AndAlso (0 < deletedRows.Length)) Then
20491                     result = (result + Me._supplierTableAdapter.Update(deletedRows))
20492                     allChangedRows.AddRange(deletedRows)
20493                 End If
20494             End If
20495             If (Not (Me._categoryTableAdapter) Is Nothing) Then
20496                 Dim deletedRows() As Global.System.Data.DataRow = dataSet.Category.Select(Nothing, Nothing, Global.System.Data.DataViewRowState.Deleted)
20497                 If ((Not (deletedRows) Is Nothing) _
20498                             AndAlso (0 < deletedRows.Length)) Then
20499                     result = (result + Me._categoryTableAdapter.Update(deletedRows))
20500                     allChangedRows.AddRange(deletedRows)
20501                 End If
20502             End If
20503             Return result
20504         End Function
20505         
20506         '''<summary>
20507         '''Remove inserted rows that become updated rows after calling TableAdapter.Update(inserted rows) first
20508         '''</summary>
20509         <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
20510          Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0")> _
20511         Private Function GetRealUpdatedRows(ByVal updatedRows() As Global.System.Data.DataRow, ByVal allAddedRows As Global.System.Collections.Generic.List(Of Global.System.Data.DataRow)) As Global.System.Data.DataRow()
20512             If ((updatedRows Is Nothing) _
20513                         OrElse (updatedRows.Length < 1)) Then
20514                 Return updatedRows
20515             End If
20516             If ((allAddedRows Is Nothing) _
20517                         OrElse (allAddedRows.Count < 1)) Then
20518                 Return updatedRows
20519             End If
20520             Dim realUpdatedRows As Global.System.Collections.Generic.List(Of Global.System.Data.DataRow) = New Global.System.Collections.Generic.List(Of Global.System.Data.DataRow)()
20521             Dim i As Integer = 0
20522             Do While (i < updatedRows.Length)
20523                 Dim row As Global.System.Data.DataRow = updatedRows(i)
20524                 If (allAddedRows.Contains(row) = false) Then
20525                     realUpdatedRows.Add(row)
20526                 End If
20527                 i = (i + 1)
20528             Loop
20529             Return realUpdatedRows.ToArray
20530         End Function
20531         
20532         '''<summary>
20533         '''Update all changes to the dataset.
20534         '''</summary>
20535         <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
20536          Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0")> _
20537         Public Overridable Function UpdateAll(ByVal dataSet As SIS_DBDataSet) As Integer
20538             If (dataSet Is Nothing) Then
20539                 Throw New Global.System.ArgumentNullException("dataSet")
20540             End If
20541             If (dataSet.HasChanges = false) Then
20542                 Return 0
20543             End If
20544             If ((Not (Me._activationTableAdapter) Is Nothing) _
20545                         AndAlso (Me.MatchTableAdapterConnection(Me._activationTableAdapter.Connection) = false)) Then
20546                 Throw New Global.System.ArgumentException("All TableAdapters managed by a TableAdapterManager must use the same connection s"& _
20547                         "tring.")
20548             End If
20549             If ((Not (Me._categoryTableAdapter) Is Nothing) _
20550                         AndAlso (Me.MatchTableAdapterConnection(Me._categoryTableAdapter.Connection) = false)) Then
20551                 Throw New Global.System.ArgumentException("All TableAdapters managed by a TableAdapterManager must use the same connection s"& _
20552                         "tring.")
20553             End If
20554             If ((Not (Me._companyTableAdapter) Is Nothing) _
20555                         AndAlso (Me.MatchTableAdapterConnection(Me._companyTableAdapter.Connection) = false)) Then
20556                 Throw New Global.System.ArgumentException("All TableAdapters managed by a TableAdapterManager must use the same connection s"& _
20557                         "tring.")
20558             End If
20559             If ((Not (Me._company_ContactsTableAdapter) Is Nothing) _
20560                         AndAlso (Me.MatchTableAdapterConnection(Me._company_ContactsTableAdapter.Connection) = false)) Then
20561                 Throw New Global.System.ArgumentException("All TableAdapters managed by a TableAdapterManager must use the same connection s"& _
20562                         "tring.")
20563             End If
20564             If ((Not (Me._customerTableAdapter) Is Nothing) _
20565                         AndAlso (Me.MatchTableAdapterConnection(Me._customerTableAdapter.Connection) = false)) Then
20566                 Throw New Global.System.ArgumentException("All TableAdapters managed by a TableAdapterManager must use the same connection s"& _
20567                         "tring.")
20568             End If
20569             If ((Not (Me._invoice_PaymentTableAdapter) Is Nothing) _
20570                         AndAlso (Me.MatchTableAdapterConnection(Me._invoice_PaymentTableAdapter.Connection) = false)) Then
20571                 Throw New Global.System.ArgumentException("All TableAdapters managed by a TableAdapterManager must use the same connection s"& _
20572                         "tring.")
20573             End If
20574             If ((Not (Me._invoice_ProductTableAdapter) Is Nothing) _
20575                         AndAlso (Me.MatchTableAdapterConnection(Me._invoice_ProductTableAdapter.Connection) = false)) Then
20576                 Throw New Global.System.ArgumentException("All TableAdapters managed by a TableAdapterManager must use the same connection s"& _
20577                         "tring.")
20578             End If
20579             If ((Not (Me._invoiceInfoTableAdapter) Is Nothing) _
20580                         AndAlso (Me.MatchTableAdapterConnection(Me._invoiceInfoTableAdapter.Connection) = false)) Then
20581                 Throw New Global.System.ArgumentException("All TableAdapters managed by a TableAdapterManager must use the same connection s"& _
20582                         "tring.")
20583             End If
20584             If ((Not (Me._logsTableAdapter) Is Nothing) _
20585                         AndAlso (Me.MatchTableAdapterConnection(Me._logsTableAdapter.Connection) = false)) Then
20586                 Throw New Global.System.ArgumentException("All TableAdapters managed by a TableAdapterManager must use the same connection s"& _
20587                         "tring.")
20588             End If
20589             If ((Not (Me._productTableAdapter) Is Nothing) _
20590                         AndAlso (Me.MatchTableAdapterConnection(Me._productTableAdapter.Connection) = false)) Then
20591                 Throw New Global.System.ArgumentException("All TableAdapters managed by a TableAdapterManager must use the same connection s"& _
20592                         "tring.")
20593             End If
20594             If ((Not (Me._product_JoinTableAdapter) Is Nothing) _
20595                         AndAlso (Me.MatchTableAdapterConnection(Me._product_JoinTableAdapter.Connection) = false)) Then
20596                 Throw New Global.System.ArgumentException("All TableAdapters managed by a TableAdapterManager must use the same connection s"& _
20597                         "tring.")
20598             End If
20599             If ((Not (Me._quotationTableAdapter) Is Nothing) _
20600                         AndAlso (Me.MatchTableAdapterConnection(Me._quotationTableAdapter.Connection) = false)) Then
20601                 Throw New Global.System.ArgumentException("All TableAdapters managed by a TableAdapterManager must use the same connection s"& _
20602                         "tring.")
20603             End If
20604             If ((Not (Me._quotation_JoinTableAdapter) Is Nothing) _
20605                         AndAlso (Me.MatchTableAdapterConnection(Me._quotation_JoinTableAdapter.Connection) = false)) Then
20606                 Throw New Global.System.ArgumentException("All TableAdapters managed by a TableAdapterManager must use the same connection s"& _
20607                         "tring.")
20608             End If
20609             If ((Not (Me._registrationTableAdapter) Is Nothing) _
20610                         AndAlso (Me.MatchTableAdapterConnection(Me._registrationTableAdapter.Connection) = false)) Then
20611                 Throw New Global.System.ArgumentException("All TableAdapters managed by a TableAdapterManager must use the same connection s"& _
20612                         "tring.")
20613             End If
20614             If ((Not (Me._serviceTableAdapter) Is Nothing) _
20615                         AndAlso (Me.MatchTableAdapterConnection(Me._serviceTableAdapter.Connection) = false)) Then
20616                 Throw New Global.System.ArgumentException("All TableAdapters managed by a TableAdapterManager must use the same connection s"& _
20617                         "tring.")
20618             End If
20619             If ((Not (Me._stockTableAdapter) Is Nothing) _
20620                         AndAlso (Me.MatchTableAdapterConnection(Me._stockTableAdapter.Connection) = false)) Then
20621                 Throw New Global.System.ArgumentException("All TableAdapters managed by a TableAdapterManager must use the same connection s"& _
20622                         "tring.")
20623             End If
20624             If ((Not (Me._stock_ProductTableAdapter) Is Nothing) _
20625                         AndAlso (Me.MatchTableAdapterConnection(Me._stock_ProductTableAdapter.Connection) = false)) Then
20626                 Throw New Global.System.ArgumentException("All TableAdapters managed by a TableAdapterManager must use the same connection s"& _
20627                         "tring.")
20628             End If
20629             If ((Not (Me._subCategoryTableAdapter) Is Nothing) _
20630                         AndAlso (Me.MatchTableAdapterConnection(Me._subCategoryTableAdapter.Connection) = false)) Then
20631                 Throw New Global.System.ArgumentException("All TableAdapters managed by a TableAdapterManager must use the same connection s"& _
20632                         "tring.")
20633             End If
20634             If ((Not (Me._supplierTableAdapter) Is Nothing) _
20635                         AndAlso (Me.MatchTableAdapterConnection(Me._supplierTableAdapter.Connection) = false)) Then
20636                 Throw New Global.System.ArgumentException("All TableAdapters managed by a TableAdapterManager must use the same connection s"& _
20637                         "tring.")
20638             End If
20639             If ((Not (Me._temp_StockTableAdapter) Is Nothing) _
20640                         AndAlso (Me.MatchTableAdapterConnection(Me._temp_StockTableAdapter.Connection) = false)) Then
20641                 Throw New Global.System.ArgumentException("All TableAdapters managed by a TableAdapterManager must use the same connection s"& _
20642                         "tring.")
20643             End If
20644             Dim workConnection As Global.System.Data.IDbConnection = Me.Connection
20645             If (workConnection Is Nothing) Then
20646                 Throw New Global.System.ApplicationException("TableAdapterManager contains no connection information. Set each TableAdapterMana"& _
20647                         "ger TableAdapter property to a valid TableAdapter instance.")
20648             End If
20649             Dim workConnOpened As Boolean = false
20650             If ((workConnection.State And Global.System.Data.ConnectionState.Broken) _
20651                         = Global.System.Data.ConnectionState.Broken) Then
20652                 workConnection.Close
20653             End If
20654             If (workConnection.State = Global.System.Data.ConnectionState.Closed) Then
20655                 workConnection.Open
20656                 workConnOpened = true
20657             End If
20658             Dim workTransaction As Global.System.Data.IDbTransaction = workConnection.BeginTransaction
20659             If (workTransaction Is Nothing) Then
20660                 Throw New Global.System.ApplicationException("The transaction cannot begin. The current data connection does not support transa"& _
20661                         "ctions or the current state is not allowing the transaction to begin.")
20662             End If
20663             Dim allChangedRows As Global.System.Collections.Generic.List(Of Global.System.Data.DataRow) = New Global.System.Collections.Generic.List(Of Global.System.Data.DataRow)()
20664             Dim allAddedRows As Global.System.Collections.Generic.List(Of Global.System.Data.DataRow) = New Global.System.Collections.Generic.List(Of Global.System.Data.DataRow)()
20665             Dim adaptersWithAcceptChangesDuringUpdate As Global.System.Collections.Generic.List(Of Global.System.Data.Common.DataAdapter) = New Global.System.Collections.Generic.List(Of Global.System.Data.Common.DataAdapter)()
20666             Dim revertConnections As Global.System.Collections.Generic.Dictionary(Of Object, Global.System.Data.IDbConnection) = New Global.System.Collections.Generic.Dictionary(Of Object, Global.System.Data.IDbConnection)()
20667             Dim result As Integer = 0
20668             Dim backupDataSet As Global.System.Data.DataSet = Nothing
20669             If Me.BackupDataSetBeforeUpdate Then
20670                 backupDataSet = New Global.System.Data.DataSet()
20671                 backupDataSet.Merge(dataSet)
20672             End If
20673             Try
20674                 '---- Prepare for update -----------
20675                 '
20676                 If (Not (Me._activationTableAdapter) Is Nothing) Then
20677                     revertConnections.Add(Me._activationTableAdapter, Me._activationTableAdapter.Connection)
20678                     Me._activationTableAdapter.Connection = CType(workConnection,Global.System.Data.SqlClient.SqlConnection)
20679                     Me._activationTableAdapter.Transaction = CType(workTransaction,Global.System.Data.SqlClient.SqlTransaction)
20680                     If Me._activationTableAdapter.Adapter.AcceptChangesDuringUpdate Then
20681                         Me._activationTableAdapter.Adapter.AcceptChangesDuringUpdate = false
20682                         adaptersWithAcceptChangesDuringUpdate.Add(Me._activationTableAdapter.Adapter)
20683                     End If
20684                 End If
20685                 If (Not (Me._categoryTableAdapter) Is Nothing) Then
20686                     revertConnections.Add(Me._categoryTableAdapter, Me._categoryTableAdapter.Connection)
20687                     Me._categoryTableAdapter.Connection = CType(workConnection,Global.System.Data.SqlClient.SqlConnection)
20688                     Me._categoryTableAdapter.Transaction = CType(workTransaction,Global.System.Data.SqlClient.SqlTransaction)
20689                     If Me._categoryTableAdapter.Adapter.AcceptChangesDuringUpdate Then
20690                         Me._categoryTableAdapter.Adapter.AcceptChangesDuringUpdate = false
20691                         adaptersWithAcceptChangesDuringUpdate.Add(Me._categoryTableAdapter.Adapter)
20692                     End If
20693                 End If
20694                 If (Not (Me._companyTableAdapter) Is Nothing) Then
20695                     revertConnections.Add(Me._companyTableAdapter, Me._companyTableAdapter.Connection)
20696                     Me._companyTableAdapter.Connection = CType(workConnection,Global.System.Data.SqlClient.SqlConnection)
20697                     Me._companyTableAdapter.Transaction = CType(workTransaction,Global.System.Data.SqlClient.SqlTransaction)
20698                     If Me._companyTableAdapter.Adapter.AcceptChangesDuringUpdate Then
20699                         Me._companyTableAdapter.Adapter.AcceptChangesDuringUpdate = false
20700                         adaptersWithAcceptChangesDuringUpdate.Add(Me._companyTableAdapter.Adapter)
20701                     End If
20702                 End If
20703                 If (Not (Me._company_ContactsTableAdapter) Is Nothing) Then
20704                     revertConnections.Add(Me._company_ContactsTableAdapter, Me._company_ContactsTableAdapter.Connection)
20705                     Me._company_ContactsTableAdapter.Connection = CType(workConnection,Global.System.Data.SqlClient.SqlConnection)
20706                     Me._company_ContactsTableAdapter.Transaction = CType(workTransaction,Global.System.Data.SqlClient.SqlTransaction)
20707                     If Me._company_ContactsTableAdapter.Adapter.AcceptChangesDuringUpdate Then
20708                         Me._company_ContactsTableAdapter.Adapter.AcceptChangesDuringUpdate = false
20709                         adaptersWithAcceptChangesDuringUpdate.Add(Me._company_ContactsTableAdapter.Adapter)
20710                     End If
20711                 End If
20712                 If (Not (Me._customerTableAdapter) Is Nothing) Then
20713                     revertConnections.Add(Me._customerTableAdapter, Me._customerTableAdapter.Connection)
20714                     Me._customerTableAdapter.Connection = CType(workConnection,Global.System.Data.SqlClient.SqlConnection)
20715                     Me._customerTableAdapter.Transaction = CType(workTransaction,Global.System.Data.SqlClient.SqlTransaction)
20716                     If Me._customerTableAdapter.Adapter.AcceptChangesDuringUpdate Then
20717                         Me._customerTableAdapter.Adapter.AcceptChangesDuringUpdate = false
20718                         adaptersWithAcceptChangesDuringUpdate.Add(Me._customerTableAdapter.Adapter)
20719                     End If
20720                 End If
20721                 If (Not (Me._invoice_PaymentTableAdapter) Is Nothing) Then
20722                     revertConnections.Add(Me._invoice_PaymentTableAdapter, Me._invoice_PaymentTableAdapter.Connection)
20723                     Me._invoice_PaymentTableAdapter.Connection = CType(workConnection,Global.System.Data.SqlClient.SqlConnection)
20724                     Me._invoice_PaymentTableAdapter.Transaction = CType(workTransaction,Global.System.Data.SqlClient.SqlTransaction)
20725                     If Me._invoice_PaymentTableAdapter.Adapter.AcceptChangesDuringUpdate Then
20726                         Me._invoice_PaymentTableAdapter.Adapter.AcceptChangesDuringUpdate = false
20727                         adaptersWithAcceptChangesDuringUpdate.Add(Me._invoice_PaymentTableAdapter.Adapter)
20728                     End If
20729                 End If
20730                 If (Not (Me._invoice_ProductTableAdapter) Is Nothing) Then
20731                     revertConnections.Add(Me._invoice_ProductTableAdapter, Me._invoice_ProductTableAdapter.Connection)
20732                     Me._invoice_ProductTableAdapter.Connection = CType(workConnection,Global.System.Data.SqlClient.SqlConnection)
20733                     Me._invoice_ProductTableAdapter.Transaction = CType(workTransaction,Global.System.Data.SqlClient.SqlTransaction)
20734                     If Me._invoice_ProductTableAdapter.Adapter.AcceptChangesDuringUpdate Then
20735                         Me._invoice_ProductTableAdapter.Adapter.AcceptChangesDuringUpdate = false
20736                         adaptersWithAcceptChangesDuringUpdate.Add(Me._invoice_ProductTableAdapter.Adapter)
20737                     End If
20738                 End If
20739                 If (Not (Me._invoiceInfoTableAdapter) Is Nothing) Then
20740                     revertConnections.Add(Me._invoiceInfoTableAdapter, Me._invoiceInfoTableAdapter.Connection)
20741                     Me._invoiceInfoTableAdapter.Connection = CType(workConnection,Global.System.Data.SqlClient.SqlConnection)
20742                     Me._invoiceInfoTableAdapter.Transaction = CType(workTransaction,Global.System.Data.SqlClient.SqlTransaction)
20743                     If Me._invoiceInfoTableAdapter.Adapter.AcceptChangesDuringUpdate Then
20744                         Me._invoiceInfoTableAdapter.Adapter.AcceptChangesDuringUpdate = false
20745                         adaptersWithAcceptChangesDuringUpdate.Add(Me._invoiceInfoTableAdapter.Adapter)
20746                     End If
20747                 End If
20748                 If (Not (Me._logsTableAdapter) Is Nothing) Then
20749                     revertConnections.Add(Me._logsTableAdapter, Me._logsTableAdapter.Connection)
20750                     Me._logsTableAdapter.Connection = CType(workConnection,Global.System.Data.SqlClient.SqlConnection)
20751                     Me._logsTableAdapter.Transaction = CType(workTransaction,Global.System.Data.SqlClient.SqlTransaction)
20752                     If Me._logsTableAdapter.Adapter.AcceptChangesDuringUpdate Then
20753                         Me._logsTableAdapter.Adapter.AcceptChangesDuringUpdate = false
20754                         adaptersWithAcceptChangesDuringUpdate.Add(Me._logsTableAdapter.Adapter)
20755                     End If
20756                 End If
20757                 If (Not (Me._productTableAdapter) Is Nothing) Then
20758                     revertConnections.Add(Me._productTableAdapter, Me._productTableAdapter.Connection)
20759                     Me._productTableAdapter.Connection = CType(workConnection,Global.System.Data.SqlClient.SqlConnection)
20760                     Me._productTableAdapter.Transaction = CType(workTransaction,Global.System.Data.SqlClient.SqlTransaction)
20761                     If Me._productTableAdapter.Adapter.AcceptChangesDuringUpdate Then
20762                         Me._productTableAdapter.Adapter.AcceptChangesDuringUpdate = false
20763                         adaptersWithAcceptChangesDuringUpdate.Add(Me._productTableAdapter.Adapter)
20764                     End If
20765                 End If
20766                 If (Not (Me._product_JoinTableAdapter) Is Nothing) Then
20767                     revertConnections.Add(Me._product_JoinTableAdapter, Me._product_JoinTableAdapter.Connection)
20768                     Me._product_JoinTableAdapter.Connection = CType(workConnection,Global.System.Data.SqlClient.SqlConnection)
20769                     Me._product_JoinTableAdapter.Transaction = CType(workTransaction,Global.System.Data.SqlClient.SqlTransaction)
20770                     If Me._product_JoinTableAdapter.Adapter.AcceptChangesDuringUpdate Then
20771                         Me._product_JoinTableAdapter.Adapter.AcceptChangesDuringUpdate = false
20772                         adaptersWithAcceptChangesDuringUpdate.Add(Me._product_JoinTableAdapter.Adapter)
20773                     End If
20774                 End If
20775                 If (Not (Me._quotationTableAdapter) Is Nothing) Then
20776                     revertConnections.Add(Me._quotationTableAdapter, Me._quotationTableAdapter.Connection)
20777                     Me._quotationTableAdapter.Connection = CType(workConnection,Global.System.Data.SqlClient.SqlConnection)
20778                     Me._quotationTableAdapter.Transaction = CType(workTransaction,Global.System.Data.SqlClient.SqlTransaction)
20779                     If Me._quotationTableAdapter.Adapter.AcceptChangesDuringUpdate Then
20780                         Me._quotationTableAdapter.Adapter.AcceptChangesDuringUpdate = false
20781                         adaptersWithAcceptChangesDuringUpdate.Add(Me._quotationTableAdapter.Adapter)
20782                     End If
20783                 End If
20784                 If (Not (Me._quotation_JoinTableAdapter) Is Nothing) Then
20785                     revertConnections.Add(Me._quotation_JoinTableAdapter, Me._quotation_JoinTableAdapter.Connection)
20786                     Me._quotation_JoinTableAdapter.Connection = CType(workConnection,Global.System.Data.SqlClient.SqlConnection)
20787                     Me._quotation_JoinTableAdapter.Transaction = CType(workTransaction,Global.System.Data.SqlClient.SqlTransaction)
20788                     If Me._quotation_JoinTableAdapter.Adapter.AcceptChangesDuringUpdate Then
20789                         Me._quotation_JoinTableAdapter.Adapter.AcceptChangesDuringUpdate = false
20790                         adaptersWithAcceptChangesDuringUpdate.Add(Me._quotation_JoinTableAdapter.Adapter)
20791                     End If
20792                 End If
20793                 If (Not (Me._registrationTableAdapter) Is Nothing) Then
20794                     revertConnections.Add(Me._registrationTableAdapter, Me._registrationTableAdapter.Connection)
20795                     Me._registrationTableAdapter.Connection = CType(workConnection,Global.System.Data.SqlClient.SqlConnection)
20796                     Me._registrationTableAdapter.Transaction = CType(workTransaction,Global.System.Data.SqlClient.SqlTransaction)
20797                     If Me._registrationTableAdapter.Adapter.AcceptChangesDuringUpdate Then
20798                         Me._registrationTableAdapter.Adapter.AcceptChangesDuringUpdate = false
20799                         adaptersWithAcceptChangesDuringUpdate.Add(Me._registrationTableAdapter.Adapter)
20800                     End If
20801                 End If
20802                 If (Not (Me._serviceTableAdapter) Is Nothing) Then
20803                     revertConnections.Add(Me._serviceTableAdapter, Me._serviceTableAdapter.Connection)
20804                     Me._serviceTableAdapter.Connection = CType(workConnection,Global.System.Data.SqlClient.SqlConnection)
20805                     Me._serviceTableAdapter.Transaction = CType(workTransaction,Global.System.Data.SqlClient.SqlTransaction)
20806                     If Me._serviceTableAdapter.Adapter.AcceptChangesDuringUpdate Then
20807                         Me._serviceTableAdapter.Adapter.AcceptChangesDuringUpdate = false
20808                         adaptersWithAcceptChangesDuringUpdate.Add(Me._serviceTableAdapter.Adapter)
20809                     End If
20810                 End If
20811                 If (Not (Me._stockTableAdapter) Is Nothing) Then
20812                     revertConnections.Add(Me._stockTableAdapter, Me._stockTableAdapter.Connection)
20813                     Me._stockTableAdapter.Connection = CType(workConnection,Global.System.Data.SqlClient.SqlConnection)
20814                     Me._stockTableAdapter.Transaction = CType(workTransaction,Global.System.Data.SqlClient.SqlTransaction)
20815                     If Me._stockTableAdapter.Adapter.AcceptChangesDuringUpdate Then
20816                         Me._stockTableAdapter.Adapter.AcceptChangesDuringUpdate = false
20817                         adaptersWithAcceptChangesDuringUpdate.Add(Me._stockTableAdapter.Adapter)
20818                     End If
20819                 End If
20820                 If (Not (Me._stock_ProductTableAdapter) Is Nothing) Then
20821                     revertConnections.Add(Me._stock_ProductTableAdapter, Me._stock_ProductTableAdapter.Connection)
20822                     Me._stock_ProductTableAdapter.Connection = CType(workConnection,Global.System.Data.SqlClient.SqlConnection)
20823                     Me._stock_ProductTableAdapter.Transaction = CType(workTransaction,Global.System.Data.SqlClient.SqlTransaction)
20824                     If Me._stock_ProductTableAdapter.Adapter.AcceptChangesDuringUpdate Then
20825                         Me._stock_ProductTableAdapter.Adapter.AcceptChangesDuringUpdate = false
20826                         adaptersWithAcceptChangesDuringUpdate.Add(Me._stock_ProductTableAdapter.Adapter)
20827                     End If
20828                 End If
20829                 If (Not (Me._subCategoryTableAdapter) Is Nothing) Then
20830                     revertConnections.Add(Me._subCategoryTableAdapter, Me._subCategoryTableAdapter.Connection)
20831                     Me._subCategoryTableAdapter.Connection = CType(workConnection,Global.System.Data.SqlClient.SqlConnection)
20832                     Me._subCategoryTableAdapter.Transaction = CType(workTransaction,Global.System.Data.SqlClient.SqlTransaction)
20833                     If Me._subCategoryTableAdapter.Adapter.AcceptChangesDuringUpdate Then
20834                         Me._subCategoryTableAdapter.Adapter.AcceptChangesDuringUpdate = false
20835                         adaptersWithAcceptChangesDuringUpdate.Add(Me._subCategoryTableAdapter.Adapter)
20836                     End If
20837                 End If
20838                 If (Not (Me._supplierTableAdapter) Is Nothing) Then
20839                     revertConnections.Add(Me._supplierTableAdapter, Me._supplierTableAdapter.Connection)
20840                     Me._supplierTableAdapter.Connection = CType(workConnection,Global.System.Data.SqlClient.SqlConnection)
20841                     Me._supplierTableAdapter.Transaction = CType(workTransaction,Global.System.Data.SqlClient.SqlTransaction)
20842                     If Me._supplierTableAdapter.Adapter.AcceptChangesDuringUpdate Then
20843                         Me._supplierTableAdapter.Adapter.AcceptChangesDuringUpdate = false
20844                         adaptersWithAcceptChangesDuringUpdate.Add(Me._supplierTableAdapter.Adapter)
20845                     End If
20846                 End If
20847                 If (Not (Me._temp_StockTableAdapter) Is Nothing) Then
20848                     revertConnections.Add(Me._temp_StockTableAdapter, Me._temp_StockTableAdapter.Connection)
20849                     Me._temp_StockTableAdapter.Connection = CType(workConnection,Global.System.Data.SqlClient.SqlConnection)
20850                     Me._temp_StockTableAdapter.Transaction = CType(workTransaction,Global.System.Data.SqlClient.SqlTransaction)
20851                     If Me._temp_StockTableAdapter.Adapter.AcceptChangesDuringUpdate Then
20852                         Me._temp_StockTableAdapter.Adapter.AcceptChangesDuringUpdate = false
20853                         adaptersWithAcceptChangesDuringUpdate.Add(Me._temp_StockTableAdapter.Adapter)
20854                     End If
20855                 End If
20856                 '
20857                 '---- Perform updates -----------
20858                 '
20859                 If (Me.UpdateOrder = UpdateOrderOption.UpdateInsertDelete) Then
20860                     result = (result + Me.UpdateUpdatedRows(dataSet, allChangedRows, allAddedRows))
20861                     result = (result + Me.UpdateInsertedRows(dataSet, allAddedRows))
20862                 Else
20863                     result = (result + Me.UpdateInsertedRows(dataSet, allAddedRows))
20864                     result = (result + Me.UpdateUpdatedRows(dataSet, allChangedRows, allAddedRows))
20865                 End If
20866                 result = (result + Me.UpdateDeletedRows(dataSet, allChangedRows))
20867                 '
20868                 '---- Commit updates -----------
20869                 '
20870                 workTransaction.Commit
20871                 If (0 < allAddedRows.Count) Then
20872                     Dim rows((allAddedRows.Count) - 1) As Global.System.Data.DataRow
20873                     allAddedRows.CopyTo(rows)
20874                     Dim i As Integer = 0
20875                     Do While (i < rows.Length)
20876                         Dim row As Global.System.Data.DataRow = rows(i)
20877                         row.AcceptChanges
20878                         i = (i + 1)
20879                     Loop
20880                 End If
20881                 If (0 < allChangedRows.Count) Then
20882                     Dim rows((allChangedRows.Count) - 1) As Global.System.Data.DataRow
20883                     allChangedRows.CopyTo(rows)
20884                     Dim i As Integer = 0
20885                     Do While (i < rows.Length)
20886                         Dim row As Global.System.Data.DataRow = rows(i)
20887                         row.AcceptChanges
20888                         i = (i + 1)
20889                     Loop
20890                 End If
20891             Catch ex As Global.System.Exception
20892                 workTransaction.Rollback
20893                 '---- Restore the dataset -----------
20894                 If Me.BackupDataSetBeforeUpdate Then
20895                     Global.System.Diagnostics.Debug.Assert((Not (backupDataSet) Is Nothing))
20896                     dataSet.Clear
20897                     dataSet.Merge(backupDataSet)
20898                 Else
20899                     If (0 < allAddedRows.Count) Then
20900                         Dim rows((allAddedRows.Count) - 1) As Global.System.Data.DataRow
20901                         allAddedRows.CopyTo(rows)
20902                         Dim i As Integer = 0
20903                         Do While (i < rows.Length)
20904                             Dim row As Global.System.Data.DataRow = rows(i)
20905                             row.AcceptChanges
20906                             row.SetAdded
20907                             i = (i + 1)
20908                         Loop
20909                     End If
20910                 End If
20911                 Throw ex
20912             Finally
20913                 If workConnOpened Then
20914                     workConnection.Close
20915                 End If
20916                 If (Not (Me._activationTableAdapter) Is Nothing) Then
20917                     Me._activationTableAdapter.Connection = CType(revertConnections(Me._activationTableAdapter),Global.System.Data.SqlClient.SqlConnection)
20918                     Me._activationTableAdapter.Transaction = Nothing
20919                 End If
20920                 If (Not (Me._categoryTableAdapter) Is Nothing) Then
20921                     Me._categoryTableAdapter.Connection = CType(revertConnections(Me._categoryTableAdapter),Global.System.Data.SqlClient.SqlConnection)
20922                     Me._categoryTableAdapter.Transaction = Nothing
20923                 End If
20924                 If (Not (Me._companyTableAdapter) Is Nothing) Then
20925                     Me._companyTableAdapter.Connection = CType(revertConnections(Me._companyTableAdapter),Global.System.Data.SqlClient.SqlConnection)
20926                     Me._companyTableAdapter.Transaction = Nothing
20927                 End If
20928                 If (Not (Me._company_ContactsTableAdapter) Is Nothing) Then
20929                     Me._company_ContactsTableAdapter.Connection = CType(revertConnections(Me._company_ContactsTableAdapter),Global.System.Data.SqlClient.SqlConnection)
20930                     Me._company_ContactsTableAdapter.Transaction = Nothing
20931                 End If
20932                 If (Not (Me._customerTableAdapter) Is Nothing) Then
20933                     Me._customerTableAdapter.Connection = CType(revertConnections(Me._customerTableAdapter),Global.System.Data.SqlClient.SqlConnection)
20934                     Me._customerTableAdapter.Transaction = Nothing
20935                 End If
20936                 If (Not (Me._invoice_PaymentTableAdapter) Is Nothing) Then
20937                     Me._invoice_PaymentTableAdapter.Connection = CType(revertConnections(Me._invoice_PaymentTableAdapter),Global.System.Data.SqlClient.SqlConnection)
20938                     Me._invoice_PaymentTableAdapter.Transaction = Nothing
20939                 End If
20940                 If (Not (Me._invoice_ProductTableAdapter) Is Nothing) Then
20941                     Me._invoice_ProductTableAdapter.Connection = CType(revertConnections(Me._invoice_ProductTableAdapter),Global.System.Data.SqlClient.SqlConnection)
20942                     Me._invoice_ProductTableAdapter.Transaction = Nothing
20943                 End If
20944                 If (Not (Me._invoiceInfoTableAdapter) Is Nothing) Then
20945                     Me._invoiceInfoTableAdapter.Connection = CType(revertConnections(Me._invoiceInfoTableAdapter),Global.System.Data.SqlClient.SqlConnection)
20946                     Me._invoiceInfoTableAdapter.Transaction = Nothing
20947                 End If
20948                 If (Not (Me._logsTableAdapter) Is Nothing) Then
20949                     Me._logsTableAdapter.Connection = CType(revertConnections(Me._logsTableAdapter),Global.System.Data.SqlClient.SqlConnection)
20950                     Me._logsTableAdapter.Transaction = Nothing
20951                 End If
20952                 If (Not (Me._productTableAdapter) Is Nothing) Then
20953                     Me._productTableAdapter.Connection = CType(revertConnections(Me._productTableAdapter),Global.System.Data.SqlClient.SqlConnection)
20954                     Me._productTableAdapter.Transaction = Nothing
20955                 End If
20956                 If (Not (Me._product_JoinTableAdapter) Is Nothing) Then
20957                     Me._product_JoinTableAdapter.Connection = CType(revertConnections(Me._product_JoinTableAdapter),Global.System.Data.SqlClient.SqlConnection)
20958                     Me._product_JoinTableAdapter.Transaction = Nothing
20959                 End If
20960                 If (Not (Me._quotationTableAdapter) Is Nothing) Then
20961                     Me._quotationTableAdapter.Connection = CType(revertConnections(Me._quotationTableAdapter),Global.System.Data.SqlClient.SqlConnection)
20962                     Me._quotationTableAdapter.Transaction = Nothing
20963                 End If
20964                 If (Not (Me._quotation_JoinTableAdapter) Is Nothing) Then
20965                     Me._quotation_JoinTableAdapter.Connection = CType(revertConnections(Me._quotation_JoinTableAdapter),Global.System.Data.SqlClient.SqlConnection)
20966                     Me._quotation_JoinTableAdapter.Transaction = Nothing
20967                 End If
20968                 If (Not (Me._registrationTableAdapter) Is Nothing) Then
20969                     Me._registrationTableAdapter.Connection = CType(revertConnections(Me._registrationTableAdapter),Global.System.Data.SqlClient.SqlConnection)
20970                     Me._registrationTableAdapter.Transaction = Nothing
20971                 End If
20972                 If (Not (Me._serviceTableAdapter) Is Nothing) Then
20973                     Me._serviceTableAdapter.Connection = CType(revertConnections(Me._serviceTableAdapter),Global.System.Data.SqlClient.SqlConnection)
20974                     Me._serviceTableAdapter.Transaction = Nothing
20975                 End If
20976                 If (Not (Me._stockTableAdapter) Is Nothing) Then
20977                     Me._stockTableAdapter.Connection = CType(revertConnections(Me._stockTableAdapter),Global.System.Data.SqlClient.SqlConnection)
20978                     Me._stockTableAdapter.Transaction = Nothing
20979                 End If
20980                 If (Not (Me._stock_ProductTableAdapter) Is Nothing) Then
20981                     Me._stock_ProductTableAdapter.Connection = CType(revertConnections(Me._stock_ProductTableAdapter),Global.System.Data.SqlClient.SqlConnection)
20982                     Me._stock_ProductTableAdapter.Transaction = Nothing
20983                 End If
20984                 If (Not (Me._subCategoryTableAdapter) Is Nothing) Then
20985                     Me._subCategoryTableAdapter.Connection = CType(revertConnections(Me._subCategoryTableAdapter),Global.System.Data.SqlClient.SqlConnection)
20986                     Me._subCategoryTableAdapter.Transaction = Nothing
20987                 End If
20988                 If (Not (Me._supplierTableAdapter) Is Nothing) Then
20989                     Me._supplierTableAdapter.Connection = CType(revertConnections(Me._supplierTableAdapter),Global.System.Data.SqlClient.SqlConnection)
20990                     Me._supplierTableAdapter.Transaction = Nothing
20991                 End If
20992                 If (Not (Me._temp_StockTableAdapter) Is Nothing) Then
20993                     Me._temp_StockTableAdapter.Connection = CType(revertConnections(Me._temp_StockTableAdapter),Global.System.Data.SqlClient.SqlConnection)
20994                     Me._temp_StockTableAdapter.Transaction = Nothing
20995                 End If
20996                 If (0 < adaptersWithAcceptChangesDuringUpdate.Count) Then
20997                     Dim adapters((adaptersWithAcceptChangesDuringUpdate.Count) - 1) As Global.System.Data.Common.DataAdapter
20998                     adaptersWithAcceptChangesDuringUpdate.CopyTo(adapters)
20999                     Dim i As Integer = 0
21000                     Do While (i < adapters.Length)
21001                         Dim adapter As Global.System.Data.Common.DataAdapter = adapters(i)
21002                         adapter.AcceptChangesDuringUpdate = true
21003                         i = (i + 1)
21004                     Loop
21005                 End If
21006             End Try
21007             Return result
21008         End Function
21009         
21010         <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
21011          Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0")> _
21012         Protected Overridable Sub SortSelfReferenceRows(ByVal rows() As Global.System.Data.DataRow, ByVal relation As Global.System.Data.DataRelation, ByVal childFirst As Boolean)
21013             Global.System.Array.Sort(Of Global.System.Data.DataRow)(rows, New SelfReferenceComparer(relation, childFirst))
21014         End Sub
21015         
21016         <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
21017          Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0")> _
21018         Protected Overridable Function MatchTableAdapterConnection(ByVal inputConnection As Global.System.Data.IDbConnection) As Boolean
21019             If (Not (Me._connection) Is Nothing) Then
21020                 Return true
21021             End If
21022             If ((Me.Connection Is Nothing) _
21023                         OrElse (inputConnection Is Nothing)) Then
21024                 Return true
21025             End If
21026             If String.Equals(Me.Connection.ConnectionString, inputConnection.ConnectionString, Global.System.StringComparison.Ordinal) Then
21027                 Return true
21028             End If
21029             Return false
21030         End Function
21031         
21032         '''<summary>
21033         '''Update Order Option
21034         '''</summary>
21035         <Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0")> _
21036         Public Enum UpdateOrderOption
21037             
21038             InsertUpdateDelete = 0
21039             
21040             UpdateInsertDelete = 1
21041         End Enum
21042         
21043         '''<summary>
21044         '''Used to sort self-referenced table's rows
21045         '''</summary>
21046         <Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0")> _
21047         Private Class SelfReferenceComparer
21048             Inherits Object
21049             Implements Global.System.Collections.Generic.IComparer(Of Global.System.Data.DataRow)
21050             
21051             Private _relation As Global.System.Data.DataRelation
21052             
21053             Private _childFirst As Integer
21054             
21055             <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
21056              Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0")> _
21057             Friend Sub New(ByVal relation As Global.System.Data.DataRelation, ByVal childFirst As Boolean)
21058                 MyBase.New
21059                 Me._relation = relation
21060                 If childFirst Then
21061                     Me._childFirst = -1
21062                 Else
21063                     Me._childFirst = 1
21064                 End If
21065             End Sub
21066             
21067             <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
21068              Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0")> _
21069             Private Function GetRoot(ByVal row As Global.System.Data.DataRow, ByRef distance As Integer) As Global.System.Data.DataRow
21070                 Global.System.Diagnostics.Debug.Assert((Not (row) Is Nothing))
21071                 Dim root As Global.System.Data.DataRow = row
21072                 distance = 0
21073
21074                 Dim traversedRows As Global.System.Collections.Generic.IDictionary(Of Global.System.Data.DataRow, Global.System.Data.DataRow) = New Global.System.Collections.Generic.Dictionary(Of Global.System.Data.DataRow, Global.System.Data.DataRow)()
21075                 traversedRows(row) = row
21076
21077                 Dim parent As Global.System.Data.DataRow = row.GetParentRow(Me._relation, Global.System.Data.DataRowVersion.[Default])
21078
21079                 Do While ((Not (parent) Is Nothing) _
21080                             AndAlso (traversedRows.ContainsKey(parent) = false))
21081                     distance = (distance + 1)
21082                     root = parent
21083                     traversedRows(parent) = parent
21084                     parent = parent.GetParentRow(Me._relation, Global.System.Data.DataRowVersion.[Default])
21085
21086                 Loop
21087
21088                 If (distance = 0) Then
21089                     traversedRows.Clear
21090                     traversedRows(row) = row
21091                     parent = row.GetParentRow(Me._relation, Global.System.Data.DataRowVersion.Original)
21092
21093                     Do While ((Not (parent) Is Nothing) _
21094                                 AndAlso (traversedRows.ContainsKey(parent) = false))
21095                         distance = (distance + 1)
21096                         root = parent
21097                         traversedRows(parent) = parent
21098                         parent = parent.GetParentRow(Me._relation, Global.System.Data.DataRowVersion.Original)
21099
21100                     Loop
21101                 End If
21102
21103                 Return root
21104             End Function
21105             
21106             <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
21107              Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0")> _
21108             Public Function Compare(ByVal row1 As Global.System.Data.DataRow, ByVal row2 As Global.System.Data.DataRow) As Integer Implements Global.System.Collections.Generic.IComparer(Of Global.System.Data.DataRow).Compare
21109                 If Object.ReferenceEquals(row1, row2) Then
21110                     Return 0
21111                 End If
21112                 If (row1 Is Nothing) Then
21113                     Return -1
21114                 End If
21115                 If (row2 Is Nothing) Then
21116                     Return 1
21117                 End If
21118
21119                 Dim distance1 As Integer = 0
21120                 Dim root1 As Global.System.Data.DataRow = Me.GetRoot(row1, distance1)
21121
21122                 Dim distance2 As Integer = 0
21123                 Dim root2 As Global.System.Data.DataRow = Me.GetRoot(row2, distance2)
21124
21125                 If Object.ReferenceEquals(root1, root2) Then
21126                     Return (Me._childFirst * distance1.CompareTo(distance2))
21127                 Else
21128                     Global.System.Diagnostics.Debug.Assert(((Not (root1.Table) Is Nothing) _
21129                                     AndAlso (Not (root2.Table) Is Nothing)))
21130                     If (root1.Table.Rows.IndexOf(root1) < root2.Table.Rows.IndexOf(root2)) Then
21131                         Return -1
21132                     Else
21133                         Return 1
21134                     End If
21135                 End If
21136             End Function
21137         End Class
21138     End Class
21139 End Namespace


Web, Tìm kết quả nhanh

Kích thước hoặc độ phức tạp của bản gửi này, tác giả đã gửi nó dưới dạng tệp .zip để rút ngắn thời gian tải xuống của bạn. Sau khi tải xuống, bạn sẽ cần một chương trình như Winzip để giải nén nó.

Tất cả các tệp đều được codefly.vn quét mỗi ngày một lần để tìm vi-rút, nhưng vi-rút mới xuất hiện hàng ngày nên không có chương trình phòng ngừa nào có thể bắt được 100% chúng.

ĐỂ AN TOÀN CỦA CHÍNH BẠN, VUI LÒNG:

1. Quét lại các tệp đã tải xuống bằng trình kiểm tra vi-rút cá nhân của bạn trước khi sử dụng.

2. KHÔNG BAO GIỜ, chạy các tệp đã biên dịch (.exe's, .ocx's, .dll's, v.v.)--chỉ chạy code mà bạn đã xem ít nhất 1 lần.

Official Website:

https://www.techprofree.com/.....c-with-source-code/

Gõ tìm kiếm nhanh...



Dự án liên quan!

Cách tạo đồng hồ bấm giờ trong C#

66 lượt xem

Hệ thống quản lý hàng tồn kho sử dụng cơ sở dữ liệu VB.NET và MySQL với mã nguồn

67 lượt xem

Đếm nguyên âm và phụ âm

110 lượt xem

Phần mềm quản lý nhân viên hiện đại sử dụng C#.net và Bunifu Framework với Full Source Code (2020)

171 lượt xem

Hệ thống quản lý đại học bằng C# với mã nguồn đầy đủ

134 lượt xem

Hệ thống quản lý bệnh viện bằng C# với mã nguồn đầy đủ

152 lượt xem